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EINLEITUNG 


Voll im Trend 


C omputergrafik. Dieses Stichwort 
ist seit neuerer Zeit in aller Munde. 

Die Medien, vornehmlich Zeit¬ 
schriften und Fernsehen, bedienen 
sich ihrer in zunehmendem Maße. 

Sie als C64-Besitzer haben da gut 
lachen. Nennen Sie doch einen 
Heimcomputer Ihr eigen, der auf 
diesem Gebiet seit langem und - 
trotz heftiger Konkurrenz von seiten 
der 16-Bit-Computer - immer noch 
zur Spitzengruppe zählt. 

Dieses Sonderheft zum Thema 
Grafik belegt einmal mehr die her¬ 
ausragenden Fähigkeiten des C64 
auf diesem Gebiet: 

AMICA Paint, ein Grafikprogramm 
der Extraklasse, das Sie in diesem 
Heft als Listing finden, lehnt sich nicht umsonst im 
Namen an den Commodore Amiga an. Kann AMICA 
Paint doch all das, was bislang als Domäne von Mal¬ 
programmen auf dem Amiga, wie etwa Deluxe Paint, 
galt. Neben den üblichen Funktionen bietet AMICA 
Paint bislang einmalige Features, wie etwa Verzerren, 
Verbiegen von Bildschirmausschnitten, Schattenwurf, 
Diashow, weiches Verwaschen von Farbübergängen, 
komfortable Maussteuerung und und und... 
Damit noch nicht genug. Weitere tolle Grafik- 
Listings in diesem Sonderheft sind etwa der Lauf¬ 
schriftgenerator. Mit diesem Programm können Sie 
zum Beispiel wirkungsvolle Effekte für eigene 
Programme, Werbung fürs Schaufenster oder 
faszinierende Filmvorspänne generieren. 
Wollen Sie selbst Grafik programmieren? Auch 
dann sind Sie hier richtig: Sie finden eine Assembler- 
Bibliothek für blitzschnelle Grafikroutinen und einen 

Kurs für 

interruptgesteuerte Grafikprogrammierung. Die Ergeb¬ 
nisse beider Artikel sind jeweils fertige Programme 
zum Abtippen, die auch dem nützen, der Assembler 

nicht beherrscht. 
Apropos Abtippen - schlagen Sie doch mal eine 
Seite, auf der sich MSE- oder Quellcodelistings befin¬ 
den, auf. Sehen Sie den Unterschied zu früheren 
Ausgaben der Sonderhefte? Genau - die Listings sind 
besser lesbar und augenfreundlicher. Das kommt so: 

Unsere große Leserumfrage hat ergeben, daß trotz 
des Angebots der Programmservice-Disketten ein er¬ 
staunlich großer Teil unserer Leser - also vielleicht 
auch Sie - die Listings im 64’er-Magazin und den 
Sonderheften abtippt. Das ist mit viel Mühe und 

Arbeit verbunden. 
Um diese etwas zu erleichtern haben wir uns etwas 
ausgedacht, das sowohl uns, als auch Ihnen nutzt: 


Früher wurden die Listings mit dem 
MSE ausgedruckt, fotografisch ab¬ 
genommen und dann in Druck gege¬ 
ben. Das brachte folgende Probleme 
mit sich: Viele Redakteure - viele 
Drucker. Schon das alleine bedeutet 
verschiedene Schriftbilder. Der eine 
druckte dann die Listings in NLQ, 
der andere in Fettschrift. Oft war 
auch das Farbband nicht mehr ganz 
taufrisch und ein neues gerade nicht 
auf Lager. Resultat: Der Ausdruck 
war blaß und schlecht zu lesen. 

Ergab sich eine kleine Programm¬ 
änderung mußte das ganze Pro¬ 
gramm neu mit dem MSE gedruckt 
werden. Vom Zeitaufwand, den all 
dies erforderte, soll an dieser Stelle 
gar nicht geredet werden. 

Sie sehen: Alles in allem eine aufwendige, 
uneinheitliche und fehlerträchtige Angelegenheit. 

Jetzt geschieht das folgendermaßen: 

Mit einem speziellen Interface werden die Listings 
nicht zum Drucker, sondern per RS232-Schnittstelle, 
also o" si auf dem Weg der Datenfernübertragung, 
zu einem MS-DOS-Personal Computer geschickt. 

Dort wird das Listing wieder auf Diskette gespeichert. 
Dies hat einen immensen Vorteil: 

Diese Disketten können von der Satzmaschine ge¬ 
lesen und wie normale Texte behandelt werden! Ergo: 
Gleiche Qualität bei den Listings wie beim normalen 
Text. 

Ein kleiner Wermutstropfen: Bei den Basic-Listings 
klappt dieses Verfahren zur Zeit noch nicht so ganz, 
da durch den Ausdruck mit dem Checksummer Son¬ 
derzeichen für Tastenkombinationen mit der SHIFT- 
und der CBM-Taste benötigt werden. Diese müssen 
wir der Satzmaschine erst beibringen. Aber auch 
dieses Problem ist »in der Mache«, wie man so schön 
sagt und sicher bald gelöst. 

Bis dahin wünsche ich Ihnen viel Spaß mit den 
Programmen aus diesem Sonderheft - vor allem 
natürlich mit AMICA Paint. 

Ihr 


Ute 

Klaus Schrödl (Redakteur) 
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■INHALT 



Malprogramm 


ln den FuBstapfen des großen Bruders 

Mit »AMICA-Paint« erhalten Sie ein Malprogramm 
der Superlative, das mit Leistungen aufwartet, 
die man bisher nur vom Amiga oder Atari ST her 
kennt. Die leistungsstarken Befehle sind über 
Pull-Down-Menüs leicht auszuwählen. Diese 
Steuerung erübrigt das Einprägen komplizierter 
Tastatureingaben. Dadurch beherrscht auch der 
Erstanwender alle Funktionen von Anfang an, 
das Malen wird zum reinen Vergnügen. H 


Kurs 


Zaubereien mit Grafik und Assembler 

Sie erfahren, wie Grafikbefehle für Basic 
programmiert werden. Die Beschreibung der 
Routinen reicht vom Line-Algorithmus bis hin zur 
ausgefeilten Interrupt-Technik für Grafik. H 56 


Grafik-Listings 


2001-Grafik in Hochform 

Die optimale Ergänzung zu Grafik 2000. 

Schneller und leistungsfähiger wird das 

bekannte System, das Programmieren toller 

Animationen wird zum Kinderspiel. II 87 

Farbschriften mit Pfiff 

Farbeffekte, die bisher nur von einigen Spielen 

bekannt waren. Die Zeichen in einer Zeile 

werden in acht Farben dargestellt. Zusätzlich 

erfahren Sie, wie diese Effekte in 

Maschinensprache programmiert werden. H 101 

Überschriften am laufenden Band 

Komplette Briefe als Laufschriften in 

tollen Farben. All dies läßt sich mit den Interrupt- __ _ 

Techniken dieses Programms realisieren. Hl03 

Blitzschnelle Grafik-Routinen für Giga-Ass 

Hilfreiche Makros, die Sie in Ihre eigenen 

Programme einbinden können H 107 



Kennen Sie die 
Basic-Erweiterung 
Grafik 2000? Dann werden Sie von der umfangreichen 
Ergänzung fasziniert sein. Mit dem Zusatz »Grafik 2001« 
erhalten Sie noch mächtigere Werkzeuge zum Program¬ 



mieren eigener Bilder, 
Werbegrafiken und 
Videovorspänne. 

Seite 87 
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Wie gebe ich Programme ein? 

Diesen Artikel sollten Sie unbedingt lesen, wenn 

Sie ein Programm aus diesem Sonderheft 

abtippen möchten H 159 


Geschwindigkeit ist Trumpf: 

Im Kurs »Zaubereien mit Grafik und 
Assembler» finden Sie alle Tricks zum Erstellen 
blitzschneller und ausgefeilter Grafik-Programme. 
Zugabe ist eine kleine Basic-Erweiterung, mit der auch 
Einsteiger im D-Zug-Tempo Bilder erstellen. Seite 56 


Editorial 3 


Impressum 162 


Allo Programme aus Artikeln mit einem Q -Symbol (Inden Sie auch 
auf der Programmservice-Diskette zu diesem Sonderheft 


AMICA Paint zaubern Sie traumhafte Bilder 
auf den Bildschirm. Dieses Malprogramm holt aus 
dem C64 mehr heraus, als bisher vorstellbar war, bei¬ 
spielsweise das Verwaschen und Überlagern von Farben. 
Komfort bereitet das Zeichnen mit der Maus. Kippen, Drehen, 
Biegen und sogar Animation - mit AMICA-Paint ist das alles 
kein Problem. Seite 6 
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Wünschen Sie sich Schriften In allen Formen und Größen 
auf Ihrem Matrix-Drucker? Mit »Schreibmaschine» ist das 
ein Kinderspiel. Etliche Zeichensätze sind bereits 
vorgefertigt. Wenn Ihnen das nicht genügt, erstellen Sie 
einfach eigene Zeichensätze mit dem Editor. Seite 134 


Wechselstube für Bilder 

Ein Konverter, der Bilder aus den bekanntesten 
Malprogrammen in sieben Formate übertragen 
kann 

U 115 

Kaugummi-Grafiken 

Beliebige Grafikausschnitte werden in eine 
andere Form gebracht 

H 120 

M&trL-jn-Rechnung ieichtgemacht 

Matrix-Berechnungen sind Voraussetzung für 
das Programmieren von dreidimensionalen 
Grafiken. Der »Matrix-Express« unterstützt und 
beschleunigt die notwendigen Berechnungen. 

H129 

Drucker-Listings 


Fantastische Schriften 

Ein Programm, das alles aus Ihrem Drucker 
herausholt. Sogar griechische und kyrillische 
Schriften werden realisiert. 

H 134 

Plottomat - »PED»-Grafiken In höchster Güte 

Drucken Sie Ihre »PED«-Grafiken jetzt mit dem 
Plotter 1520 von Commodore 

I1154 

Einqabehilfen 


Sonstiges 
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MALPROGRAMM 


C64 




Vergessen Sie Ihre alten Malprogram¬ 

me. »AMICA Paint« verwöhnt Sie 
mit einer neuen Dimension der 
Grafikverarbeitung, die man bis¬ 

her nur vom Amiga oder Atari 
ST kannte. Fatben verwaschen 
oder drehen, biegen, kippen 
- alles kein Problem. 


it einem Malprogramm 
lassen sich Bilder auf 
einem Computer 
schnell und einfach 
erstellen. Dies hat 
gegenüber der konventionellen 
Methode mit Pinsel und Papier 
einige Vorteile. So können jeder¬ 
zeit Korrekturen vorgenommen 
werden, Farben sind nachträg¬ 
lich veränderbar und ein klei¬ 
ner Fehler führt nicht gleich 
zur Zerstörung eines gan¬ 
zen Kunstwerkes. 

Mehrmals benötigte Bildtei¬ 
le müssen nur einmal ge¬ 
malt werden, wobei man 
das Einsetzen an einer 
anderen Steile dem Com¬ 
puter überläßt. Ebenso 
dürfen Ausschnitte von 
einem Bild in ein ande¬ 
res verlegt werden. 

Wer nicht nur aus reinem Vergnügen malen will, sondern 
Grafiken für eigene Programme benötigt, kommt um die Ver¬ 
wendung leistungsfähiger Malprogramme nicht herum. Auch 
wer fertige, digitalisierte Bilder weiterverarbeiten will, wird mit 
AMICA Paint (Advanced Multicolor Computer Aided Painting) 
ein System vorfinden, das seine Erwartungen voll erfüllt. 

AMICA Paint ermöglicht es, auf dem C64 Grafiken mit ei¬ 
ner Auflösung von 160 x 200 Punkten bei gleichzeitiger 
Verwendung aller 16 Farben zu kreieren. Dies ist jedoch 
aus technischen Gründen nur möglich, wenn nicht mehr 

als vier verschiedene Farben in einem Bildbereich von 4 x 
8 Punkten verwendet werden. Trotz dieser Einschränkung 
können Sie in jeder beliebigen Farbe sorglos zeichnen, da 
AMICA Paint die Farben einer Grafik auf interessante Wei¬ 


se verwaltet. 

Zeichnet man mit einer fünften Farbe 

in einem kleinen Bildbereich, so ändern sich 

die alten Farben nur so, daß es am wenigsten auffällt. 

Zum Anfertigen von Bildern stehen oft benötigte Figuren 
wie Quadrate, Rechtecke, Kreise, Ellipsen, Kreis- und Ellip¬ 
senausschnitte sowie beliebige n-Ecke zur Verfügung. Die¬ 
se können wahlweise ausgefüllt, gemustert oder einfach 
nur von Linien umgrenzt dargestellt werden. 

Auch Zeichenfunktionen wie Linien, Streckenzüge, 
Strahlen und Kreisbögen sind standardmäßig vorhanden. 
Alle Linien lassen sich dabei gestrichelt oder mit frei 
wählbaren Pinselformen zeichnen. Daneben verfügt 
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C 64 


MALPROGRAMM 


des großen Binders 



AMICA Paint über 
eine leistungsfähige Füllfunktion 
und eine Spraydose, deren Sprühkraft 
und Größe nach Belieben eingestellt werden kann. 

Das nachträgliche Verändern von Bildteilen ist auf viel- 


Zudem verleiht AMICA Paint zweidimensiona¬ 
len Bildteilen auf Wunsch einen Schatten oder 
gar dreidimensionales Aussehen. Selbst stu¬ 
fenlose Farbübergänge zwischen zwei Flä¬ 
chen, die normalerweise mühsam mit der 
Sprühdose erstellt werden müssen, sind für 
AMICA Paint kein Problem. Es ist sogar mög¬ 
lich, eine mehrmals benötigte Befehlsfolge 
in einem sogenannten »Makro« festzuhal¬ 
ten und dieses auf Diskette zu speichern. 
Auch Füllmuster und eine große Anzahl 
von Parametern für die Cursorsteuerung 
können auf Diskette gespeichert werden 
und sind somit immer verfügbar. 

Als »Schmankerl« bietet das Programm 
zusätzlich eine Diashow-Funktion, um 
ganze Sammlungen von Bildern zu be¬ 
trachten. Wer sich für animierte Gra¬ 
fiken interessiert, für den hält AMICA 
Paint eine Funktion parat, die durch 
zyklisches Vertauschen mehrerer 
Bildschirmfarben interessante Bewe¬ 
gungseffekte erzeugt. 
Selbstverständlich können die er¬ 
stellten Grafiken auch gespeichert 
werden. Sie werden in einem kom¬ 
primierten Format auf der Diskette 
abgelegt, so daß sie möglichst 
wenig Speicherplatz benötigen. 
Außerdem kennt AMICA-Paint 
aus Kompatlbilltätsgründen auch 
eine Funktion, um Grafiken im 
bekannten Koalapainter-Förmat 
zu speichern. 

Trotz dieser enormen Lei¬ 
stungsfähigkeit ist AMICA Paint 
denkbar einfach zu handha¬ 
ben. Die Steuerung erfolgt 
vornehmlich über die Tasta¬ 
tur in Verbindung mit einem 
Joystick oder der Maus 1351 
von Commodore. Alle Be¬ 
fehle werden über bedie¬ 
nungsfreundliche Menüs 
per Tastendruck ange- 
wählt. Ausgeführt werden 
Sie jedoch mit dem Joy¬ 
stick oder der Maus im Grafikmodus. So lassen sich alle 
Funktionen schnell und einfach erreichen. 


faltige Art und Weise möglich: Bildausschnitte, im folgen¬ 
den Blöcke genannt, dürfen in jeder Form vergrößert oder 
verkleinert, gespiegelt, gedreht, gebogen und sogar per¬ 
spektivisch in den Raum gekippt werden. 


Für die Arbeit mit AMICA Paint benötigt man einen C64, 
SX 64 oder einen C128 (im C64-Modus) sowie eine Floppy 
1541, 1570 oder 1571. Um eine hohe Kompatibilität zu 
Floppy-Speedern zu erreichen, erfolgen Zugriffe auf Dis- 
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kette nur mit den Standardroutinen LOAD, SAVE und 
OPEN. 

Besitzt man keinen Floppy-Beschleuniger, kann man 
auch auf den Schnellader »Most Accen« (siehe Listingteil) 
ab Seite (29) zurückgreifen, der das Hauptprogramm von 
AMICA Paint etwa fünfmal schneller lädt. Die Verwendung 
einer Datasette ist nicht möglich. 

Der Monitor sollte einen vier Zeilen großen Bereich des 
oberen und unteren - sonst beim C 64 ungenutzten Bild¬ 
schirmrahmens noch darstellen, denn dort zeigt AMICA 
Paint für den Anwender wichtige Informationen an. 

Erste Schritte mit AMICA Point 


AMICA Paint besteht aus mehreren Programmteilen, die 
mit dem Checksummer beziehungsweise dem MSE einge¬ 
geben und alle auf derselben Diskette gespeichert werden 
müssen. Genauere Eingabehinweise dazu finden Sie im 
Textkasten auf Seite 29. 

Wer die mühselige Tipparbeit nicht auf sich nehmen will, 
der kann AMICA Paint inklusive allen Programmteilen und 
vielen Demo-Grafiken über den Leser-Service des 64'er- 
Magazins als Programmservice-Diskette beziehen. 

Haben Sie alle Programmteile sorgfältig eingegeben und 
auf einer Diskette gespeichert, kann AMICA Paint in Aktion 
treten. Doch zuvor ist das kleine Basic-Programm »EINGA- 
BEGERAETE« zu laden und zu starten. Dort legen Sie fest, 
ob Sie AMICA Paint mit einem Joystick oder der Maus 1351 
von Commodore bedienen wollen. Die aktuelle Einstellung 
des Eingabegerätes wird auf der Diskette zwischengespei¬ 
chert, so daß diese Prozedur in der Regel nur für die erste 
Arbeit mit AMICA Paint vorgenommen werden muß. Es ist 
anzumerken, daß die Steuerung des Malprogramms mit ei¬ 
ner Maus wesentlich komfortabler ist. 

Zum Laden des Hauptprogramms sollten alle Basic- 
Erweiterungen entfernt werden. Verfügen Sie über keinen 
hardwaremäßigen Floppy-Beschleuniger, wird AMICA 
Paint nach dem Einlegen der Programmdiskette mit 
LOAD "AMICA PAINT",8,1 
geladen und gestartet. 

Führt dies nicht zum Erfolg, oder haben Sie einen 
Floppy-Beschleuniger eingebaut, so ist das Programm mit 
der Befehlsfolge 

LOAD "AMICA PAINT LOAD",8 

und RUN zu starten. Der Schnell-Lader »MOST ACCESS« 
bietet eine 16fache Beschleunigung und eignet sich übri¬ 
gens auch für die Verwendung mit anderen Programmen. 

Nach kurzer Zeit erscheint ein Grafikvorspann, der durch 
Betätigen der CBM-Taste vorzeitig abgebrochen werden 
kann. Anschließend wird das Hauptprogramm nachgela¬ 
den. Geschieht dies nicht, schalten Sie bitte den C64 aus 
und entfernen Sie alle Erweiterungen, Module und derglei¬ 
chen. Schalten Sie sodann Ihren Computer wieder ein. 
Nach erneuter Eingabe der oben beschriebenen Befehle 
wird AMIGA Paint nun korrekt geladen. 

Das Hauptmenü 


AMICA Paint begrüßt Sie mit einem umfangreichen Haupt¬ 
menü, das Sie in Bild 1 sehen. Dort erfahren Sie, mit wel¬ 
chen Tasten weitere Untermenüs aufgerufen werden kön¬ 
nen. Daneben sind auch einige wichtige Tasten erklärt, die 
für die Arbeit mit AMICA Paint unerläßlich sind. Einige sei¬ 
en gleich erwähnt: 

- < RUN/STOP > bricht eine Funktion ab oder führt in 
das übergeordnete Menü zurück. 

- Mit < I > begibt man sich wieder in das Hauptmenü, 
während man mit < - > in den Grafik-Editor gelangt. 

3!S&? 



Bild 1. Das Hauptmenü von AMICA Paint 



Bild 2 bis 4. So komfortabel kann die Bedienung eines 
Malprogrammes sein. Mit übersichtlichen Menüs können 
alle Funktionen schnell erreicht werden. 
























































MALPROGRAMM 


C64 


Die restlichen Tasten in der linken Spalte des Hauptme¬ 
nüs können entweder im Hauptmenü selbst oder im Grafik- 
Editor betätigt werden. Sie führen in komfortable Unterme¬ 
nüs, in denen Funktionen angewählt oder Parameter einge¬ 
stellt werden können. Die Bilder 2 bis 4 zeigen eine kleine 
Auswahl dieser bedienerfreundlichen Menü-Fenster. 

Der Grafik-Editor 


fimcf« Pf« t n 
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Da der Begriff »Grafik-Editor« schon mehrmals erwähnt 
wurde, soll dieser Programmteil nun vorgestellt werden. 
Drücken Sie bitte die Taste < - >. Der Grafik-Editor, wie er 
in Bild 5 zu sehen ist, wird aktiviert. Es werden nun je zwei 
Textzeilen im oberen und unteren Bildschirmrahmen sicht¬ 
bar. Daneben erkennt man einen blinkenden Pfeil. In der 
untersten Zeile sollte »LINIE STARTPUNKT ?« stehen. Im 
Augenblick ist also die Funktion zum Zeichnen von Linien 
aktiviert. Zusätzlich findet man am unteren Bildschirmrand 
eine Koordinatenangabe, die über die momentane Position 
des Pfeils Auskunft gibt. Außerdem wird die Farbe des dort 
befindlichen Punktes angezeigt. 

Der Pfeil kann mit einem Joystick, der Maus oder den Ta¬ 
sten <@>, <:>, <;> und </> gesteuert werden. Die 
RETURN-Taste simuliert den Feuerknopf des Joysticks. Ar¬ 
beiten Sie mit der Maus, so ist mit Feuerknopf der linke 
Mausknopf gemeint. Der rechte Knopf entspricht der Taste 
<RUN/STOP> und dient zum Abbruch einer Funktion. 

Wir wollen nun gemeinsam eine Linie ziehen. Bewegen 
Sie dazu den Pfeil an eine beliebige Stelle des Bildschirms 
und drücken Sie den Feuerknopf. Der Startpunkt der Linie 
ist damit festgelegt. In der untersten Zeile erscheint nun die 
Meldung »LINIE ENDPUNKT?«. Das Programm erwartet 
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Bild 5. Die »Leinwand« von AMICA Paint (Grafik-Editor). 

Dort werden alle Befehle ausgeführt. 

geführten Tasten im Grafik-Editor belegt. Sie haben folgen¬ 
de Bedeutungen: 

- Die Zifferntasten <1 > bis <9> gestatten in Verbin¬ 
dung mit <SHIFT> das Speichern von bis zu neun Pfeil¬ 
positionen. Sie werden mit den Zifferntasten <1> bis 
<9> (ohne <SHIFT>) wieder angesprungen. Wenn Sie 
davor die Tasten <X> oder <Y> betätigen, wird lediglich 
die X- oder Y-Koordinate der gespeicherten Position für den 
Sprung berücksichtigt. Mit <T> läßt sich dagegen die 
komplette Position anspringen. 

- Di? GBM-Taste macht alle Änderungen des Bildes rück¬ 
gängig, uie nach dem letzten Sprung in den Grafik-Editor 
erfolgten (Undo-Funktion). Um eine Grafik vor unbeabsich¬ 
tigtem Löschen mit der Undo-Funktion zu schützen, ge¬ 
nügt ein Druck auf die Taste < U >. Dies hält das aktuelle 
Bild fest. 

- <SHIFT CLR/HOME> löscht den Bildschirm. 

- < Z > schaltet die Zoom-Funktion ein oder aus. Sie be¬ 
wirkt, daß ein begrenzter Bildbereich um den Pfeil herum 
vergrößert dargestellt wird. Dadurch ist ein sehr exaktes Po¬ 
sitionieren des Pfeils möglich. 

- Mit < G > wird auf die zweite Grafikseite umgeschaltet. 
Nochmaliges Drücken von < G > schaltet auf die erste Sei¬ 
te zurück. 
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PUNKTE JSETZEM 


Bild 6. Interessant für die Konstrukteure: AMICA Paint mißt 
Abstände zwischen Objekten. 

die Markierung des Punktes, zu dem die Linie führen soll. 
Wird der Pfeil jetzt bewegt, erscheint eine blinkende Linie, 
die wie ein Gummiband auseinandergezogen wird. Nach 
einem weiteren Knopfdruck wird die Linie gezeichnet. Nun 
kann der Startpunkt einer neuen Linie eingegeben werden 
und so fort. 

Sie haben gerade die Funktionsweise des Grafik-Editors 
am Beispiel des Linien-Befehls kennengelernt. Die Einga¬ 
be der Parameter verläuft bei allen anderen Befehlen auf 
die gleiche Weise. 

Wichtige Editor-Funktionen 
Wie bereits erwähnt, sind die im Hauptmenü rechts auf- 


- Die Taste < R> gestattet das Messen von Abständen 
auf dem Bildschirm. Drückt man diese Taste, wird die mo¬ 
mentane Pfeilposition als Ausgangspunkt gewählt. Im obe¬ 
ren Bildschirmrand erscheint eine neue Koordinatenanzei¬ 
ge. Bewegen Sie nun den Pfeil in eine beliebige Richtung, 
wird mit diesen Koordinaten der Abstand zum Ausgangs¬ 
punkt angezeigt. Eine ständig mitgeführte Linie unterstützt 
dies. 

Der Werte »DX« und »DY« entsprechen den jeweiligen Ab¬ 
ständen in X- und Y-Richtung. »EN« gibt hingegen den ab¬ 
soluten Abstand an. Ein Beispiel sehen Sie in Bild 6. 

- Im Multicolor-Modus des C 64 ist jeder Grafikpunkt dop¬ 
pelt so breit wie hoch. Dies wirkt sich natürlich auch auf die 
Koordinatenangaben des Pfeils aus. Die Taste <K> be¬ 
wirkt deshalb, daß der Wert der Y-Koordinate halbiert wird. 
Dadurch können Entfernungen besser gemessen werden. 

- Mit der Taste <C> kann eine von fünf verschiedenen 
Cursorformen gewählt werden. Es stehen vier Pfeilformen 
und ein Fadenkreuz zur Verfügung. 

- Hält man die Taste <CTRL> und den Feuerknopf ge¬ 
drückt, wird eine Dauerfeuer-Funktion aktiviert. Sie gibt bei 
gedrücktem Feuerknopf in regelmäßigen Zeitabständen 
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ein Impuls an AMICA Paint, als würde der Feuerknopf des 
Joysticks oder der Maus schnell hintereinander betätigt 
und wieder losgelassen. Damit lassen sich interessante Ef¬ 
fekte erzielen. Probieren Sie diese Funktion selbst einmal 
aus. 

Die Tasten <W> und <DEL> haben ebenfalls eine 
wichtige Bedeutung im Grafik-Editor. Sie werden jedoch in 
einem späteren Abschnitt erklärt. 

Zeichenbefehle 


Der n-Eck-Befehl arbeitet ähnlich, hier wird jedoch nach 
Markierung des letzten Punktes durch doppeltes Drücken 
des Feuerknopfes eine Linie zum Startpunkt der ersten Li¬ 
nie gezogen. So entsteht eine geschlossene Figur. 

S - Strahlen, 

A - Antistrahlen 

Beim Strahlenbefehl bestimmen Sie zunächst einen ge¬ 
meinsamen Mittelpunkt, von dem alle Strecken ausgehen 
sollen. Daraufhin können die Endpunkte der einzelnen 


Drückt man im Hauptmenü oder Grafik-Editor die Taste 
<F1 >, gelangt man in ein Menü, das alle Zeichenbefehle 
enthält. Die gewünschte Funktion wird durch die entspre¬ 
chenden Tasten angewählt. 

P - Punkte 

Dies ist der einfachste Befehl eines jeden Malpro¬ 
gramms: Es werden auf Knopfdruck einzelne Punkte ge¬ 
setzt. 

F - Freihand 

Mit »Freihand« können beliebige Figuren erstellt werden. 
Bei gedrücktem Feuerknopf zeichnet AMICA Paint alle Be¬ 
wegungen nach, die Sie mit dem Joystick oder mit der 
Maus vornehmen. Diese Funktion kann bei Joystick- 
Steuerung nur sehr eingeschränkt verwendet werden, da 
der Joystick nur in acht Richtungen bewegt werden kann. 
Stellt man die »Knopf-Geschwindigkeit« des Pfeils jedoch 
sehr gering ein, lassen sich mit etwas Geschick Linien in al¬ 
le Richtungen ziehen. Bei der Steuerung mit der Maus ist 
diese Funktion jedoch von unschätzbarem Wert. Das Ein- 
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stellen der Geschwindigkeit wird im Abschnitt. »Editor- 


Bild 7. Kreise, Ellipsen, ja sogar Biegungen und Kurven 
aller Art sind für AMICA PAINT kein Problem. 


Parameter« beschrieben. 

L - Linie, 

Z - Streckenzug, 

N - n-Eck 

Der Linienbefehl wurde bereits zu Beginn ausführlich er¬ 
klärt. Mit ihm lassen sich einfache Linien zeichnen. 

»Streckenzug« ermöglicht es hingegen, eine neue Linie 
immer am Endpunkt der zuletzt gezeichneten Strecke be¬ 
ginnen zu lassen. Es muß lediglich ein neuer Endpunkt 
markiert werden. Den letzten Punkt des Streckenzuges 
setzt man mit zweifachem Knopfdruck. Danach kann ein 
neuer Streckenzug begonnen werden. 
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Bild 8. Eine »umweltfreundliche« Spraydose für Graffitis 


Strahlen gesetzt werden. Der Antistrahlen-Befehl arbeitet 
genau umgekehrt: Zunächst markiert man alle Endpunkte 
durch einfachen Knopfdruck. Sie werden blinkend darge¬ 
stellt. Der letzte Endpunkt wird durch doppelten Knopf¬ 
druck markiert. Anschließend wird der gemeinsame Aus¬ 
gangspunkt der Strahlen mit einfachem Knopfdruck festge¬ 
legt. Sofort zieht AMICA Paint Linien von den Endpunkten 
zum Ausgangspunkt. Der Ausgangspunkt läßt sich weiter¬ 
hin verschieben und wird durch erneuten Knopfdruck end¬ 
gültig bestimmt. Mit dieser Funktion können Sie interes¬ 
sante 3D-Effekte erzielen. 

G - Parallelogramm, 

Q - Quadrat, 

R - Rechteck 

Die Funktion »Parallelogramm« erfordert die Eingabe 
von drei Eckpunkten eines Parallelogramms mit dem Feu¬ 
erknopf des Joysticks oder der Maus. Der vierte Punkt wird 
automatisch errechnet. 

Der Zeichenbefehl »Quadrat« benötigt lediglich die An¬ 
gabe eines beliebigen Eckpunktes. Anschließend kann 
man durch Bewegen des Joysticks oder der Maus nach 
links oder rechts die Größe des Quadrats beeinflussen. Be¬ 
tätigt man den Joystick oder die Maus in vertikaler Rich¬ 
tung, läßt sich das Quadrat nachträglich nach oben oder 
unten verschieben. 

Für den Befehl »Rechteck« ist nur die Markierung zweier 
diagonal gegenüberliegender Eckpunkte notwendig. 

K -Kreis, 

B - Kreisbogen, 

E - Ellipse, 

0 - Ellipsenbogen 

Um einen Kreis zu zeichnen, ist zunächst dessen Mittel¬ 
punkt festzulegen. Danach kann man durch Bewegen des 
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Joysticks oder der Maus nach rechts oder links die Größe 
des Kreises wählen. Durch Auf- und Abbewegen des Pfeils 
läßt sich der Kreis zusätzlich in vertikale Richtung verschie¬ 
ben. Drückt man nun den Feuerknopf, wird der Kreis ge¬ 
zeichnet. 

Ist hingegen die Funktion »Kreisbogen« aktiviert, hat 
man zudem die Möglichkeit, einen Ausschnitt des gezeich¬ 
neten Kreises, also einen Kreisbogen, auszuwählen. Eine 
horizontale Bewegung des Joysticks oder der Maus ändert 
die Lage, eine vertikale die Größe des Bogens. Was auf den 
ersten Blick sehr verwirrend klingt, erweist sich nach eini¬ 
gen praktischen Versuchen als äußerst einfach. 

Im Gegensatz zum Kreis benötigt eine Ellipse insgesamt 
zwei Radien, um ihre endgültige Form festzulegen. Des¬ 
halb müssen bei den Befehlen »Ellipse« und »Ellipsenbo¬ 
gen« die Radien in X- und in Y-Richtung durch horizontales 
und vertikales Bewegen des Joysticks oder der Maus be¬ 
stimmt werden. Ein nachträgliches Verschieben der Ellipse 
läßt sich nun nicht mehr vornehmen. 

Mit den Ellipsen- und Kreisfunktionen lassen sich alle 
nur erdenklichen Biegungen und Kurven auf den Bild¬ 
schirm zaubern, wie es Bild 7 beweist. 

Flächenbefehle 


Neben den einfachen Linienbefehlen bietet AMICA Paint 
auch Funktionen zur Erzeugung von flächigen Gebilden, 
wobei diese mit dem aktuellen Muster oder der Zeichenfar¬ 
be gefüllt werden. Die Funktionen sind in einem speziellen 
Menü zusammengefaßt, das mit der Taste < F3 > aus dem 
Hauptmenü oder dem Grafik-Editor aufgerufen werden 
kann. Die Wahl der einzelnen Befehle erfolgt wiederum 
durch das Drücken der entsprechenden Tasten: 

R - Rechteck, 

Q - Quadrat, 

N - N-Eck 

Diese Funktionen kennen Sie schon als »Zeichenbefeh¬ 
le«. Die Bedienung erfolgt analog zu diesen. Der Unter¬ 
schied zu den »Flächenbefehlen« besteht darin, daß die Fi¬ 
guren nicht von Linien umrandet, sondern ausgefüllt dar¬ 
gestellt werden. 

K - Kreis, 

E - Ellipse, 

U -Kuchen (Kreis), 

O - Kuchen (Ellipse) 

Auch diese Funktionen werden wie die entsprechenden 
Zeichenbefehle Kreis, Kreisbogen, Ellipse und Ellipsenbo¬ 
gen bedient. Kreis und Ellipse werden jedoch ausgefüllt 
dargestellt. Mit den Kommandos »Kuchen (Kreis)« und »Ku¬ 
chen (Ellipse)« können gefüllte Kreis- und Ellipsenaus¬ 
schnitte konstruiert werden. So lassen sich beispielsweise 


Tortengrafiken erzeugen, von denen Sie einige Beispiele 
ebenfalls in Bild 7 bewundern können. 

F - Füllen 

Diese Funktion füllt beliebig geformte, geschlossene Flä¬ 
chen in der aktuellen Zeichenfarbe. Ist die Musterfunktion 
aktiviert (sie wird in einem späteren Abschnitt erklärt), so 
wird die betreffende Fläche im aktuellen Muster ausgefüllt. 
Dazu wird lediglich ein Punkt, der in der betreffenden Flä¬ 
che liegt, durch Knopfdruck markiert. 

Der Füllbefehl wurde so programmiert, daß denkbar 
komplexe Flächen einwandfrei gefüllt werden. Sollte den¬ 
noch einmal eine Fläche zu kompliziert sein, wird der Füll¬ 
vorgang vorzeitig abgebrochen. 

S - Sprühdose 

Dieser Befehl simuliert eine Sprühdose. Wird er ange¬ 
wählt, müssen, im Gegensatz zu den bisher besprochenen 
Funktionen, Parameter über die Tastatur eingegeben wer¬ 
den. Das Programm erwartet die Eingabe der Größe der 
Sprühdose, wobei X- und Y-Richtung getrennt betrachtet 
werden. Anschließend muß man die Stärke bestimmen, mit 
der gesprüht werden soll. Sie reicht von 0 (sehr stark) bis 
99 (sehr schwach). Wird die Taste < — > bei der Eingabe 
der Werte gedrückt, bleiben die zuletzt eingestellten Werte 
erhalten. Danach schaltet der Computer in den Grafik- 
Editor. Nun kann durch einen Druck auf den Feuerknopf die 
Sprühdose aktiviert werden. Dem Graffiti-Künstler steht 
nun nichts mehr im Wege. Bild 8 zeigt, welch interessante 
Farbeffekte erzeugt werden können. 

Block für Block 


Mit den uisher vorgestellten Befehlen lassen sich bereits in¬ 
teressante Grafiken erstellen. Sollen jedoch Bildteile nach¬ 
träglich verändert werden, benötigt man spezielle Blockbe¬ 
fehle. AMICA Paint bietet hierfür eine Vielzahl von Möglich¬ 
keiten, die auf dem C 64 bisher einzigartig sind. Sie sind in 
einem eigenen Menü untergebracht, das man durch 
Drücken der Taste <F5> erreicht. Die dort aufgelisteten 
Funktionen sind wie in allen anderen Menüs über die ent¬ 
sprechenden Tasten zu aktivieren. 

Die folgenden Befehle manipulieren rechteckige Bild¬ 
schirmausschnitte, die wir im weiteren Verlauf »Blöcke« 
nennen wollen. Die Markierung eines Blocks erfolgt dabei 
wie die Markierung eines Rechtecks (siehe oben). 

L - Laden, 

S - Speichern 

Mit »Speichern« können Teile des Bildes unter einem be¬ 
stimmten Namen (bis zu 13 Zeichen lang) auf Diskette ab¬ 
gelegt werden, um sie später mit »Laden« wieder in ein an- 



Bild 9. Das 64'er-Logo mit Variationen... Bild 10. ...hier gedreht... 
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deres Bild einzufügen. Wird beim Speichern versucht, ei¬ 
nen Block zu markieren, der mehr als 21000 Punkte umfaßt, 
verschwindet der Markierungsrahmen. Derart große 
Blöcke können mit dieser Funktion nicht bearbeitet wer¬ 
den. Beim Laden eines Blockes muß zunächst der Name 
des gewünschten Blockes eingegeben werden. Danach 
läßt sich der Block in der Grafik positionieren. 

Achtung: Aus Speicher¬ 
platzgründen funktioniert 
beim Laden und Speichern 
von Blöcken die UNDO- 
Funktion (also das Rück¬ 
gängigmachen von Fehlern 
mit der CBM-Taste) nicht! 


Sie wird erst wieder sichtbar, wenn der Winkel so geändert 
wird, daß der Block vollständig auf den Bildschirm paßt. Mit 
einem Knopfdruck startet man den Drehvorgang. Der Text 
»64’er« in Bild 9 läßt sich somit auf interessante Weise mani¬ 
pulieren. Die Sequenz aus Bild 10 und den folgenden Abbil¬ 
dungen zeigen, wie sich so mit geringem Aufwand un¬ 
glaubliche Erzeugnisse erzielen lassen. 


D - Directory 

Dieser Befehl zeigt alle 
Blöcke an, die sich auf der 
eingelegten Diskette befin¬ 
den. Mit < SPACE > wird 
die Ausgabe angehalten, 
erneutes Betätigen der Ta¬ 
ste < SPACE > setzt sie 
fort. 


Bild 13a und b. Wie mit einem Vergrößerungsglas... Ein Grafikausschnitt wird vergrößert. 


V - Verschieben 

Blöcke können sowohl innerhalb einer Grafikseite als 
auch zwischen den Grafikseiten verschoben werden. In je¬ 
dem Fall muß zunächst der gewünschte Block markiert 
werden. Zum Kopieren in die andere Grafikseite drücken 
Sie <G>. Der Markierungsrahmen kann nun auf dem 
Bildschirm verschoben werden, um die neue Position des 
Blockes zu bestimmen. Der Block läßt sich beliebig oft ver¬ 
vielfältigen. Nach Drücken der Taste <RUN/STOP> darf 
ein neuer Block markiert werden. 

F - Färben 


G - Vergrößern, 

K - Verkleinern 

Wird »Vergrößern« angewählt, müssen Sie zunächst ent¬ 
scheiden, ob die Vergrößerung in X- und Y-Richtung ver¬ 
hältnisgetreu (< G >) oder verzerrt (< B >) erfolgen soll. Im 
Grafik-Editor kann man schließlich nach der Markierung 
des Blockes die neue Größe des Ausschnitts einstellen. Mit 
dem Feuerknopf startet man den Vergrößerungsvorgang. 

Das »Verkleinern« eines Blockes kann mit beliebiger Ver¬ 
zerrung vorgenommen werden, die Bedienung erfolgt hier 
wie beim Vergrößern. 


Diese Funktion erlaubt das nachträgliche Verändern der 
in einem Block verwendeten Farben. Die neue Farbe ent¬ 
spricht der aktuellen Zeichenfarbe. Zunächst muß die alte 
Farbe mit dem Pfeil und dem Feuerknopf markiert werden. 
Anschließend ist der Block festzulegen, in dem diese Farb¬ 
veränderungen vorgenommen werden sollen. 

P - Spiegeln 

Dieser Befehl erfordert zunächst die Eingabe der Rich¬ 
tung, in die gespiegelt werden soll. »X« spiegelt dabei in ho¬ 
rizontaler, »Y« in vertikaler Richtung. Im Grafik-Editor ist da¬ 
nach der entsprechende Block zu markieren. 

E - Drehen 

Um einen Bildbereich zu drehen, müssen Sie zunächst 
den entsprechenden Block markieren. AMICA Paint rotiert 
diesen Bereich dann um den Mittelpunkt des Bildes. Der 

Drehwinkel läßt 
sich mit einer 
Joystick- oder 
Mausbewegung 
nach rechts oder 
links einstellen. 
Sollte der ent¬ 
sprechende 
Block beim Dre¬ 
hen über den 
Rand des sicht¬ 
baren Bildes hin¬ 
ausreichen, ver¬ 
schwindet die 
Markierung des 
Bild 12. ...und in den Raum gekippt. Blockes. 


R - Scheren, 

B - Biegen 

Stellen Sie sich vor, Sie zerschneiden ein Bild in viele 
Streifen, die anschließend schräg versetzt aneinanderge¬ 
legt werden. Dieser Effekt wird von der Funktion »Scheren« 
simuliert. 

Beim »Biegen« werden die Streifen an einen Halbkreis 
angelegt, dessen Krümmung mit dem Joystick oder der 
Maus bestimmt wird. Beide Funktionen lassen sich entwe¬ 
der in X- oder in Y-Richtung ausführen. Der Grad der Ver¬ 
zerrung wird nach dem Markieren des entsprechenden 
Blockes per Maus oder Joystick eingestellt. Ein Druck auf 
den Feuerknopf startet schließlich die Funktion. Wir haben 
die Funktion »Biegen« mit dem 64’er-Logo in Bild 9 auspro¬ 
biert. Das faszinierende Resultat ist in Bild 11 zu sehen. 

Wegen der geringen Grafikauflösung des C64 ergeben 
sich bei mehrmaligem Scheren oder Biegen desselben 
Blockes jedoch Ungenauigkeiten, die eine Vergröberung 
der Grafik zur Folge haben. 

I - Kippen, 

Z - Zerren 

Mit »Kippen« werden weiter oben liegende Teile eines 
Blockes in X-Richtung verkleinert, mit »Zerren« hingegen in 
Y-Richtung. Nach der Markierung eines Bildausschnittes 
kann wie gewohnt der Kippwinkel oder der Zerrfaktor durch 
Bewegen des Joysticks oder der Maus bestimmt werden. 
Kombiniert man beide Funktionen, ergibt sich ein Effekt, 
als hätte man den Block perspektivisch in den Raum ge¬ 
kippt. Auch hier haben wir das 64'er-Logo aus Bild 9 zu Ver¬ 
suchen herangezogen. Was dabei herauskam, können Sie 
in Bild 12 betrachten. 





SONDERHEFT 27 


13 








Stii# 







C64 


MALPROGRAMM 



Bei den Funktionen »Verkleinern«, »Biegen«, »Zerren«, 
»Kippen« und »Scheren« wirkt es sich manchmal störend 
aus, daß der alte Block nicht automatisch gelöscht wird. Ab¬ 
hilfe schafft hier folgende Vorgehensweise: Zuerst wird 
der Block mit der Funktion »Verschieben« und der Taste 
< G > in die zweite Grafikseite kopiert. Nun wählt man den 
gewünschten Blockbefehl an. Nach Markierung des 
Blockes muß die Taste <SHIFT CLR/HOME> gedrückt 
werden. Die Grafik im Hintergrund wird gelöscht, und die 
Befehlsausführung kann ganz normal fortgesetzt werden. 

AMICA Spezial 


Unter dem Menü »Spezialbefehle« sind einige Befehle zu¬ 
sammengefaßt, die sich in die bestehenden Menüs nicht 
einordnen lassen. Sie werden mit <F7> angewählt. 

F - Fenster definieren 

Mit dieser Funktion kann ein rechteckiger Bereich mar¬ 
kiert werden, auf den sich künftig alle über <F1> bis 
< F7> aufgerufenen Befehle beziehen. Punkte, die außer¬ 
halb des definierten Fensters liegen, werden nun nicht 
mehr verändert. Auf diese Weise können Sie einen recht¬ 
eckigen Ausschnitt der Grafik gezielt bearbeiten, während 
die übrigen Teile des Bildes unberührt bleiben. Um das de¬ 
finierte Fenster wieder aufzuheben, muß der Feuerknopf 
zweimal auf derselben Position gedrückt werden. Sollte 
man einmal die Größe und die Position des definierten Fen¬ 
sters vergessen, läßt es sich im Grafik-Editor mit der Taste 
<W> sichtbar machen. Für kurze Zeit erscheint ein Rah¬ 
men um den definierten Bereich. 

Z - Zoom-Modus 

Um die letzten Feinheiten eines Bildes auszuarbeiten, ist 
es von Vorteil, die einzelnen Bildpunkte vergrößert darzu¬ 


stellen. Mit der Zoom-Funktion können Sie einen 40 x 50 
Punkte großen Bildausschnitt vierfach vergrößert bearbei¬ 
ten. Nach Anwählen des Befehls erscheint zunächst ein 
kleiner Rahmen, den Sie mit dem Joystick oder der Maus 
auf einen beliebigen Bildschirmbereich positionieren kön¬ 
nen (Bild 13a). Ein Druck auf den Feuerknopf schaltet an¬ 
schließend den Vergrößerungsmodus ein (Bild 13b). Nun 
lassen sich einzelne Punkte mit dem Pfeil ansteuern und 
per Knopfdruck in der aktuellen Zeichenfarbe setzen. Die 
Zeichenfarbe wird mit <CTRL>, <CBM> und den Zif¬ 
ferntasten <1> bis <8> genau wie im Basic-Editor ge¬ 
wählt. Sie können jedoch auch mit den Tasten <A> bis 
<P> erreicht werden. 

Mit den Cursortasten läßt sich der gewählte Ausschnitt 
an eine andere Stelle bewegen, so daß auch größere Bild¬ 
bereiche im Zoom-Modus bearbeitet werden können. Es 
kann ?"ch nicht Vorkommen, daß das Zoom-Fenster genau 
an der Stelle liegt, die Sie vergrößern wollen. Durch ge¬ 
schickte Programmierung springt in diesem Fall das Zoom- 
Fenster in einen anderen Bereich des Bildschirms. 

Mit <RUN/STOP> gelangt man schließlich zurück in 
den Grafik-Editor. Das Rückgängigmachen von Fehlern mit 
der Undo-Funktion ist hier nicht mehr möglich. 

T - Text 

Der Textbefehl ermöglicht das Einfügen von Texten in die 
Grafik. Zunächst legen Sie mit dem Joystick oder der Maus 
einen Ort in der Grafik fest, an der sich der erste Buchstabe 
der Textzeile befinden soll. Nach Drücken des Feuerknop¬ 
fes kann der Text über die Tastatur eingegeben werden. 

Mit der Taste < DEL> wird das letzte Zeichen gelöscht, 
so daß Schreibfehler sofort korrigiert werden können. 
Drückt man hingegen die Taste < RETURN >, springt der 
Cursor in die nächste Zeile, um dort die Texteingabe fortzu¬ 
setzen. Die darüberliegenden Zeilen lassen sich dann 
nicht mehr verändern. 





Bilder 15a bis c. Schatten lassen Flächen räumlicher wirken. Die Markierung eines Blocks genügt. Der Richtungsvektor 
wird festgelegt und das schattierte Objekt ist fertig. 
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Bild 16. 
AMICA 
Paint als 
Farbenwä¬ 
scher. Eine 
stilisierte 
Kugel vor¬ 
her... 


...und 
nachher. 
Ein verblüf¬ 
fender Ef¬ 
fekt. 


K - Konturen 

Dieser Befehl hebt Farbübergänge innerhalb eines 
Blockes durch Konturen in der aktuellen Zeichenfarbe her¬ 
vor. Dazu muß lediglich ein Block markiert werden. 


Wird während der Texteingabe der Pfeil an eine andere 
Stelle bewegt, so kann die gesamte Textzeile mit der Ta¬ 
stenfolge <F1 > und < DEL> an diese Stelle verschoben 
werden. 

< RUN/STOP > beendet die Texteingabe. 

D - 3D Effekt, 

S - Schatten 

Die Befehle »3D Effekt« und »Schatten« wendet man vor¬ 
nehmlich auf ebene Gebilde wie Kreise, Quadrate oder Tex¬ 
te an. Der Schatten-Befehl berechnet den Schatten, den ei¬ 
ne Fläche wirft, wenn sie vor einer Wand steht. 

Mit dem 3D-Effekt hingegen wirken zweidimensionale 
Objekte räumlich. AMICA Paint verschiebt dazu das Objekt 
entlang eines beliebigen Vektors, der mit der Maus oder 
dem Joystick festgelegt wird. 

Um die Funktionsweise dieser Befehle zu verdeutlichen, 
betrachten Sie bitte die Bilder 14 und 15. Dort sehen Sie, 
wie 3D-Effekte und Schatten erzeugt werden. 

In der ersten Phase muß ein Bildausschnitt festgelegt 
werden, auf den die 3D- oder Schatten-Funktion wirken 
soll. Auf diese Weise lassen sich gezielt Objekte aus dem 
Gesamtbild herausgreifen. Danach ist die Farbe festzule¬ 
gen, die den Schatten werfen oder den 3D-Effekt hervorru- 
fen soll. Bewegen Sie dazu den Joystick oder die Maus auf 
einen beliebigen Punkt des betreffenden Objekts mit der 
gewünschten Farbe und drücken Sie den Feuerknopf. An¬ 
schließend bestimmen Sie einen weiteren Punkt. Er gibt 
die Richtung an, in die das Objekt gezogen oder die Schat¬ 
tierung ausgeführt werden soll. Beim Schatten-Effekt legt 
die Farbe des Punktes zudem jene Farbe fest, auf die der 
Schatten fällt. 


Verwischens anzugeben. Sie reicht von 0 für »sehr stark« 
bis 99 für »sehr schwach«. 

Anschließend schaltet AMICA Paint in den Grafik-Editor. 
Auch hier muß ein Block markiert werden, auf den sich das 
Verwaschen bezieht. Jetzt müssen zwei Farben ausge¬ 
wählt werden, die AMICA Paint im vorgegebenen Bereich 
verwaschen soll. Die Bilder 16a und 16b zeigen, welch ein¬ 
drucksvolle Ergebnisse durch Verwaschungen entstehen 
können. Auch Graustufen führen verwaschen zu einem 
herrlichen Effekt (Bilder 17a und 17b) 

M - Mischen 

Interessante Effekte entstehen, wenn man zwei Bildteile 
vermischt. Besonders sehenswert ist ein Block, der leicht 
versetzt nit sich selbst vermischt wurde, wie es die Bilder 
18a und 18b zeigen. Man bedient diesen Befehl wie den 
Block-Befehl »Verschieben«. 

Füllmuster und Pinselformen 


Damit haben wir alle Zeichen- und Blockfunktionen von 
AMICA Paint erläutert. Aber noch ist das schier unerschöpf¬ 
liche Reservoir an Befehlen und Funktionen nicht er¬ 
schöpft. Füllmuster und Pinselformen erlauben zusätzlich 
die Manipulation von Linien, Flächen und einzelnen Punk¬ 
ten. Sie können über ein weiteres Menü ausgewählt wer- 


V - Verwaschen 

Besonders wenn Licht- und Schatteneffekte dargestellt 
werden sollen, ist es oft notwendig, sanfte Farbübergänge 
zu schaffen. Damit solche Übergänge nicht in mühsamer 
Kleinarbeit gezeichnet werden müssen, stellt AMICA Paint 
einen besonders leistungsfähigen Befehl dafür bereit: das 
Verwaschen. 

Wie die Sprühdose, benötigt dieser Befehl Eingaben 
überdie Tastatur. Dazu gehört die Größe des Übergangsbe¬ 
reiches, die zwischen beiden Farben entstehen soll. Sie 
wird auch »Streuung« genannt. Danach ist die Stärke des 


Bild 18a. Ein schönes Bild mit AMICA Paint erstellt... 
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Bilder 
17a und b. 
Auch Grau¬ 
stufen las¬ 
sen sich 
vorzüglich 
verwa¬ 
schen. Hier 
vorher... 


...und 
nachher. 
Ein metalli¬ 
scher Ef¬ 
fekt Ist ent¬ 
standen. 



den, das mit der Taste < F> aufgerufen wird. Dort stehen 
folgende Funktionen zur Verfügung: 

Z - Zeichenfarbe 

Die Zeichenfarbe kann aus den 16 Farben des C64 frei 
gewählt werden. Eine Farbe wird wie bei der Zoom- 
Funktion entweder mit den Farbtasten oder mit den Tasten 
<A> bis <P> ausgesucht. Die Zeichenfarbe ist immer 
dann von Bedeutung, wenn keine Farbpinsel oder Füllmu¬ 
ster aktiviert sind. 

M - Muster 

Nach dem Betätigen der Taste <M> erscheint ein Un¬ 
termenü zur Bearbeitung von Mustern, das in Bild 19 Zuse¬ 
hen ist. AMICA Paint bietet verschiedenste Standardmu- - 
ster an, die beliebig verändert werden können. 

Das aktuelle Muster wird stets in einem Fenster vergrö¬ 
ßert dargestellt, während man mit den Cursortasten 
<CRSR rechts> und <CRSR abwärts > in der Muster¬ 
auswahl vor- und zurückblättern kann. Hat man das ge¬ 
wünschte Muster ausgewählt, wird es mit <M> aktiviert. 

Drückt man hingegen die Taste < K >, ist das Muster wie¬ 
der abgeschaltet. 

Eine Besonderheit von AMICA Paint ist es, neben den 
vorgegebenen Mustern die gesamte zweite Grafikseite als 
riesiges Füllmusterzu verwenden. Um diesen Effekt zu ver¬ 
meiden, drücken Sie bitte <S>. 



Bild 18b. ...wurde hier In einem Teilbereich (VICE) mit sich 
selbst leicht versetzt vermischt. 


Auf diese Weise haben Sie zum Beispiel die Möglichkeit, 
Flächen eines Bildes mit Ausschnitten eines anderen Bil¬ 
des zu füllen, was zu sehr eindrucksvollen Ergebnissen 
führen kann. 

Um auch Muster nach eigenen Vorstellungen gestalten 
zu können, gestattet das Programm, durch Betätigen von 
<E>, das angezeigte Muster beliebig zu verändern oder 
komplett neu zu gestalten. Mit dem Joystick oder der Maus 
können Sie nun innerhalb des Fensters die einzelnen Punk¬ 
te des Musters in der aktuellen Farbe setzen. Auch hier wird 
die momentane Farbe mit den Tasten <A> bis <P> ge¬ 
wählt. 

Muster können auch verwendet werden, um neue Far¬ 
ben durch Mischen von zwei Standardfarben zu erzeugen. 
Der Mustereditor von AMICA Paint ist hier ebenfalls behilf¬ 
lich. Stellen Sie zunächst mit der entsprechenden Taste die 
erste Farbe ein, und löschen das gesamte Muster. Nun ist 
die zu mischende Farbe auszuwählen. Drücken Sie an¬ 
schließend die Taste <X>, »vermengt« AMICA Paint die 
zweite Farbe mit der ersten, so daß ein Muster aus der 
Mischfarbe der beiden Ausgangsfarben entsteht. 

<SHIFT CLR/HOME> löscht das Muster in der einge¬ 
stellten Farbe. Die Taste < RUN/STOP > führt schließlich in 
das übergeordnete Mustermenü zurück. 

Haben Sie ein Muster aktiviert, wirkt dies bei den Flä¬ 
chenbefehlen Rechteck, Quadrat, N-Eck, den Funktionen 
Füllen, Einfärben, Text, Zoom-Modus, 3D, Schatten und 
Konturen. Ist weiterhin kein Farbpinsel eingestellt, sind 
auch alle Zeichenbefehle (mit <F1> gewählt) und die 
Sprühdose davon betroffen. Damit sind Sie zum Beispiel 
imstande, gemusterte Texte oder Tortengrafiken zu gestal¬ 
ten oder gar in Mustern zu sprühen. Bild 20 zeigt einige Mu¬ 
sterbeispiele. 

S - Stricheln 

Alle Linien werden in der Regel ohne Unterbrechungen 
gezeichnet. AMICA Paint stellt jedoch auch gestrichelte Li¬ 
nien dar. Auf diese Weise können beispielsweise gestri¬ 
chelte Kreise oder Rechtecke problemlos erstellt werden. 
Die Strichelung darf sogar selbst festgelegt werden. 

Hat man sich für die Funktion »Stricheln« entschieden, 
erscheint ein weiteres Menü mit einer Vielzahl an Funktio¬ 
nen. Wie bei den Füllmustern kann zwischen einer Reihe 
von vorgegebenen Strichelungsarten gewählt werden. Das 
aktuelle Strichelmuster wird dabei in einem Fenster vergrö¬ 
ßert angezeigt und kann mit den Cursortasten <CRSR 

links> und <CRSR abwärts> vor- und zurückgeblättert 
werden. Drückt man <S>, werden von nun an alle Linien 
in der angezeigten Strichelung gezeichnet. 
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Ist man mit den gespeicherten Standard-Mustern nicht 
zufrieden, gelangt man mit <E> in den Editiermodus. 
Dort darf das momentane Strichelmuster nach eigenem Er¬ 
messen bearbeitet werden. Ein dicker Punkt im Muster be¬ 
deutet, daß der entsprechende Punkt der Linie gezeichnet 
werden soll. Ein kleiner Punkt zeigt hingegen eine Lücke in 
der Linie an. Die Tasten <L> und <S> schalten jeweils 
das Löschen oder Setzen von Punkten ein, während man 
mit dem Joystick oder der Maus die einzelnen Punkte der 
Strichelung bearbeitet. Das Editieren wird mit 
< RUN/STOP > beendet und führt in das übergeordnete 
Menü zurück. 

Will man den Strichelmodus wieder aufheben, ist < N > 
zu betätigen. 

Die Strichel-Funktion wirkt sich auf alle Befehle aus, die 
mit Linien arbeiten. 

P - Pinselformen 

Ist Ihnen das Malen mit einfachen Linien zu eintönig, su¬ 
chen Sie sich doch einfach mit dem Menüpunkt »Pinselfor¬ 
men« einen neuen Pinsel aus. Dazu erscheint ein weiteres 
Untermenü, das verschiedenste Funktionen anbietet. 

Grundsätzlich hat man bei AMICA Paint die Wahl zwi¬ 
schen einfarbigen oder bunten Pinseln. Diese können ein¬ 
fach aus der Gesamtgrafik herausgegriffen werden. 
Drücken Sie <D>, schaltet AMICA Paint in den Grafik- 
Editor. Hier kann nun ein Teil des Bildes als Farbpinsel auf¬ 
gegriffen werden. Versucht man, den Pinsel zu groß zu 
wählen, verschwindet der Markierungsrahmen. Der so de¬ 
finierte Pinsel wird mit <F> im Pinselmenü aktiviert. 

Soll der Pinsel jedoch nur einfarbig sein, ist <G> zu be¬ 
tätigen. Die Größe des nun markierten Bereichs spielt da- 



Bild 19. Ein eigenes Menü erlaubt die Auswahl und Verän¬ 
derung von Mustern 

Bild 20. AMICA Paint - einfach musterhaft. 
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Bild 21. »Modern Art« mit AMICA Paint - Ein neuer Pinsel 
macht’s möglich. 

bei keine Rolle. Es dürfen sich jedoch nicht mehr als 128 ge¬ 
setzte Punkte in dem Block befinden. AMICA Paint interpre¬ 
tiert die Farbe der oberen linken Ecke des Blockes als Hin¬ 
tergrundfarbe. Alle Punkte mit anderen Farben werden als 
gesetzt erkannt und in die Pinsel-Definition übernommen. 
Der markierte Pinsel muß anschließend im Pinselmenü mit 

< S > eingeschaltet werden. Von nun an wird mit ihm in der 
aktuellen Zeichenfarbe gemalt, unabhängig von der ur¬ 
sprünglichen Farbe des markierten Bildbereichs. 

Neben diesen Pinselarten darf mit < P > auch ein recht¬ 
eckige:- J insel beliebiger Größe ausgewählt werden, mit 
dem in der Zeichenfarbe gemalt wird. Es muß lediglich die 
gewünschte Pinselgröße - in Punkten gemessen - einge¬ 
geben werden. 

Selbstverständlich kann ein definierter Pinsel wieder ab¬ 
geschaltet werden. Drücken Sie dazu bitte im Pinselmenü 

< N >. AMICA Paint schaltet dann auf den Standard-Pinsel 
der Größe von einem Grafikpunkt zurück. 

Die eingeschaltete Pinselform wirkt sich auf alle Zei¬ 
chenfunktionen, die über <F1 > angewählt werden, und 
auf die Sprühdose aus. Je nach Pinselform entstehen inter¬ 
essante Effekte (Bild 21). 

R - Prioritäten 

Diese Funktion ermöglicht es, Prioritäten unter den 16 
Farben des C64 festzulegen. Bei eingeschalteter Prioritä¬ 
tentabelle prüft der Computer stets, wenn ein Punkt an eine 
bestimmte Stelle gesetzt werden soll, welche Farbe sich im 
Augenblick an dieser Stelle befindet. Aus dieser Farbe und 
der Farbe des zu setzenden Punktes ermittelt der Compu¬ 
ter nun eine - vom Benutzer bestimmte - Farbe, die gesetzt 
wird. Es ist also möglich, für jede Kombination aus 
Hintergrund- und Zeichenfarbe die tatsächlich zu setzende 
Farbe festzulegen. Man könnte zum Beispiel bestimmen, 
daß Gelb zusammen mit Blau die Farbe Grün ergibt, Gelb 
mit Schwarz jedoch Braun. Gleichzeitig könnte Gelb auf 
Orange gar nichts bewirken, also die Farbe Orange selbst 
ergeben. 

Angewendet wird die Prioritätentabelle unter anderem, 
wenn bestimmte Farben eines Farbpinsels oder eines Gra¬ 
fikausschnittes den Hintergrund »durchscheinen« lassen 
sollen. Ebenso können Farben des Bildes vor Übermalen 
gesichert werden, indem man für alle Kombinationen aus 
Zeichenfarbe und zu sichernder Farbe festlegt, daß die Far¬ 
be selbst gesetzt wird. 
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Mit der Prioritätentabelle lassen sich 4096 verschiedene 
Verknüpfungsarten von Hintergrund und Vordergrund rea¬ 
lisieren. Sie ermöglicht auch die Simulation von Verknüp¬ 
fungen wie AND, OR und EXOR. 

Nach Aufruf der Prioritäten-Funktion im »Muster/Farben- 
Menü« mit <R> wird die aktuelle Tabelle auf dem Bild¬ 
schirm ausgegeben (Bild 22). Im oberen Rand sind die Zei¬ 
chenfarben (oder Vordergrundfarben) aufgeführt, am lin¬ 
ken Rand die Hintergrundfarben. Die Farbe, die beim 
Zeichnen mit Schwarz auf Rot entsteht, entnimmt man also 
dem Schnittpunkt der ersten Spalte (Vordergrund schwarz) 
und der dritten Zeile (Hintergrund rot). Sie können nun ein¬ 
zelne Farbkombinationen manipulieren, indem Sie sie mit 
dem Pfeil ansteuern und auf Knopfdruck ändern. Die Farbe 
kann wieder mit <A> bis <P> oder den Farbtasten ge¬ 
wählt werden. 

Neben der direkten Bearbeitung der Tabelle verfügt die 
Prioritäten-Funktion auch über einige Hilfsbefehle, die spe¬ 
zielle Veränderungen der Zeilen und Spalten hervorrufen. 

Drückt man <Y>, werden alle Farbkombinationen auf 
die entsprechende Vordergrundfarbe gesetzt. Dies ent¬ 
spricht dem Zustand bei ausgeschalteter Tabelle. 

<X> blockiert alle Farben, das heißt, daß stets die Hin¬ 
tergrundfarbe erhalten bleibt, gleichgültig mit welcher Far¬ 
be gezeichnet wird. 

< Z > stellt hingegen die Zeile auf die Hintergrundfarbe, 
die gerade mit dem Pfeil angesteuert wird. Die gewählte 
Farbe erhält also höchste Priorität und kann nicht mehr 
übermalt werden. 

Durch <S> wird eine Farbe vom Zeichnen ausgenom¬ 
men. 

Mit <Q> kann die Prioritätentabelle, abgeschaltet wer¬ 
den. Dies sollte immer geschehen, wenn sie nicht benötigt 
wird, da sie die Ausführungszeit der Befehle verlängert. 

<T> schaltet die Tabelle wieder ein. 

In Bild 23 sehen Sie ein kleines Beispiel dafür, was eine 
eingeschaltete Prioritätentabelle bewirkt. 

L - Parameter laden, 

A - Parameter speichern 

Jeder definierte Pinsel, alle Muster, die Vorschriften für 
das Stricheln von Linien und die Prioritätentabelle können 
auf Diskette gespeichert werden, um sie später wieder zu 
laden. Beim Laden und Speichern muß jeweils ein maximal 
dreizehn Zeichen langer Name eingegeben werden. Ein 
Verzeichnis aller Füllmuster auf der eingelegten Diskette 
erhalten Sie mit <D>. 

Hinweis: Wird beim Speichern der Name »A.PAINT PI« 
verwendet und das File »A.PAINT PI« im Diskmenü zuvor 
gelöscht, stehen die Parameter nach dem Laden von AMI¬ 
CA Paint automatisch bereit. Die vordefinierten Muster ge¬ 
hen dabei allerdings verloren. 

Alles für die Floppy... 


Das Diskmenü wird mit der Taste < D > aus dem Hauptme¬ 
nü oder dem Grafik-Editor aufgerufen. Hier kann man mit 
< D> das gesamte Directory der eingelegten Diskette an- 
sehen, oder mit < B> Floppykommandos senden. Die Ta¬ 
ste < I > zeigt hingegen nur die Dateien an, die mit AMICA 
Paint gespeichert wurden. 

Damit AMICA Paint eigene Files erkennen kann, werden 
die ersten drei Zeichen des Filenamen für eine Kennung 
verwendet. Auf diese Weise wird verhindert, daß irrtümlich 
Dateien geladen werden, die nicht mit AMICA Paint gespei¬ 
chert wurden (was zu einem Programmabsturz führen 
könnte). Jetzt wissen Sie auch, warum nur maximal drei¬ 
zehn Zeichen bei der Namensgebung zulässig sind. 

3 * 3 ? 


Die Bedeutung der einzelnen Kennungen 

Aufbau des Namen 

Art der Datei 

Belegte Blöcke auf Disk 

[B]FILENAME 

Komplettes Bild 

1-42 

[AJFILENAME 

Block 

1-45 

[FJFILENAME 

Füllmuster 

g 

[MjFILENAME 

Makro 

i 

[EjFILENAME 

Editorparameter 

i 

[WJFILENAME 

Erweiterung 

1-16 



Bild 22. AMICA Paint erlaubt es, Prioritäten zwischen allen 
Farben zu vereinbaren. Hier das dazugehörige Menü. 


Bild 23. Prioritäten zwischen Farben erschließen unzählige 
Einsatzmöglichkelten. Hier sehen Sie ein kleines Beispiel. 
Verschiedenfarbige Rechtecke überschnefden sich. An den 
Berührungsstellen ändert sich die Farbe entsprechend der 
eingestellten Farb-Prioritäten. 


Mit einem Druck auf die Taste <S> im Diskmenü spei¬ 
chert man das momentan im Speicher befindliche Bild im 
AMICA Paint-Format. Diese Bilder (sowie gespeicherte Bild¬ 
ausschnitte) werden gepackt gespeichert. Sie benötigen 
daher weniger Speicherplatz auf der Diskette als die Grafi¬ 
ken anderer Malprogramme. Der nötige Speicherplatz ist 
jedoch von Bild zu Bild verschieden. 

Analog zum Speichern werden Bilder im AMICA Paint- 
Format mit dem Menüpunkt <L> wieder geladen. 

Die gepackte Speicherung im AMICA Paint-Format hat 
allerdings auch einige Nachteile: Bevor solche Bilder verar¬ 
beitet werden können, müssen sie wieder »entpackt« wer¬ 
den. Das bedeutet, daß AMICA Paint-Bilder ohne jene Rou¬ 
tinen zum Entpacken von anderen Grafikprogrammen 
nicht weiterverarbeitet werden können. Da für Bilder im 
Koalapaint-Format bereits viele Hilfsprogramme existieren, 
wie etwa für den Ausdruck, verfügt AMICA Paint zusätzlich 
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Bild 24a bis 24c. In wenigen Schritten entsteht durch Verzerren und Überlagern von Makros ein vollkommen neues Bild. 


über Lade- und Speicherroutinen für dieses Format. Sie 
werden im Diskmenü mit <K> und <0> aufgerufen. 

AMICA Paint setzt für Bilder im Koalapaint-Format stets 
die Startadresse $6000. Koalapainter selbst ignoriert beim 
Laden der Bilder diese Adresse. Manche Programme be¬ 
nötigen diese Angabe jedoch. Sollte es gelegentlich nötig 
sein, Bilder mit einer anderen Startadresse zu speichern, 
stellen wir ein kleines Utility zur Verfügung, das diese Ar¬ 
beit übernimmt. Wir werden später darauf zurückkommen. 

Seitenweise 


ln einem besonderen Menü, das mit < S > aufgerufen wird, 
sind einige Befehle aufgeführt, die sich auf die gesamte 
Grafik auswirken. 

L - Löschen 

Zum Löschen des kompletten Bildes muß zunächst die 
Farbe eingegeben werden, mit der gelöscht werden soll. 
Diese Farbe wird ebenfalls zum Löschen verwendet, wenn 
im Grafik-Editor <SHIFTCLR/HOME> gedrückt wird. Ha¬ 
ben Sie diese Funktion versehentlich angewählt, drücken 
Sie anstelle einer Farbtaste < RUN/STOP >. 

K - Kopieren 1 >2, 

O - Kopieren 2 > 1 

AMICA Paint verfügt über zwei Grafikseiten, die jeweils 
ein komplettes Bild aufnehmen können. Darüber hinaus 
kann eine der Seiten auch als Speicher für Pinseldefinitio¬ 
nen oder als Hilfsbereich bei der Blockbearbeitung dienen. 
Wie Sie bereits wissen, kann man mit < G > im Grafik-Edi¬ 
tor stets zwischen beiden Seiten hin- und herschalten. Mit 
< K> im Seitenmenü kann nun der Inhalt der im Grafik-Edi¬ 
tor sichtbaren Seite in die zweite Seite kopiert werden. 
<0> startet hingegen den umgekehrten Vorgang. 

Bitte beachten Sie: Nach irrtümlichem Löschen oder Ko¬ 
pieren der Grafik ist kein UNDO mehr möglich. Dies gilt 
nicht für <SHIFT CLR/HOME> im Grafik-Editor. 

F - Färben 

Diese Funktion entspricht weitgehend dem Färben von 
Bildausschnitten. Hier wird jedoch der gesamte Bildschirm 
neu eingefärbt. Es ist deshalb kein Block zu markieren. 

Wichtiger Hinweis: Soll ein Bild nach Verwendung dieser 
Funktion noch weiterbearbeitet werden, muß es erst umfor¬ 
matiert werden. Weitere Erklärungen dazu später. 

Sonstiges 


Das Menü mit dem Namen »Sonstiges« kann aus dem 
Grafik-Editor oder dem Hauptmenü mit <0> aufgerufen 
werden. Dort finden Sie Zusatzbefehle von AMICA Paint. 


U - Umformatieren 

Um schnelle Ausführungszeiten für alle Befehle zu errei¬ 
chen, liegt eine Grafik von AMICA Paint im Speicher des 
C64 in einem speziellen Format vor. Bilder, die mit anderen 
Programmen erstellt wurden, entsprechen nicht unbedingt 
diesem Format. Solche Bilder sollten daher vor der ersten 
Verarbeitung mit AMICA Paint umformatiert werden, so daß 
keine Komplikationen auftreten. 

AMICA Paint arbeitet mit einer besonderen Konfiguration 
des Farbspeichers. Farbinformationen eines »fremden« Bil¬ 
des können deshalb von AMICA Paint fehlinterpretiert wer¬ 
den. Dies erkennt man daran, daß in einer Grafik fälschli¬ 
cherweise Punkte oder kleine Kästchen erscheinen, die 
das Gesamtbild erheblich stören können. 

Hinweis: Wenn Sie eine Grafik mit dem Seitenbefehl 
»Färben« bearbeitet haben, ist für die weitere Arbeit eben¬ 
falls eine Umformatierung notwendig. 

D - Diashow 

Mh di ssem Befehl können Sie alle Grafiken einer Disket¬ 
te nacheinander ansehen, ohne die Programmnamen ein¬ 
geben zu müssen. Das nächste Bild wird jeweils durch ei¬ 
nen Druck auf den Feuerknopf des Joysticks oder der Maus 
gezeigt. Es werden sowohl AMICA Paint-Bilder als auch 
Grafiken im Koalapaint-Format gezeigt. Die Reihenfolge 
der Bilder richtet sich danach, in welcher Reihenfolge sie 
auf Diskette gespeichert wurden. 

Achtung: Das aufwendige Scrolling, mit dem sich die 
Bilder auf eindrucksvolle Weise abwechseln, benötigt so¬ 
viel Speicherplatz, daß beide Grafikseiten durch die Dia¬ 
show in Anspruch genommen werden. Auf der zweiten Sei¬ 
te befindliche Bilder werden gelöscht. 

A - AMICA Animation, 

P - AMICA Print 

Diese beiden Funktionen sind für die Zukunft geplant. 
Sie können in späteren Versionen von AMICA Paint aufge¬ 
rufen werden. 

E - Erweiterungen 

Mit dieser Funktion können Zusatzbefehle, die später 
einmal programmiert werden, von AMICA Paint angewählt 
werden. Informationen zum Aufbau solcher Erweiterungen 
finden Sie am Ende dieser Anleitung in einem eigenen Ab¬ 
schnitt. 

F - Farbrotation 

Diese Funktion macht es möglich, durch zyklisches Ver¬ 
tauschen bestimmter Farben eine scheinbare Bewegung 
des Bildes hervorzurufen. Hat man »Farbrotation« im »Son- 
stiges«-Menü gewählt, erscheint ein kleines Untermenü. 
Hier können Sie mit < L> die im Moment bestehende Ver¬ 
tauschungsvorschrift löschen. Betätigt man die Taste 
<Z>, schaltet AMICA Paint in den Grafik-Editor. Dort wählt 
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man die Farben aus, die miteinander vertauscht werden 
sollen. Positionieren Sie dazu den Pfeil auf einen Punkt der 
gewünschten Farbe und drücken Sie den Feuerknopf. 

Drücken Sie anschließend die < RUN/STOP>-Taste, 
läßt sich eine zweite oder dritte Gruppe von Farben bestim¬ 
men, die unabhängig voneinander rotiert werden. <S> 
(für Sequenz) führt Sie ebenfalls in den Grafik-Editor. Dort 
können Sie nun für eine Farbe eine komplette Farbfolge 
wählen, die die betreffende Farbe durchlaufen soll. Mit der 
< RUN/STOP >-Taste können wiederum weitere Sequen¬ 
zen definiert werden. 

Haben Sie die Farbrotation wunschgemäß festgelegt, 
wird die Farbvertauschung im Grafik-Editor oder während 
der Diashow mit der Taste < DEL > gestartet. Der Vorgang 
kann mit jeder beliebigen Taste abgebrochen werden. Das 
Bild wird danach wieder in den ursprünglichen Farben dar¬ 
gestellt. 

Q - Programm Ende 

Hier können Sie die Arbeit mit AMICA Paint beenden, oh¬ 
ne den Computer auszuschalten. Es erfolgt zunächst eine 
Abfrage, ob Sie das Programm wirklich verlassen wollen. 
Anschließend wird ein Reset ausgelöst. 


Editorparameter 


Damit Sie die Arbeit mit AMICA Paint Ihren Wünschen ent¬ 
sprechend gestalten können, lassen sich unter diesem Me¬ 
nüpunkt viele für die Bedienung wichtige Einstellungen 
verändern. Diese Einstellungen werden im folgenden »Edi¬ 
torparameter« genannt. Das Menü »Editorparameter« errei¬ 
chen Sie im Häuptmenü oder im Grafik-Editor mit <E>. 

Folgende Fkrameter können verändert werden: 
Bildsräirmfarben 

Hier läßt sich die Farbgebung der Menüs bestimmen. Sie 
können die Farben beliebig einstellen, wobei Sie auf aus¬ 
reichenden Kontrast achten sollten. Welche Farbkombina- 
tion die beste Darstellung bietet, hängt vornehmlich vom 
angeschlossenen Monitor ab. 

Grafikcursor 

Es ist Ihnen vielleicht schon aufgefallen, daß der Pfeil im 
Grafik-Editor bei der Joystick-Steuerung beschleunigt. Alle 
Parameter, die für diese Bewegung wichtig sind, lassen 
sich ebenfalls ändern. Ist die Maus aktiviert, haben sie kei¬ 
ne Bedeutung. 

»Minimal Geschwindigkeit« bezeichnet die Geschwin¬ 
digkeit, die der Pfeil erhält, sobald er aus der Ruhe heraus 
bewegt wird. Kleine Werte sorgen für ein genaues Positio¬ 
nieren des Pfeils. 

»Maximal Geschwindigkeit« ist die Geschwindigkeit, die 
AMICA Paint auch bei lang anhaltender Beschleunigung 
nicht überschreitet. 

»Knopf Geschwindigkeit«: Diese Geschwindigkeit nimmt 
der Pfeil an, wenn der Feuerknopf gedrückt wird. 

»Knopf bei Bewegung«: Wird hier »Möglich« gewählt, ak¬ 
zeptiert AMICA Paint jeden Druck auf den Feuerknopf. 
Wählen Sie dagegen »Nicht möglich« aus, wird ein Druck 
auf den Feuerknopf nur dann bearbeitet, wenn sich der Joy¬ 
stick in Mittelstellung befindet. Diese Einschränkung gilt 
nicht für die Befehle »Sprühdose« und »Freihand«. 

»Beschleunigung«: Hohe Werte bewirken, daß der Pfeil 
die Maximal-Geschwindigkeit schnell erreicht. Geringe 
Werte verursachen ein langsames Steigern der Geschwin¬ 
digkeit. 

»Verzögerung für Beschleunigung«: Dieser Wert be¬ 
stimmt die Zeit, die verstreicht, bis der Pfeil überhaupt be¬ 
schleunigt wird. Je größer dieser Wert gewählt wird, desto 
länger bewegt sich der Pfeil mit der minimalen Geschwin¬ 
digkeit. 
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Sind alle Werte zu Ihrer Zufriedenheit eingestellt, können 
nun alle Parameter mit der Taste <S> unter einem bis zu 
dreizehn Zeichen langen Namen auf Diskette gespeichert 
werden. Mit < L> lassen sie sich wieder laden. Da mehre¬ 
re Editorparameter gespeichert werden dürfen, gibt ein 
Druck auf die Taste <D> alle auf der eingelegten Diskette 
gespeicherten Parameter aus. 

Hinweis: Auf Wunsch werden ihre Einstellungen bei je¬ 
dem Programmstart automatisch geladen. Dazu müssen 
Sie die Datei »A.PAINT P4<< löschen und ihre Parameter un¬ 
ter dem Namen »:A.PAINT P4« speichern. Vergessen Sie 
aber nicht den Doppelpunkt zu Beginn des Dateinamens! 

AMICA Point als Grafik-Stenotypist 


Kommen wir nun zu einer weiteren Besonderheit von AMI¬ 
CA Paint, die für ein Malprogramm auf dem C 64 bisher ein¬ 
zigartig ist: die Makros. Makros sind keine direkten Zei¬ 
chenbefehle, tragen jedoch wesentlich zur Vereinfachung 
der Arbeit bei. 

Makros: Ein Makro schreibt alle Eingaben über einen be¬ 
stimmten Zeitraum mit und speichert sie. Diese Abfolge von 
Eingaben läßt sich anschließend mit wenigen Handgriffen 
wieder beliebig oft abrufen. Somit können häufig wieder¬ 
kehrende Schritte vereinfacht ausgeführt werden. 

Ein Beispiel: Sie wollen ein Bild zeichnen, das aus meh¬ 
reren kongruenten (gleichartigen) Dreiecken besteht. Nor¬ 
malerweise würden Sie lange Zeit damit verbringen, die 
Dreiecke exakt gleich zu gestalten. Durch den Einsatz von 
Makros vereinfacht sich das Problem. Zunächst öffnen Sie 
ein Makro, und zeichnen gleich darauf das erste Dreieck. 
Danach schließen Sie das Makro wieder. Nun positionieren 
Sie den Pfeil dort, wo das zweite Dreieck erscheinen soll. 
Hier ist lediglich das Makro aufzurufen, und AMICA Paint 
zeichnet selbständig das gewünschte Dreieck. 

0 - Öffnen, 

C - Schliessen, 

E - Erweitern, 

A - Aufrufen 

Mit der Taste <M> gelangen Sie in das Makro-Menü. 
Nach Öffnen des Makros mit <0> werden alle im Grafik- 
Editor ausgeführten Befehle und Bewegungen des Pfeils 
aufgezeichnet. AMICA Paint zeigt dabei den noch verblei¬ 
benden Makro-Speicherplatz in der oberen Textzeile an. 
Mit <C> schließen Sie das aktuelle Makro, mit <A> läßt 
es sich aufrufen. Durch Druck auf < E > können Sie das ak¬ 
tuelle Makro erweitern. 

AMICA Paint speichert die Befehle relativ zur Position, 
die der Pfeil beim Öffnen des Makros hat. Beim Aufruf 
nimmt das Makro die momentane Position des Pfeils als Ur¬ 
sprung an. Somit lassen sich Objekte aus Makros an jeder 
Stelle des Bildschirms zeichnen (Bild 24). 

In einem Makro werden alle Eingaben mit Tastatur, Joy¬ 
stick oder Maus festgehalten. Ausnahmen sind die Befehle 
»Freihand« und »Sprühdose«. Auch das Definieren von 
Füllmustern wird aus Platzgründen nicht gespeichert. Die 
Makro-Funktion arbeitet nicht bei ausschließlicher 
Tastatur-Steuerung (ohne Joystick oder Maus). 

L - Laden, 

S - Speichern, 

D - Directory 

Diese Menüpunkte erlauben es, Makros auf Diskette ab¬ 
zulegen und von dort zu laden. Während man mit der Taste 
< S > das aktuelle Makro unter einem bis zu dreizehn Zei¬ 
chen langen Namen speichert, kann es mit <L> wieder 
geladen werden. Mit <D> erhalten Sie einen Überblick 
über alle Makros auf der eingelegten Diskette. 


Hat man ein Makro erstellt, kann es zwar erweitert wer¬ 
den, nachträgliche Änderungen sind jedoch nicht direkt 
möglich. Aus diesem Grund bieten wir unter anderem ein 
kleines Hilfsprogramm an, das es gestattet, den Inhalt von 
Makros einzusehen und gegebenenfalls zu korrigieren. 
Mehr dazu erfahren Sie in einem späteren Abschnitt. 

Auf der Programmservice-Diskette befinden sich eine 
Vielzahl von Beispiel-Makros, die die wichtigsten Funktio¬ 
nen von AMICA Paint demonstrieren. 

Wie bereits erwähnt, bietet AMICA Paint einige Program¬ 
me an, die bei der Bearbeitung von Grafiken behilflich 
sind. Sie sollen in diesem Abschnitt vorgestellt werden. 



Bild 25 bis 29. Eindrucksvolle Grafiken wie die hier gezeigten 


Bilder in eigenen Programmen verwenden 

Damit Sie Bilder, die mit AMICA Paint gemalt wurden, 
problemlos in eigenen Programmen anzeigen können, 
wurde »SHOW PIC.52480« geschrieben. Geben Sie dazu 
bitte Listing 20 mit dem MSE ein und speichern Sie es unter 
dem Namen »SHOW PIC.52480« auf Ihrer AMICA Paint- 
Diskette. ■ 

Das Programm belegt den Speicherbereich von $A000 
bis $FFFF. In einem Basic-Programm isV.es mit folgender 
Befehlszeile zu laden: 

0 IF A=0 THEN A=1 :LOAD "SHOW FTW,'$3^0",8,1 

Damit steht Ihnen ein neuer Befehl zur Verfügung, des¬ 
sen Syntax folgendermaßen lautet: 

SYS 52480, <gerätenumraer> , "<bildname> ", <modus> 

Die Gerätenummer beträgt entweder 8 für das Disketten¬ 
laufwerk oder 1 für die Datasette. Vergessen Sie bei 
< bildname> bitte die Kennung »[B]« vor dem eigentlichen 
Namen nicht. Läßt man den Namen weg, wird kein neues 
Bild geladen. 

< Modus > ermöglicht es, den Bildschirmmodus des 
C 64 zu wählen. Der Wert 0 schaltet den Textmodus ein. Der 
Wert 1 aktiviert hingegen den Grafikmodus. Hat 
<Modus> den Wert 2, bleibt der aktuelle Zustand erhal¬ 
ten. 

Einige Beispiele zeigen die Bedienung dieses Befehls: 
SYS 52480,8,"[B]SCHL0SS",1 
lädt und zeigt das Bild »Schloß« 

SYS 52480,8,"",0 

schaltet die Grafik aus 

SYS 52480,8,"",1 

schaltet die Grafik wieder ein 

SYS 52480,8,"[B]PRINZESSIN",2 

lädt das Bild »PRINZESSIN« und behält den aktivierten 

Modus bei. 
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Das Basic-Programm »DEMO.SHOW PIC« führt Ihnen 
die Verwendung dieses Befehls noch einmal vor. Sie finden 
es in Listing 21, das mit dem Checksummer einzugeben ist. 

Nach dem Programmstart mit RUN läßt sich ein beliebi¬ 
ges Bild anzeigen. Der Name muß auch hier mit der Ken¬ 
nung »[B]« beginnen. »$« gibt das Directory der eingelegten 
Diskette auf dem Bildschirm aus. 

Der Makro-Editor 

Das Hilfsprogramm »MAKRO.EDI 49152« erlaubt es, ge¬ 
speicherte Makros nachträglich zu verändern. Geben Sie 
dazu bitte Listing 22 mit dem MSE ein und speichern es un¬ 
ter dem Namen »MAKRO.EDI 49152« auf Ihrer AMICA 
Paint-Diskette. Das Programm wird mit 


Hilfsprogramm mit dem Namen »VIRUS 270« entwickelt. Es 
»nistet« sich in einem selten genutzten Speicherbereich 
ein, wartet dort auf ein Signal des Anwenders und stoppt 
den Programmablauf an der gewünschten Stelle. Ein weite¬ 
res Programm namens »WANDELN > > KOALA« wandelt 
schließlich die gerettete Grafik in das Koalapaint-Format. 
Das Bild kann danach mit AMICA Paint weiterverarbeitet 
werden. 

Wenn Sie sich für diese Programme interessieren, dann 
geben Sie bitte die Listings 23 und 24 mit dem MSE ein und 
speichern Sie sie auf Ihrer AMICA Paint-Diskette. Laden Sie 
sodann das erste Programm mit 

LOAD"VIRUS 270",8,1 



LOAD"MAKRO.EDI 49152",8,1 

geladen und mit dem Befehl »SYS 49152« aktiviert. Danach 
können Sie ein beliebiges Makro mit 

LOAD"[M] <name> ",8,1 

laden. Das Makro läßt sich wie ein Basic-Programm editie¬ 
ren und wird mit 
SA VE "[M] Name", 8,1 
wieder auf der Diskette abgelegt. 

In der ersten Zeile des Makros finden Sie die Information 
»=XXX/YYY«. Beim Öffnen des Makros stand der Pfeil also 
an der Bildschirmposition P(XXX;YYY). In den weiteren 
Zeilen des Makros befindet sich nun jeweils ein Buchstabe 
in Anführungszeichen. Dies bedeutet, daß die entspre¬ 
chende Taste gedrückt wurde. Um auch die Tasten 

< RETURN > und <DEL> im Listing sichtbar zu machen, 
werden sie von einem invertierten Pfeil eingeleitet. Danach 
steht entweder ein »r« für < RETURN >, ein »d« für 
<DEL>, ein »R«für <SHIFT RETURN> oderein »D« für 

< SHIFT DEL>. Beginnt eine Zeile eines Makros dagegen 
mit »I«, wurde an der darauffolgenden Stelle der Feuer¬ 
knopf gedrückt. 

Das Makro läßt sich beliebig ändern. Achten Sie dabei 
auf die Verwendung dreistelliger Zahlen für die Koordina¬ 
ten. Anstelle von »7« müssen Sie also »007« schreiben. Soll¬ 
te das Makro durch Hinzufügen neuer Zeilen zu lang wer¬ 
den, erscheint beim Speichern eine Fehlermeldung. 
Bilder anderer Programme übernehmen 
Da AMICA Paint neben den eigenen Bildern auch Datei¬ 
en im Koalapaint-Format lesen kann, werden sich die mei¬ 
sten Bilder fremder Malprogramme problemlos überneh¬ 
men lassen. Denn es existieren bereits viele Routinen, die 
Grafiken in das Koalapaint-Format umwandeln. 

Damit Sie auch Grafiken übernehmen können, für die es 
noch keine Wandlungsprogramme gibt, wurde ein weiteres 


Nach dem Start mit SYS 270 bleibt unser gutmütiger Vi¬ 
rus zunächst unbemerkt. Starten Sie nun das Programm, 
dessen Grafik Sie wandeln wollen. Sobald die gewünschte 
Grafik auf dem Bildschirm erscheint, sind die Tasten 
<SHIFT>,<CBM> und <CTRL> gleichzeitig zu 
drücken. Der C 64 sollte jetzt die »READY«-Meldung ausge¬ 
ben. Ist dies nicht der Fall, drücken Sie die RESTORE-Taste 
oder den Reset-Knopf, falls Sie einen solchen im C64 ein¬ 
gebaut haben. Zeigt der Computer auch dann keine Reak¬ 
tion, wurde das Virus-Programm leider zerstört. 

Ansonsten laden Sie nun das Programm »WAN¬ 
DELN >> »KOALA«. 

Es läßt sich mit RUN starten. Erscheint die gewünschte 
Grafikaufdem Bildschirm,könnenSiediesemit <F1 > auf 
Diskette speichern. Es erhält den Namen »(reverses Pik- 
Zeichen] PIC BILD«. Wird das betreffende Bild nicht ange¬ 
zeigt, ist die Wandlung leider nicht gelungen. Das Pro¬ 
gramm kann mit <F3> verlassen werden. 

Hires-Bilder wandeln 

Neben dem Vier-Farb-Modus (Multicolor) kennt der C64 
auch einen hochauflösenden Grafikmodus. Um Bilder in 
diesem Format für AMICA Paint aufzubereiten, müssen sie 
in den Multicolor-Modus gewandelt werden. Dies über¬ 
nimmt ein weiteres Hilfsprogramm mit dem Namen »HIM 
WANDLER BAS«, das Sie in Listing 25 finden. Verwenden 
Sie für die Eingabe bitte den Checksummer. Tippen Sie Li¬ 
sting 26 mit dem MSE ab. Es ist ebenfalls zu speichern. Bei¬ 
de Programme müssen sich auf Ihrer AMICA Paint-Diskette 
befinden. 

Das Programm »H/M WANDLER BAS« wird mit RUN ge¬ 
startet. Es erwartet nun den Namen des zu wandelnden 
Hires-Bildes. Dieses muß bei Adresse $2000 beginnen und 
33 Blöcke auf der Diskette belegen. Nun benötigt das Pro- 
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Laden Sie bitte das Programm »BILDRETTER« und star¬ 
ten es mit RUN. Nach Angabe der gewünschten Hinter¬ 
grundfarbe und der Grafikseite wird das entsprechende 
Bild unter dem Namen »[reverses Pik-Zeichen| PIC GERET¬ 
TET« gespeichert. Das Bild auf der anderen Grafikseite läßt 
sich ebenfalls retten. Dazu muß der Bildretter erneut gela¬ 
den und gestartet werden. 

Startadressen ändern 

Da AMICA Paint Koalapaint-Bilder mit einer falschen 


gramm die Werte für die Hinter- und Vorder¬ 
grundfarben. Schließlich ist noch der Name 
einzugeben, unter dem das modifizierte Bild 
auf der Diskette abgelegt werden soll. Der 
Wandlungsvorgang beginnt und nach kur¬ 
zer Zeit befindet sich das neue Bild auf der 
Diskette. 

Beim Wandeln werden auch Linien korrekt 
übertragen, die nur einen Punkt breit sind. 


Rettung nach Reset 

Gelegentlich kann es Vorkommen, daß der C 64 abstürzt. 
Geringe Schwankungen im elektrischen Stromnetz oder 
kurze Stromausfälle sind häufig die Übeltäter. Dies ist be¬ 
sonders ärgerlich, wenn man dadurch ein Bild verliert, das 
in den vergangenen Stunden mühsam mit AMICA Paint er¬ 
stellt wurde. Gelingt es Ihnen, mit einem Reset-Schalter 
den C64 in den Einschaltzustand zu versetzen, bestehen 
gute Chancen, das Bild zu retten. Dabei hilft Ihnen das Pro¬ 
gramm »BILDRETTER«, das in den Listings 27 und 28 ab¬ 
gedruckt ist. Geben Sie bitte Listing 27 mit dem Checksum¬ 
mer und Listing 28 mit dem MSE ein. Beide Teile müssen 
auf Ihrer AMICA Paint-Diskette gespeichert werden. 



Startadresse speichert, kann diese mit dem Programm 
»STARTADR.6000« in Listing 29 nachträglich geändert wer¬ 
den. Verwenden Sie für die Eingabe bitte den Checksum¬ 
mer. Ncch Start des Programms mit RUN ist lediglich der 
Name des gewünschten Bildes einzugeben. 

Damit sind alle Hilfsprogramme für AMICA Paint erklärt. 
Sie finden diese Programme übrigens auch auf der 
Programmservice-Diskette zu diesem Sonderheft. 

AMICA Paint für Profis 


Sie beherrschen nun den Umgang mit dem leistungsfähig¬ 
sten Malprogramm, das derzeit für den C64 erhältlich ist. 
Doch gerade fortgeschrittene Programmierer sind daran 
interessiert, auch etwas über den internen Aufbau eines 
Programms zu erfahren. Dieser Abschnitt der Bedienungs¬ 
anleitung ist daher all denen gewidmet, die AMICA Paint 
näher verstehen und gegebenenfalls selbst erweitern wol¬ 
len. Wenden wir uns zunächst dem speziellen Format von 
AMICA Paint-Bildern zu. 

AMICA Paint-Format 

Bilder, die mit AMICA Paint gespeichert wurden, sind im 
Directory durch die Kennung »[B]«< vor dem Dateinamen er¬ 
kennbar. Wie bereits erwähnt, liegen diese Grafiken in ei¬ 
nem komprimierten Zustand vor. Das Entpacken wird von 
AMICA Paint automatisch vorgenommen, wenn Sie das 
Bild von Diskette laden. Soll ein Bild jedoch extern geladen 
werden, ist eine Programm-Routine nötig, die diesen einfa¬ 
chen Entpackungsvorgang übernimmt. Sie können hierfür 
das kleine Programm »SHOW PIC.52480« in Listing 20 ver¬ 
wenden. Wer jedoch eine eigenen Routine schreiben will, 
der muß wie folgt Vorgehen: 

Das Bild ist Byte für Byte zu untersuchen. Sobald der Co¬ 
de $C2 gefunden wird, müssen die folgenden beiden Byte 
betrachtet werden. Hat das erste Byte den Wert Null, ist das 
Ende es Bildes erreicht. Andernfalls bezeichnet das erste 
Byte, wie oft das zweite in das Bild einzufügen ist. 
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Das entpackte Bild enthält schließlich folgende Informa¬ 


tionen: 

Bitmap 8000 Byte 

Bildschirmspeicher mit Farbinformationen 1000 Byte 

Farbspeicher 1000 Byte 

Hintergrundfarbe 1 Byte 

Tabelle für zyklisches Farbvertauschen 256 Byte 

Gesamtlänge 10257 Byte 


Die High-Nibbles der Werte im Farbspeicher und der Hin¬ 
tergrundfarbe haben dabei immer den Wert Null. 

Blöcke 

Blöcke (Grafikausschnitte) sind im Directory durch ein 
»[A]« vor dem Filenamen gekennzeichnet. Das Entpacken 
von Blöcken erfolgt auf die gleiche Weise wie das Ent¬ 
packen von Bildern. 

Ein decodierter Block ist folgendermaßen aufgebaut: 

1. Byte: Größe des Blockes in X-Richtung (Xmax) 

2. Byte: Größe des Blockes in Y-Richtung (Ymax) 

Die folgenden Byte enthalten im Low- und High-Nibble 

die Farbinformation für einen Punkt des Blockes. 

3. Byte, Low-Nibble: Farbe des Punktes links oben P(0;0) 

High-Nibble: Farbe des Punktes darunter P(0;1) 

4. Byte, Low-Nibble: Farbe des Punktes P(0;2) 

High-Nibble: Farbe des Punktes P(0;3) 

... und so weiter... 

letztes Byte, Low-Nibble: Farbe des Punktes 

P(Xmax;Ymax-1) 

High-Nibble: Farbe des Punktes P(Xmax;Ymax) 

Da jeder Bildschirmpunkt in einem Block 4 Bit Speicher¬ 
platz benötigt, lassen sich nur Blöcke speichern, die weni¬ 
ger als 21000 Punkte umfassen. 

Der Aufbau einer Erweiterung 

Trotz seiner umfangreichen Befehle kann AMICA Paint 
auf einfache Weise erweitert werden. Wie bereits erwähnt, 
befindet sich im Menü »Sonstiges«, das über die Taste »O« 
erreicht wird, der Menüpunkt »Erweiterungen«. Er wird mit 
»E« aufgerufen und erlaubt es, externe Befehle zu aktivie¬ 
ren. 

Eine Erweiterung muß mit einem maximal dreizehn Zei¬ 
chen langen Namen, dem die Kennung »[W]« vorangestellt 
ist, auf Diskette gespeichert werden. Zudem darf sie nur 
den Speicherbereich von $4000 bis $5000 belegen, wobei 
die Einsprungadresse bei $4000 liegen muß. 

Die Programme »BFILE« und »LOAD EXTENSIONS« 
aus den Listings 17 und 18 müssen von der AMICA Paint- 
Diskette auf alle Disketten mit Erweiterungen kopiert wer¬ 
den. Es ist daher am einfachsten, die Erweiterungen direkt 
auf der AMICA Paint-Diskette zu speichern. Auf einer Dis¬ 
kette sind bis zu 26 Erweiterungen erlaubt. Beim Anwählen 
einer Erweiterung werden alle Erweiterungen der eingeleg¬ 
ten Diskette aufgelistet. Sie lassen sich mit < A > bis < Z > 
starten. 

Mit der Erweiterung aus Listing 30 läßt sich beispielswei¬ 
se ein Dreieck zeichnen. Geben Sie dieses Programm bitte 
mit dem MSE ein und speichern Sie es auf der AMICA 
Paint-Diskette. Um Ihnen die Programmierung einer Erwei¬ 
terung zu verdeutlichen, finden Sie in Listing 31 den kom¬ 
pletten Quellcode des Erweiterungsprogramms im Profi- 
Ass-Format. 

AMICA Paint intern ... 


Gerade im Zusammenhang mit Erweiterungen ist es wich¬ 
tig, den Aufbau von AMICA Paint kennenzulernen. Da eine 
ausführliche Programmbeschreibung den Rahmen dieser 
Anleitung jedoch sprengen würde, können abschließend 
nur die wichtigsten Routinen erklärt werden. 


JSR $9000 - schaltet den Grafikmodus ein. 

JSR $9003 - schaltet den Textmodus ein. 

JSR $901 E - setzt einen Grafikpunkt in der aktuellen Zei¬ 
chenfarbe beziehungsweise mit dem aktuellen Muster an 
die Koordinaten im X-und Y-Register. 

JSR $9021 - setzt einen Grafikpunkt an die Stelle im X- 
und Y-Register: die entsprechende Farbe muß im Akku ab¬ 
gelegt werden. 

JSR $9030 - setzt einen Punkt an die Stelle X/Y unter 
Verwendung der aktuellen Pinselform. 

JSR $C00C - gibt die Farbe des Punktes X/Y im Akku zu¬ 
rück. 

BRK - springt ins Hauptmenü zurück. 

Nun noch einige wichtige Adressen. Sie werden vom In¬ 
terrupt beeinflußt, falls der Grafikmodus eingeschaltet ist. 
Adresse Bedeutung 

225/226 X/Y-Koordinaten des Pfeils 

238 enthält 1,falls Knopf gedrückt 

251 wird bei Knopfdruck auf 1 gesetzt. 

Die Adresse kann im Hauptprogramm auf 0 gesetzt wer¬ 
den; sie enthält dann erst wieder 1, wenn der Feuerknopf 
des Joysticks oder der Maus losgelassen und erneut ge¬ 
drückt wurde. 

Wer selbst auf die Suche nach nützlichen Unterprogram¬ 
men gehen will, findet ab den Adressen $C000, $9000 und 
$A900 einige Tabellen, über die alle wichtigen Unterpro¬ 
gramme von AMICA Paint angesprungen werden. Die ei¬ 
gentlichen Grafikbefehle liegen im Speicher von $7000 - 
$9000. 

Die erste Grafikseite befindet sich bei $2000 im Speicher, 
die Farben liegen bei $0400 und $D800. 

Die Zwischenspeicher für die Farben beginnen bei 
$F800 und $FC00. 

Die zweite Grafikseite liegt bei $D000 im RAM, wobei die 
Färber, ab $B800 und $BC00 untergebracht sind. 

Die U ndo-Seite belegt die Bereiche ab $5000, $F000 und 
$F400. 

Weitere wichtige Speicherbereiche: 

$0800-$08FF - Makro-Speicher 
$0900-$0AFF - X/Y - Speicher bei Fill, Anti-Strahlen und 
ähnliches. 

$0B00-$0B7F - freier Speicher, von AMICA Paint nicht 
verwendet 

$AE00-$AEFF - Tabelle zur Berechnung von Sinus und 
Cosinus 

$AFO0-$AFFF - Prioritätentabelle 
$B000-$B6FF - Muster, Farbpinsel, Stricheln 
$B700-$B7FF - Farbrotationstabelle 
Vom Programm werden insgesamt folgende Adreßberei- 
che des C64 belegt: $1000-$1FFF, $7000-$AE00 und 
$C000-$CFFF. 

Die Zeropage wird vollständig zur Datenspeicherung be¬ 
nötigt. Der Kassettenpuffer enthält die Editor-Parameter 
und ist ansonsten frei. 

Nun sind wir am Ende der Bedienungsanleitung von 
AMICA Paint, einem der leistungsfähigsten Malprogramme 
für den C 64, angelangt, Zum Abschluß haben wir in den Bil¬ 
dern 24 bis 30 noch einige Grafiken für Sie zusammenge¬ 
stellt. Sie alle wurden mit den vielfältigen Funktionen von 
AMICA Paint auf einfache Weise entworfen und sind übri¬ 
gens alle auf der Programmservice-Diskette zu diesem 
Sonderheft gespeichert. 

Die Listings zu AMICA Paint finden Sie ab Seite 29 in 
diesem Heft und natürlich auch auf der Programmser¬ 
vice-Diskette. Tauchen Sie ein in die wunderbare Welt der 
Computergrafik. AMICA Paint, das Malprogramm der Su¬ 
perlative, wird Ihnen dabei stets zur Seite stehen. 

(Oliver Stiller/Axel Pretzsch/Michael Thomas/rs/sk) 
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MALPROGRAMM 


Eingabehfnweise 


Bei jedem üsting ist angegeben, ob es mit dem MSE (siehe Sei¬ 
te 159) oder mit dem Checksummer (ebenfalls ab Seite 159) einge¬ 
geben werden muß, oder ob es sich um einen Assembler- 
Quellcode (wie Listing 31) handelt, der mit einem Assembler wie 
etwa Giga-Ass (aus dem Sonderheft 21) eingegeben werden muß. 
Wichtig: 

Eine besondere Bedeutung kommt für alle, die AMICA Paint ab- 
tlppen, dem üsting 32 »CHANGE« zu: 

Da das Programm »A.PAINT PI« Im gleichen Speicherbereich wie 
der MSE (ab $B000), den Sie zur Eingabe ja brauchen, liegt, käme 
es hier zum Konflikt der beiden Programme. Daher ist 


»A.PAINT PI« In der abgedruckten Version mit der Startadresse 
$1F00 versehen. So kann es problemlos abgetippt werden, ist aber 
noch nicht lauffähig. Um dies zu erreichen, müssen Sie das Basic- 
Listing 32 (»CHANGE«) eingeben. Nach dem Start mit RUN fordert 
Sie das Programm auf, die AMICA Paint-Diskette, auf welcher sich 
das Programm »A.PAINT PI« ja befindet, einzulegen und eine 
Taste zu drücken. Die Startadresse wird nun automatisch auf den 
korrekten Wert (SAFOO) geändert, und Ihrer Arbeit mit AMICA- 
Palnt steht nichts mehr im Wege. Auf der Programmservice- 
Diskette befindet sich AMICA Paint selbstverständlich in einer, oh¬ 
ne diesen kleinen Umweg lauffähigen Form. 
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Listing 1. »AMICA PAINT LOAD« 

Mit diesem Programm wird AMICA 

Paint geladen, wenn Sie einen 
Floppy-Speeder besitzen. Bitte mit 
dem MSE (Seite 159) eingeben. 
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85 

11 

0e29 

fe 

aO 

27 

bl 

fe 

09 

80 

91 

d5 

Oe31 

fe 

88 

10 

f7 

60 

48 

4e 

45 

82 

Listing 1. 

(Schluß) 







Name : 

: amica paint 



032c 03a4 

032c : 

: 34 

03 

66 

fe 

a5 

f4 

ed 

f5 

01 

0334 : 

: a9 

Od 

8d 

20 

dO 

8d 

21 

dO 

6b 

033c : 

: a2 

2f 

aO 

f3 

8e 

2c 

03 

8c 

8c 

0344 : 

: 2d 

03 

a9 

01 

a2 

08 

a8 

20 

cb 

034c : 

: ba 

ff 

a9 

10 

a 2 

84 

aO 

03 

49 

0354 

: 20 

bd 

ff 

a9 

00 

20 

d5 

ff 

eO 

035c 

: bO 

d6 

a9 

00 

8d 

21 

dO 

20 

47 

0364 

: 00 

cO 

a9 

01 

a2 

08 

a8 

20 

9c 

036c 

: ba 

ff 

a9 

10 

a2 

94 

aO 

03 

ea 

0374 

: 20 

bd 

ff 

a9 

00 

20 

d5 

ff 

00 

037c 

: bO 

b6 

20 

59 

a6 

4c 

ae 

a7 

91 

0384 

: 4d 

4f 

53 

54 

2d 

4l 

43 

43 

49 

038c 

: 45 

53 

53 

20 

43 

30 

30 

30 

2b 

0394 

: 4l 

4d 

49 

43 

4l 

20 

50 

41 

Of 

039c 

: 49 

4e 

54 

20 

4c 

4f 

41 

44 

f2 


Llsting 2. AMICA Palnt verfügt 
auch über einen eigenen Schnell¬ 
lader. Starten Sie das Programm 
hierzu mit diesem Programm 
namens »AMICA PAINT«. Bitte mit 
dem MSE (Seite 159) eingeben. 


1030 : 
1038 : 
1040 : 
1048 : 
1050 : 
1058 : 
1060 : 
1068 : 
1070 : 
1078 : 
1080 : 
1088 : 
1090 : 
1098 : 
lOaO : 
10 a 8 : 
lObO : 
10 b 8 : 
lOcO 
IO 08 
lOdO 
10 d 8 
lOeO 
10 e 8 
lOfO 
10 f 8 
1100 
1108 
1110 
1118 
1120 
1128 
1130 
1138 
1140 
1148 
1150 
1158 
1160 
1168 
1170 
1178 
1180 
1188 
1190 
1198 
llaO 
Ua8 
llbO 
llb8 
llcO 
llc8 
lldO 
lld8 
IleO 
lle8 
llfO 
llf8 
1200 
1208 
1210 
1218 
1220 
1228 
1230 
1238 


4c 6f le 4c 9c 

ld 4c Of le 4e 

40 ld 4c b4 lb 
4c 72 ld 4c 60 
19 4c 81 lf 4c 
b3 lf ea ea ea 
ea ea ea 4c 93 
lf 4c 59 le Oc 
58 59 5a 52 55 

14 66 90 69 90 
90 72 90 lb a9 
a9 c3 ld 54 le 
le Oa 85 86 87 
44 4d 53 4f 4a 
68 13 77 13 86 
cl 13 dO 13 df 
08 5a 4d 50 52 
4c e4 90 d5 16 7b 
17 03 18 58 la 
19 07 11 ld 45 
03 e7 90 ea 90 
17 68 17 cl 16 
58 03 93 17 91 
90 07 4e 50 44 
53 ce 16 87 16 

16 b2 13 37 16 
5a 53 59 58 51 
90 3c 90 3f 90 

17 f9 17 b2 13 
03 45 4e 53 46 
90 b2 13 17 18 
90 32 13 03 03 

18 5a 90 5d 90 
31 32 33 56 49 

57 44 4c 53 bd 
c3 90 c6 90 c9 

Sfg * 

03 4d 4e 03 de 
86 13 07 4b 49 
53 42 4f 19 6c 
d3 19 7d 19 fb 
04 4c 4b 4f 46 
16 67 16 16 14 

41 4c 53 44 45 
a9 12 a9 lb 19 
la 09 a9 Oe 4c 
5a 4e 4l 52 47 

42 4f 22 14 25 
2b 14 2e 14 31 
37 14 3a 14 3d 

43 14 4f 14 52 
51 46 4b 45 55 
46 14 49 14 4c 

58 14 5b 14 5e 
66 14 Od 4c 53 

44 52 42 47 4b 
43 15 97 14.90 
98 15 90 la ef 
Od 16 lf 16 2b 
31 16 08 46 53 
4b 5a 54 aa 15 

15 b3 15 b8 15 

16 28 16 07 55 
41 50 45 ea 15 


14 4c f4 

46 le 4c 

4c 02 le 
19 4c 97 
a3 lf 4c 
4c 83 lf 
lf 4c c3 

47 43 54 
57 93 4b 
6c 90 6f 
27 a9 30 
79 lf 59 
88 45 46 
13 59 13 
13 b2 13 

13 ee 13 

53 44 41 
16 6f 

93 18 08 
4b 53 4d 
ec 16 65 
b2 13 03 
5e 17 ed 
46 03 47 
34 16 c8 
cb 16 07 

54 03 39 
42 90 fc 
07 11 ld 
fc 90 ff 
60 90 63 
4c 53 03 
Oe 48 54 
4b 42 41 
90 cO 90 
90 cf 90 

jrtS 

90 el 90 
44 4f 4c 
la 76 la 
19 ae la 
fd 13 71 
07 4f 43 
00 a9 03 
ba 18 86 

50 46 53 

51 45 4b 

14 28 14 
14 34 14 
14 40 14 
14 09 52 
4f 4e 53 
14 55 14 

14 61 14 
56 46 50 
5a 49 45 

15 93 15 

15 fe 15 

16 2e 16 
44 4d 56 
ad 15 bO 
e7 15 22 
44 51 46 
25 16 3c 


16 27 80 la 15 20 15 26 


46 

Ot 

11 

cd 

cb 

10 

ee 

78 

4b 

9e 

ac 

c2 

44 

Oa 

c4 

02 

96 

ca 

19 

e3 

de 

6b 

c6 

ab 

Oe 

39 

9b 

la 

28 

4a 

3f 

dd 

88 

94 

bb 

98 

94 

a8 

19 

30 

81 

d2 

eb 

d7 

56 

ed 

72 

6f 

61 

a8 

bO 

fa 

70 

eO 

dO 

c7 

Oe 

58 

58 

f3 

50 

6f 

94 

02 

93 

38 


Name 

a.paint 1000 


1000 lffa 

1240 

15 

03 

58 

59 

03 

5d 

16 

60 

4c 

1490 











1248 

16 

64 

16 

03 

47 

42 

03 

19 

3b 

1498 

1000 

4c 

8f 

12 

4c 

Oa 

13 

4c 

86 

99 

1250 

16 

lc 

16 

64 

16 

48 

8a 

48 

e5 

l4aO 

1008 

13 

4c 

b2 

13 

4c 

39 

13 

4c 

c4 

1258 

98 

48 

ba 

bd 

04 

01 

29 

10 

88 

l4a8 

1010 

40 

13 

4c 

9d 

lc 

4c 

06 

lb 

13 

1260 

fO 

05 

00 

20 

6a 

12 

40 

6c 

e8 

l4bO 

1018 

4c 

fO 

la 

4c 

3c 

lb 

4c 

d3 

62 

1268 

14 

03 

48 

a5 

01 

48 

a9 

36 

2a 

I4b8 

1020 

lb 

4c 

d8 

la 

4c 

5a 

lc 

4c 

7t 

1270 

85 

01 

a9 

ff 

8d 

00 

de 

ad 

88 

l4cO 

1028 

Ob 

ld 

4c 

bf 

lc 

4c 

83 

ld 

39 

1278 

00 

de 

29 

10 

fO 

e4 

a5 

91 

23 

l4c8 


1280 
1288 
1290 
1298 
12 aO 
12 a 8 

12b0 
12b 8 

12 c 0 

12c8 
12d0 
12d8 
12 e 0 
12 e 8 
12 fO 

12 f 8 
1300 
1308 
1310 
1318 
1320 
1328 
1330 
1338 
1340 
1348 
1350 
1358 
1360 
1368 
1370 
1378 
1380 
1388 
1390 
1398 
13a0 
13a8 
13b0 
13b8 
13c0 
13c8 
13d0 

13 d8 
13e0 
13e8 
13 fO 
13 f 8 
1400 
1408 
1410 
1418 
1420 
1428 
1430 
1438 
1440 
1448 
1450 
1458 
1460 
1468 
1470 
1478 
1480 
1488 


c9 7f fO de 68 85 01 68 a8 
60 20 6a 12 4c 47 fe a2 15 

55 aO 12 8e fe ff 8c ff ae 
ff a2 63 aO 12 8e fa ff 57 
8c fb ff a2 Oa aO 13 8e 8d 
16 03 8c 17 03 a2 89 aO f3 

12 8e 18 03 8c 19 03 a9 61 
ff 8d 11 dO 20 00 cO 20 22 
63 cO a9 01 a2 00 20 66 85 
cO 20 03 90 ad la 91 85 68 

56 ad lb 91 85 57 a2 00 93 
86 89 86 88 86 7e 86 5d 07 
86 86 86 5f 86 60 86 c6 4a 
86 14 86 16 86 59 86 5c e3 
e8 86 7c 86 6a 86 44 a9 4a 
ff 8d 02 08 a9 aO 85 13 lb 
a9 08 85 15 8 d 8 a 02 20 87 
7e 90 a2 ff 9a a9 36 85 52 
01 a9 87 8d 00 dd a9 01 11 
8d Oe de 20 54 a9 20 24 43 
a9 20 03 90 a9 00 20 45 52 
90 20 4e 90 20 39 13 4c lf 
00 70 a9 02 85 7e 4c 00 90 
70 a2 91 aO 10 4c 06 90 Oe 
20 75 90 a2 6c aO 10 4c 38 
06 90 20 03 90 a9 01 20 99 
45 90 a2 a3 aO 11 4c 95 e9 

13 20 03 90 a9 02 20 45 04 
90 a2 ce aO 11 4c 95 13 f9 
20 03 90 a9 03 20 45 90 cb 
a2 ea aO 11 4c 95 13 20 dO 
03 90 a9 04 20 45 90 a2 62 
12 aO 12 4c 95 13 20 03 69 

: 90 a9 05 20 45 90 a2 35 00 
: aO 11 4c 95 13 86 39 84 d2 
: 3a 20 4e 90 a6 39 a4 3a c3 
: 20 06 90 4c 99 13 a9 ld 84 
: 20 45 90 a2 60 aO 11 4c cb 
: 95 13 20 03 90 a9 06 20 e6 
: 45 90 a2 bO aO 10 4c 95 eb 
: 13 20 03 90 a9 07 20 45 94 
: 90 a2 6a aO 11 4c 95 13 48 
: 20 03 90 a9 08 20 45 90 83 
: a2 8d aO 11 4c 95 13 20 89 
: 03 90 a9 09 20 45 90 a2 6b 
: 80 aO 11 4c 95 13 20 03 ff 
: 90 a9 26 20 45 90 a2 2b 9c 
: aO 12 4c 95 13 20 54 90 Oc 
r 20 4e 90 bO Oe 20 Oc 90 b5 
: 90 f6 20 3c cO 20 63 cO bf 
: 4c 00 70 4c df 13 a9 01 4l 
: 48 20 6f a9 68 85 86 4c e7 
: 00 70 a9 00 2c a9 02 2c 33 
: a9 03 2c a9 04 2c a9 05 e5 
: 2c a9 06 2c a9 07 2c a9 Of 
: 08 2c a9 09 2c a9 Oa 2c 72 
: a9 Ob 2c a9 Oc 2c a9 Od 92 
: 2c a9 Oe 2c a9 Of 2c a9 69 
: 10 2c a9 11 2c a9 12 2c b4 
: a9 13 2c a9 14 2c a9 15 3f 
: 2c a9 16 4c 18 14 a9 Of 57 
: 20 45 90 20 6f a9 a9 17 6c 
: 85 86 20 a6 16 bO ld 85 7c 
: 49 a9 2a 20 72 cO 20 a6 lf 
: 16 bO 11 85 4a a9 21 20 9a 
: 45 90 20 a6 16 bO 05 85 f8 
: 4b 4c 00 70 4c 59 13 a9 3f 
: 18 4c 18 14 20 54 cO aO 48 
: 44 a2 02 84 f8 86 f7 20 2a 
: 57 cO 08 20 Oc cO 28 bO 2e 
: 22 85 d9 20 57 cO 08 20 eb 
: Oc cO 28 bO 16 Oa Oa Oa 32 
: Oa 05 d9 aO 00 91 f7 e6 11 
: f7 dO de e6 f8 a5 f8 c9 6f 


30 
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C64 


MALPROGRAMM 


I4d0 

6f 

90 

d4 

a5 

f7 

48 

a5 

f8 

bb 

15 f 8 

2c 

a9 26 4c 

18 

14 

20 4e 

4b 

1720 

26 

08 

a8 20 

57 

90 

20 7c 

ec 

l4d8 

48 

20 

03 

90 

20 

96 

90 

90 

ld 

1600 

16 

c9 00 fO 

03 

a9 

27 2c 

8b 

1728 

18 

20 

fO 90 

28 

90 

d2 a5 

3c 

l4e0 

03 

4c 

00 

70 

a2 

4l 

20 

9c 

05 

1608 

a9 

28 4c 18 

14 

a9 

24 20 

3b 

1730 

fO 

Oa 

Oa Oa 

05 

ef 

4a bO 

44 

l4e8 

90 

20 

87 

90 

aO 

40 

a2 

00 

13 

1610 

45 

90 a2 4b 

aO 

12 

4c 95 

a6 

1738 

11 

a8 

bl 11 

29 

fO 

05 87 

69 

I4f0 

86 

db 

84 

de 

aO 

44 

84 

da 

14 

1618 

13 

a9 29 2c 

a9 

2a 

2c a9 

cO 

1740 

91 

ii 

a5 59 

20 

12 

90 4c 

5c 

14 f 8 

86 

d9 

68 

85 

f8 

68 

85 

f7 

Oe 

1620 

2b 

2c a9 2c 

2c 

a9 

2d 2c 

6e 

1748 

01 

17 

a8 bl 

11 

29 

Of 85 

d7 

1500 

20 

b4 

90 

a6 

db 

a4 

de 

a9 

ld 

1628 

a9 

2e 2c a9 

2f 

2c 

a9 30 

84 

1750 

dd 

a5 

87 Oa 

Oa 

Oa 

Oa 05 

46 

1508 

40 

85 

da 

a9 

00 

85 

d9 

a9 

dd 

1630 

2c 

a9 33 2 c 

a9 

34 

2c a9 

c3 

1758 

dd 

91 

11 4c 

42 

17 

68 68 

lb 

1510 

d9 

20 

d8 

ff 

20 

81 

90 

4c 

18 

1638 

35 

4c 18 14 

a9 

25 

20 45 

eb 

1760 

68 

68 

4c d5 

16 

a9 

00 2c 

dl 

1518 

00 

70 

20 

2c 

15 

4c 

00 

40 

12 

1640 

90 

20 4e 90 

c9 

4a 

fO 03 

3f 

1768 

a9 

01 

85 89 

4c 

00 

70 a9 

fe 

1520 

20 

2c 

15 

4c 

03 

40 

20 

2c 

30 

1648 

4c 

ee 13 20 

e2 

fc 

a9 23 

d7 

1770 

Oa 

20 

45 90 

a9 

10 

20 45 

l4 

1528 

15 

4c 

06 

40 

a2 

3o 

aO 

15 

b6 

1650 

20 

45 90 20 

4e 

90 

a2 41 

bl 

1778 

90 

aO 

01 a2 

02 

a9 

00 85 

65 

1530 

a9 

05 

20 

bd 

ff 

20 

93 

90 

8c 

1658 

aO 

12 4c 06 

90 

a9 

01 2c 

88 

1780 

Oe 

a5 

Oe a9 

aO 

20 

6c cO 

58 

1538 

90 

03 

4c 

ee 

13 

60 

42 

46 

05 

1660 

a9 

00 18 60 

4c 

68 

13 a9 

c3 

1788 

e6 

Oe 

e8 eO 

12 

dO 

f2 a2 

84 

1540 

49 

4c 

45 

20 

96 

90 

90 

03 

3b 

1668 

00 

a2 01 20 

66 

cO 

4c 00 

9b 

1790 

00 

aO 

03 a9 

00 

85 

Oe a5 

86 

1548 

4c 

68 

13 

a2 

41 

20 

9c 

90 

8a 

1670 

70 

a9 01 a2 

00 

20 

66 cO 

66 

1798 

Oe 

a9 

aO 20 

6c 

cO 

e6 Oe 

2b 

1550 

20 

93 

90 

90 

03 

4c 

00 

70 

e3 

1678 

4c 

00 70 a9 

Oe 

20 

45 90 

2e 

17a0 

c8 

cO 

13 dO 

f2 

20 

36 90 

dl 

1558 

a9 

ff 

38 

e5 

ae 

48 

85 

db 

c7 

1680 

a2 

e9 aO 10 

4c 

95 

13 a9 

52 

17a8 

a9 

80 

8d 15 

dO 

a9 

00 85 

fd 

1560 

a9 

af 

e5 

af 

48 

85 

de 

aO 

b5 

1688 

Of 

20 45 90 

a9 

01 

85 88 

d4 

17b 0 

23 

85 

26 20 

51 

90 

20 Oc 

56 

1568 

40 

a2 

00 

84 

da 

86 

d9 

a6 

21 

1690 

20 

a6 16 bO 

e6 

85 

ld a9 

01 

17b8 

90 

bO 

f8 a2 

ff 

aO 

10 20 

b8 

1570 

ae 

a4 

af 

86 

f7 

84 

f8 

20 

f5 

1698 

2a 

20 72 cO 

20 

a6 

16 bO 

78 

17c0 

06 

90 

a9 40 

85 

d3 

a6 23 

59 

1578 

5d 

cO 

68 

85 

da 

68 

85 

d9 

bb 

16a0 

da 

85 le 4c 

00 

70 

a9 02 

7c 

17c8 

a4 

26 

20 00 

cf 

08 

86 23 

25 

1580 

a9 

44 

85 

de 

a9 

00 

85 

db 

bl 

I6a8 

18 

20 bl 90 

bO 

12 

88 30 

6d 

17d0 

84 

26 

a8 20 

57 

90 

20 7c 

09 

1588 

20 

b7 

90 

a9 

19 

4c 

18 

14 

5a 

I6b0 

07 

98 20 78 

90 

8a 

dO 08 

ob 

17d8 

18 

a5 

23 18 

69 

08 

aa a5 

5c 

1590 

a9 

la 

2c 

a9 

lb 

4c 

18 

14 

23 

I6b8 

a9 

31 20 72 

cO 

a9 

01 18 

de 

17e0 

26 

Oa 

18 69 

la 

a8 

20 18 

d6 

1598 

20 

4e 

16 

90 

03 

4c 

68 

13 

dl 

I6c0 

60 

a9 02 85 

89 

4c 

00 70 

02 

17e8 

cO 

28 

90 c7 

a4 

fO 

a6 ef 

26 

15a0 

c9 

00 

fO 

03 

a9 

lc 

2c 

a9 

85 

I6c8 

a9 

02 2c a9 

03 

2c 

a9 00 

eb 

17 fO 

20 

33 

90 20 

36 

90 

4c b3 

52 

15a8 

ld 

2c 

a9 

le 

2c 

a9 

lf 

2c 

ee 

I6d0 

85 

88 4c 00 

70 

a9 

Oc 20 

71 

17 f 8 

17 

a9 

00 2c 

a9 

01 

85 7c 

lb 

15b0 

a9 

20 

2 c 

a9 

21 

4c 

18 

14 

a7 

16d8 

45 

90 a5 59 

20 

12 

90 20 

Of 

1800 

4c 

00 

70 a9 

11 

20 

45 90 

e6 

15b8 

20 

6f 

a9 

a9 

22 

85 

86 

20 

d8 

I6e0 

4e 

90 a2 c9 

aO 

10 

20 06 

6f 

1808 

a5 

5c 

20 f3 

90 

20 

f9 90 

75 

15c0 

45 

90 

20 

a6 

16 

bO 

ld 

85 

91 

I6e8 

90 

4c df 16 

a9 

Od 

20 45 

67 

1810 

a2 

15 

aO 11 

4c 

95 

13 a9 

98 

15c8 

49 

a9 

2a 

20 

72 

cO 

20 

a6 

6f 

16 fO 

90 

a9 Oa 20 

45 

90 

a9 80 

5c 

1818 

12 

20 

45 90 

a2 

00 

86 23 

28 

15d0 

16 

bO 

11 

85 

4a 

a9 

21 

20 

ea 

I6f8 

8d 

15 dO a9 

00 

85 

23 85 

3d 









15d8 

45 

90 

20 

a6 

16 

bO 

05 

85 

48 

1700 

26 

20 51 90 

20 

Oc 

90 bO 

a3 









15e0 

4b 

4c 

00 

70 

4c 

77 

13 

a9 

80 

1708 

f8 

a2 df aO 

10 

20 

06 90 

98 

Listing 3. 

»A 

PAINT 

1000« 

. Erster 

15e8 

23 

2c 

a9 

24 

4c 

18 

14 

20 

26 

1710 

a6 

23 a4 26 

a9 

20 

85 d3 

8f 

Teil von AMICA Paint. 

Bitte mit dem 

15f0 

4e 

16 

c9 

00 

fO 

03 

a9 

25 

d4 

1718 

^5 40 20 00 84 

bO 

MSE 

Seite 159) eingeben 

. 
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MALPROGRAMM C64 


1820 : a2 80 8e 15 dO 20 51 90 bd 
1828 : a2 2b aO 11 20 06 90 a6 6c 
1830 : 23 a9 80 85 d3 20 00 cf d6 
1838 : 86 23 08 a8 20 57 90 20 a6 
1840 : 7c 18 8a Oa Oa 18 69 Od cd 
1848 : aa aO bl 20 18 cO 28 90 fc 
1850 : d4 a5 2f a6 ef 9d 60 bO 66 
1858 : a5 5c 20 f6 90 20 f9 90 25 
1860 : 4c 25 18 c9 21 90 14 c9 f9 
1868 : 2a bO 10 38 e9 20 a8 a5 83 
1870 : el 99 7a 03 a5 e2 99 84 fe 
1878 : 03 a9 00 60 ad 2e dO 49 7e 
1880 : 01 8d 2e dO a5 23 4a 4a lf 
1888 : 85 ef aa a5 26 4a 4a 85 4d 
1890 : fO a8 60 20 96 90 90 03 27 
1898 : 4c b2 13 a2 46 20 9c 90 4f 
18a0 : 20 87 90 aO b7 a2 00 a9 aO 
18a8 : af 85 da a9 00 85 d9 a9 ec 
18b0 : d9 20 d8 ff 20 81 90 4c b8 
18b8 : b2 13 20 96 90 90 03 4c 01 
18c0 : dO 13 a2 4d 20 9c 90 20 d6 
18c8 : 87 90 aO 08 a2 fb a9 08 81 
18d0 : 85 da a9 00 85 d9 a9 d9 ae 
18d8 : 20 d8 ff 20 81 90 4c dO d8 
18eO : 13 20 96 90 90 03 4c 86 la 
18e8 : 13 a2 45 20 9c 90 20 87 80 
18fO : 90 aO 03 a2 8f a9 03 85 43 
18f8 : da a9 6f 85 d9 a9 d9 20 c6 
1900 : d8 ff 20 81 90 4c 86 13 bc 
1908 : 20 96 90 90 03 4c b2 13 2d 
1910 : a2 46 20 9c 90 20 93 90 ea 
1918 : 4c b2 13 20 96 90 90 03 bc 
1920 : 4c dO 13 a2 4d 20 9c 90 57 
1928 : 20 93 90 a9 00 85 6f 20 95 
1930 : 15 a9 85 el 20 15 a9 85 14 
1938 : e2 4c dO 13 20 96 90 90 fl 
1940 : 03 4c 86 13 a2 45 20 9c 7b 
1948 : 90 20 93 90 4c 86 13 20 65 
1950 : 96 90 90 03 4c cl 13 20 12 
1958 : 90 90 20 60 19 4c 8d 19 al 
1960 : a9 01 a2 08 aO 00 20 ba 33 
1968 : ff a9 00 85 Oa a2 00 aO e4 
1970 : 44 20 d5 ff 20 81 90 90 ab 
1978 : 01 60 4c 8a 90 20 96 90 93 
1980 : 90 03 4c cl 13 a2 42 20 6d 
1988 : 9c 90 20 97 19 a2 03 a9 6d 
1990 i 00 20 66 cO 4c cl 13 20 bl 
1998 : 93 90 90 01 60 a9 ff 38 7b 
19a0 : e5 ae 48 85 db a9 af e5 35 
19a8 : af 48 85 de aO 40 a2 00 Of 
19b0 : 84 da 86 d9 a6 ae a4 af 50 
19b8 : 86 f7 84 f8 20 5d cO 68 3b 
19c0 : 85 da 68 85 d9 a9 44 85 84 
19c8 : de a9 00 85 db 20 b7 90 e8 
19d0 : 4c 8a 90 20 96 90 90 03 cO 
19d8 : 4c cl 13 20 90 90 20 87 eb 
19e0 : 90 20 8d 90 a2 11 aO 6b 02 
19e8 : a9 44 85 da a9 00 85 d9 d4 
19fO : a9 d9 20 d8 ff 20 81 90 dl 
19f 8 : 4c cl 13 20 96 90 90 03 24 
laOO : 4c cl 13 a2 42 20 9c 90 ff 
la08 : 20 87 90 78 a9 35 85 01 7b 
lalO : 20 3d la e6 01 58 20 8d al 
lal8 : 90 aO 44 a2 00 84 da 86 fa 
la20 : d9 aO 6c a2 11 84 f8 86 df 
la28 : f7 aO 40 a2 00 84 de 86 78 
la30 : db 20 b4 90 a4 de a6 db de 
la38 : a9 40 4c ea 19 a9 fb 85 4e 
la40 : da a9 fO 85 d9 a2 04 aO eO 
la48 : 00 bl d9 29 Of 91 d9 c8 33 
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MALPROGRAMM 


C64 


la50 : dO f7 e6 da ca dO f2 60 
la58 : a2 14 a9 46 20 9a la 4c 
la60 : b2 13 a2 15 a9 45 20 9a 
la68 : la 4c 86 13 a2 16 a9 3f 
la70 : 20 9a la 4c cl 13 20 9f 
la78 : 90 a9 17 20 45 90 a9 01 
la80 : 20 a5 90 4c cl 13 a2 lf 
la88 : a9 4d 20 9a la 4c dO 13 
la90 : a2 20 a9 41 20 9a la 4c 
la98 : 68 13 48 8a 48 20 9f 90 
laaO : 68 20 45 90 68 4c a2 90 
laa8 : 24 3a 5b 46 5d 2a a9 le 
labO : 20 45 90 a9 22 38 20 bl 
lab8 : 90 bO la a9 Od 99 00 02 
lacO : a2 Of 20 c9 ff aO 00 b9 
lac8 : 00 02 20 d2 ff c8 c9 Od 
ladO : dO f5 20 84 90 4c cl 13 
lad8 : 20 39 a9 20 48 a9 20 fO 
laeO : la a5 fb fO f3 c6 fb 20 
lae8 : Of a9 20 78 cO 4c 24 a9 
lafO : a6 23 a4 26 86 19 84 la 
laf8 : a6 24 a4 27 86 lb 84 lc 
lbOO : 20 2d cO 4c 2d cO a6 23 
lb08 : a4 26 86 25 84 28 a6 24 
lblO : a4 27 86 2f 84 30 a4 28 
lbl8 : 84 27 20 42 a9 a4 30 84 
lb20 : 27 a6 25 86 24 20 42 a9 
lb28 : a6 2f 86 24 86 23 20 42 
lb30 : a9 a6 25 86 23 a4 30 84 
lb38 : 26 4c 42 a9 20 3f lb a9 
lb40 : 00 85 45 85 46 20 64 ld 
lb48 : 20 bf lc a5 23 38 e5 2f 
lb50 : aa 90 Ob a5 26 38 e5 30 
lb58 : a8 90 03 20 48 cO a5 23 
lb60 : 38 e5 2f aa 90 Of a5 26 
lb68 : 18 65 30 bO 08 a8 c9 c8 
lb70 : bO 03 20 48 cO a5 23 18 


fO 

lcaO : 

dd 

a4 

72 dO 09 a4 2e 

dO 

96 

lefO : 

dO 

b9 

00 42 

99 

00 

06 

b9 

Oa 

Of 

lca8 : 

Ob 

C5 

dd bO 07 60 c9 

00 

be 

lef8 : 

00 

46 

99 00 

da 

c8 

dO 

fl 

9d 

62 

lcbO : 

fO 

Ob 

a2 01 ca 8a a2 

01 

7c 

lfOO : 

b9 

e8 

42 99 

e8 

06 

b9 

00 

97 

ac 

lcb8 

8e 

dl 

lb 38 60 18 60 

a5 

90 

lf08 

47 

99 

00 db 

c8 

dO 

fl 

a2 

b7 

62 

lccO 

45 

20 

11 91 a5 46 85 

2a 

83 

lflO 

Of 

fe 

00 4f 

bd 

00 

4f 

a8 

f3 

28 

lcc8 

aO 

09 

20 83 lf 20 60 

a9 

2d 

lfl8 

b9 

00 

b7 10 

08 

8a 

Oa 

Oa 

d2 

9e 

lcdO 

a5 

8d 

20 11 91 20 08 

91 

c3 

lf20 

Oa 

Oa 

9d 00 

4f 

ca 

10 

e9 

f6 

al 

lcd8 

a5 

2e 

85 2f 85 2d a9 

00 

44 

lf28 

a9 

36 

85 01 

58 

20 

e4 

ff 

88 

ad 

loeO 

85 

2e 

aO 08 20 93 lf 

aO 

02 

lf30 

dO 

03 

4c 75 

le 

4c 

60 

cO 

8b 

12 

lce8 

09 

20 

a3 lf 20 5d a9 

a5 

ad 

lf38 

85 

dd 

29 Of 

aa 

bd 

00 

4f 

Of 

10 

lcfO 

8e 

20 

11 91 20 08 91 

a4 

d7 

lf40 

aa 

bd 

00 b7 

10 

04 

a5 

dd 

33 

93 

lcf8 

2e 

84 

2d a9 00 85 2e 

aO 

Of 

lf48 

29 

Of 

85 74 

a5 

dd 

4a 

4a 

fO 

94 

IdOO 

07 

20 

93 lf a4 2d 84 

30 

06 

lf50 

4a 

4a 

aa bd 

00 

4f 

aa 

bd 

c2 

fe 

ld08 

a6 

2f 

60 20 bf lc a9 

00 

e5 

lf58 

00 

b7 

10 07 

a5 

dd 

29 

fO 

e9 

a4 

ldlO 

8d 

dl 

lb aO 07 20 a3 

lf 

9f 

lf60 

05 

74 

60 Oa 

Oa 

Oa 

Oa 

05 

lc 

b3 

ldl8 

a5 

26 

20 14 91 20 02 

91 

aO 

lf68 

74 

60 

aa 85 

fl 

bd 

00 

4f 

13 

cc 

ld20 

a2 

c8 

20 9d lc 48 aO 

08 

79 

lf70 

aa 

bd 

00 b7 

10 

02 

a5 

fl 

7b 

37 

ld28 

20 

a3 

lf a5 23 20 14 

91 

3d 

lf78 

60 

ad 

81 lf 

49 

aO 

B:d 

81 

c6 

8f 

ld30 

20 

02 

91 a2 aO 20 9d 

lc 

c4 

lf80 

lf 

ea 

60 a5 

29 

99 

b6 

03 

21 

35 

ld38 

aa 

68 

a8 ad dl lb 4a 

60 

d6 

lf88 

a5 

2a 

99 cO 

03 

a5 

70 

99 

13 

8d 

ld40 

a5 

45 

18 65 43 85 45 

90 

dl 

lf90 

ca 

03 

60 a5 

2d 

99 

b6 

03 

29 

4a 

ld48 

08 

a5 

46 69 00 29 03 

85 

42 

lf98 

a5 

2e 

99 cO 

03 

a5 

72 

99 

2d 

2a 

ld50 

46 

a5 

47 38 e5 43 85 

47 

5f 

IfaO 

oa 

03 

60 b9 

b6 

03 

85 

29 

27 

72 

ld58 

a5 

48 

e9 00 85 48 90 

02 

7d 

lfa8 

b9 

cO 

03 85 

2a 

b9 

ca 

03 

d4 

7c 

ld60 

18 

60 

38 60 20 b4 lb 

06 

e 3 

lfbO 

85 

70 

60 b9 

b6 

03 

85 

2b 

ad 

Oa 

ld68 

43 

06 

43 dO 04 a9 ff 

85 

32 

lfb8 

b9 

cO 

03 85 

2c 

b9 

ca 

03 

05 

54 

ld70 

43 

60 

a5 3f 85 45 a5 

40 

ce 

lfcO 

85 

71 

60 20 

39 

a9 

20 

.45 

06 

12 

ld78 

85 

46 

a5 4l 85 47 a5 

42 

60 

lfc8 

a9 

20 

d8 lf 

20 

d8 

lf 

a5 

2c 

68 

ld80 

85 

48 

60 20 72 ld aO 

ff 

d8 

lfdO 

fb 

fO 

fO c6 

fb 

4c 

Of 

a9 

Oa 

06 

ld88 

84 

ff 

84 fe 20 b4 lb 

a9 

74 

lfd8 

a6 

23 

aO 00 

86 

ef 

84 

fO 

14 

36 

ld90 

01 

85 

3c 20 Ob ld 86 

24 

63 

lfeO 

: aO 

c7 

84 18 

86 

17 

20 

33 

90 

ee 

ld98 

: 84 

27 

20 a7 ld 20 e6 

lb 

51 

lfe8 

: cO 

a4 

26 a2 

00 

84 

fO 

86 

cd 

d6 

IdaO 

20 

Ob 

ld 86 24 84 27 

20 

al 

IffO 

: ef 

a2 

9f 86 

17 

84 

18 

4c 

78 

75 

lda8 

3c 

a9 

20 4b cO 20 4e 

cO 

f2 

lff8 

: 33 

cO 

9b 99 

Oa 

Oa 

Oa 

Oa 

d3 

10 

ldbO 

08 

86 

de 84 df 20 63 

a9 

23 










d3 

ldb8 

: a6 

de 

a4 df 20 30 90 

28 

08 

Listing 3. 

(Schluß) 







lb78 : 

65 2f bO 14 aa c9 c8 bO 

al 

ldcö : 

4ö a? io 4ö a? ic ho ao 

?c 











lb80 : 

Of a5 26 18 65 30 bO 08 

99 

IddO : 

14 a4 16 86 19 84 la a6 

f8 











lb88 : 

a8 c9 c8 bO 03 20 48 cO 

31 

ldd8 : 

13 a4 15 ca 88 86 lb 84 

Oe 












lb90 : 

a5 23 18 65 2f bO 10 aa 

88 

IdeO : 

lc 20 2d cO 20 2d cO 68 

af 


Name 

a.palnt 7000 


7000 7ffd 

lb98 : 

c9 c8 bO Ob a5 26 38 e5 

8b 

lde8 : 

85 lc 68 85 lb 68 85 la 

85 












IbaO : 

30 90 04 a8 20 48 cO a5 

cl 

IdfO : 

68 85 19 60 c6 fb 20 Of 

58 


7000 

4c 

lc 

72 

4c 

16 

72 

4c 

82 

ac 

lba8 

45 18 65 43 85 45 bO 03 

06 

ldf8 

a9 20 78 cO 20 24 a9 20 

f2 


7008 

71 

4c 

4e 

71 

4c 

27 

71 

4c 

bd 

IbbO 

4c 48 lb 60 a9 80 20 11 

34 

leOO 

93 cO a9 00 85 3f 85 40 

47 


7010 

e7 

7f 

4c 

el 

71 

4c 

24 

80 

11 

lbb8 

91 a5 8e c5 8d bO 02 a5 

2 a 

le08 

85 4l a9 04 85 42 60 20 

45 


7018 

a6 

31 

a4 

33 

86 

19 

84 

la 

5e 

lbcO 

8d 20 14 91 20 Ob 91 a5 

81 

lelO 

39 a9 20 48 a9 a5 23 a6 

dl 


7020 

a6 

32 

a4 

34 

86 

lb 

84 

lc 

lb 

lbc8 

2d 85 43 dO 02 e6 43 60 

c8 

lel8 

24 20 Of 70 Oa bO 04 c9 

e8 


7028 

4c 

54 

cO 

85 

76 

c6 

fb 

20 

4d 

lbdO 

00 00 00 85 3c 20 72 ld 

4a 

le20 

c8 90 02 a9 c7 85 dd 38 

77 


7030 

24 

cO 

a2 

71 

aO 

70 

20 

27 

e7 

lbd8 

aO ff 84 ff 84 fe 20 b4 

c3 

le28 

a5 27 e5 dd bO 04 e6 27 

ab 


7038 

cO 

20 

39 

a9 

a5 

el 

a2 

00 

80 

IbeO 

lb a9 01 8d dl lb ad dl 

12 

le30 

dO f5 85 26 20 fO la a5 

5e 


7040 

86 

40 

Oa 

Oa 

26 

40 

Oa 

26 

83 

lbe8 

lb 8d dO lb 20 Ob ld a5 

7b 

le38 

fb fO d4 c6 fb 20 Of a9 

09 


7048 

40 

85 

3f 

86 

42 

a5 

e2 

Oa 

de 

lbfO 

3c dO 08 ad dl lb cd dO 

lb 

le40 

20 78 cO 4c 24 a9 20 54 

Of 


7050 

Oa 

26 

42 

Oa 

26 

42 

85 

41 

4c 

lbf8 

lb fO 02 a9 00 85 3b e4 

24 

le48 

cO 20 57 cO 08 20 le 90 

21 


7058 

a5 

76 

fO 

06 

20 

24 

10 

4c 

31 

IcOO 

fe dO 04 c4 ff fO lc 8e 

15 

le50 

28 90 f6 60 a5 81 4c 3c 

9a 


7060 

65 

70 

20 

30 

10 

a5 

fb 

fO 

Ob 

lc08 

d2 lb a5 fe 20 Of 70 c9 

81 

le58 

cO a5 d2 fO 01 60 20 63 

18 


7068 

dO 

c6 

fb 

20 

7d 

70 

4c 

93 

52 

lclO 

02 fO 16 a6 ff 98 20 Of 

48 

le 60 

cO a9 35 85 01 20 3d la 

2d 


7070 

cO 

01 

31 

03 

57 

49 

4e 

4b 

ed 

lcl8 

70 c9 02 fO Oc ae d2 lb 

c3 

le68 

aO Of 98 Oa Oa Oa Oa 99 

44 


7078 

45 

4c 

20 

3f 

00 

20 

Of 

a9 

64 

lc20 

20 48 lc 20 40 ld 90 be 

lc 

le70 

00 4f 88 10 f5 78 a9 35 

70 


7080 

20 

78 

cO 

4c 

24 

a9 

a9 

00 

cc 

lc28 

60 ad d2 lb 18 65 fe 6a 

f4 

le78 

85 01 aO 00 b9 00 f8 20 

66 


7088 

85 

26 

85 

23 

a6 

23 

a4 

26 

48 

lc30 

aa 98 18 65 ff 6a a8 ad 

2a 

le80 

38 lf 99 00 40 b9 00 f9 

74 


7090 

20 

66 

a9 

fO 

08 

a6 

23 

a4 

f7 

lc38 

dO lb dO 02 85 3b 20 44 

45 

le88 

20 38 lf 99 00 4l b9 00 

bO 


7098 

26 

20 

bb 

70 

18 

90 

07 

a5 

39 

lc40 

lc 4c e6 lb 86 fe 84 ff 

12 

le90 

fa 20 38 lf 99 00 42 b9 

a2 


70a0 

23 

18 

69 

07 

85 

23 

e6 

23 

5e 

lc48 

a5 3b dO de 86 fe 84 ff 

cd 

le98 

00 fb 20 38 lf 99 00 43 

ea 


70a8 

a5 

23 

c9 

aO 

90 

de 

a9 

00 

Oc 

lc50 

20 63 a9 a6 fe a4 ff 4c 

Of 

leaO 

b9 00 fc 20 6a lf 99 00 

a2 


70b 0 

85 

23 

e6 

26 

&5 

26 

c9 

c8 

89 

lc58 

4b 90 20 5d lc 20 64 ld 

2e 

lea8 

44 b9 00 fd 20 6a lf 99 

8e 


70b8 

90 

d2 

60 

86 

24 

c8 

84 

27 

83 

lc60 

20 72 ld 20 Ob ld 20 48 

af 

lebO 

00 45 b9 00 fe 20 6a lf 

9a 


70c0 

cO 

c8 

bO 

3f 

20 

66 

a9 

dO 

76 

lc68 

cO 20 40 ld 90 f5 60 20 

67 

leb8 

99 00 46 b9 00 ff 20 6a 

6f 


70c8 

3a 

c6 

24 

a6 

24 

eO 

ff 

fO 

6e 

lc70 

72 lc 20 64 ld 20 72 ld 

5c 

lecO 

: lf 99 00 47 c8 dO b5 ad 

da 


70d0 

32 

a4 

27 

20 

66 

a9 

dO 

Oc 

31 

lc78 

: 20 Ob ld 86 24 84 27 20 

79 

lec8 

: 12 dO c9 96 dO f9 b9 00 

4b 


70d8 

a4 

27 

a6 

24 

88 

20 

66 

a9 

b4 

lc80 

: 3c a9 20 33 cO 20 Ob ld 

73 

ledO 

: 40 99 00 04 b9 00 44 99 

3d 


70e0 

fO 

21 

dO 

e5 

a5 

23 

85 

24 

23 

lc88 

: 20 48 cO 20 40 ld 90 f5 

lc 

led8 

: 00 d8 b9 00 4l 99 00 05 

9e 


70e8 

e6 

24 

a6 

24 

eO 

aO 

bO 

13 

Oa 

lc90 

: 20 Ob ld 86 24 84 27 20 

91 

leeO 

: b9 00 45 99 00 d9 c8 dO 

bl 


70f0 

a4 

27 

20 

66 

a9 

dO 

Od 

a4 

9b 

lc98 

: 3c a9 4c 33 cO a5 2d 86 

ld 

lee8 

: e5 a5 81 20 6a lf 8d 21 

lc 


70f8 

27 

a6 

24 

88 

20 

66 

a9 

fO 

4a 


34 
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MALPROGRAMM 


7100 : 

02 dO e5 60 a6 23 a4 27 

54 

7350 : 

42 45 20 3f 00 a2 6f aO 

39 

75aO : 75 01 36 03 32 00 01 31 

Od 

7108 : 

68 68 a9 00 20 63 77 c6 

97 

7358 : 

73 20 57 a9 20 4e a9 20 

42 

75a8 : 03 52 45 43 48 54 45 43 

51 

7110 : 

26 c6 26 4c ae 70 20 3c 

14 

7360 : 

24 a9 a6 el a4 e2 20 30 

81 

75b0 : 4b 20 50 55 4e 4b 54 20 

9b 

7118 : 

a9 20 4b cO 20 4e cO 08 

44 

7368 : 

90 20 21 a9 4c 5c 73 01 

fd 

75b8 : 31 20 3f 00 a2 83 aO 76 

7f 

7120 : 

20 63 a9 28 90 f6 60 a5 

ef 

7370 : 

31 03 50 55 4e 4b 54 45 

fd 

75c0 : 20 57 a9 20 4e a9 a2 9b 

ee 

7128 : 

23 c5 24 bO Oa a5 24 38 

lc 

7378 : 

20 53 45 54 5a 45 4e 00 

27 

75c8 : aO 76 20 27 cO 20 51 a9 

36 

7130 : 

e5 23 85 25 4c 3b 71 e5 

dd 

7380 : 

a2 a8 aO 73 20 57 a9 20 

bO 

75d0 : 20 42 a9 20 21 a9 a6 23 

cO 

7138 : 

24 85 25 a5 26 c5 27 bO 

ab 

7388 : 

21 a9 20 39 a9 20 48 a9 

bd 

75d8 : a4 26 86 25 84 28 a6 24 

42 

7140 : 

08 a5 27 38 e5 26 85 28 

e2 

7390 : 

a5 ee fO f3 20 24 a9 20 

71 

75eO : a4 27 86 2f 84 30 a2 aO 

35 

7148 : 

60 e5 27 85 28 60 20 39 

8e 

7398 : 

45 a9 20 42 a9 a6 23 a4 

a8 

75e8 : aO 76 20 27 cO 20 39 a9 

f6 

7150 : 

a9 20 45 a9 e4 25 bO 06 

d6 

73a0 : 

26 86 24 84 27 4c 90 73 

al 

75fO : 20 45 a9 a6 25 a4 28 86 

17 

7158 : 

a6 25 86 el 86 23 c4 28 

53 

73a8 : 

01 31 03 46 52 45 49 48 

dO 

75f8 : 24 84 27 20 3f a9 a5 2f 

62 

7160 : 

bO 06 a4 28 84 e2 84 26 

ff 

73bO : 

4l 4e 44 00 a2 dl aO 73 

4c 

7600 : 38 e5 25 90 Od 18 65 23 

f4 

7168 : 

a5 23 38 e5 25 85 24 a5 

c4 

73b8 : 

20 57 a9 20 4e a9 a2 dd 

6b 

7608 : bO 04 c9 aO 90 Ob a9 9f 

88 

7170 : 

26 38 e5 28 85 27 20 18 

73 

73cO : 

aO 73 20 27 cO 20 51 a9 

■ ac 

7610 : dO 07 18 65 23 bO 02 a9 

2a 

7178 : 

10 a5 fb fO dl c6 fb 4c 

54 

73 c8 : 

20 42 a9 20 21 a9 4c c5 

94 

7618 : 00 85 24 a5 30 38 e5 28 

45 

7180 : 

7d 70 a2 27 aO 77 20 57 

b8 

73d0 : 

73 01 31 03 53 54 52 4l 

14 

7620 : 90 Od 18 65 26 bO 04 c9 

75 

7188 : 

a9 20 66 10 a2 3a aO 77 

4a 

73 d8 : 

48 4c 45 4e 00 01 33 03 

3c 

7628 : c8 90 Ob a9 c7 dO 07 18 

80 

7190 

20 27 cO 4c 21 10 a5 d4 

dO 

73 eO : 

20 5a 55 20 50 55 4e 4b 

06 

7630 : 65 26 bO 02 a9 00 85 27 

14 

7198 

dO 03 4c 8d cO 4c 90 cO 

el 

73e8 : 

54 20 3f 00 a2 16 aO 74 

62 

7638 : 20 3f a9 a5 23 48 a5 26 

6e 

71a0 

a2 45 aO 73 20 57 a9 20 
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a5 

74 

69 

89 

7b90 

a4 

de 

99 

00 

Oa 

8a 

99 

00 

65 

7ddO 

31 

03 45 

4c 4c 49 50 53 

55 

7958 

64 

38 

e5 

8e 

a8 

a6 

2f 

20 

eO 

7b98 

09 

e6 

de 

28 

90 

ed 

a9 

ff 

fO 

7dd8 

: 45 

20 4d 

49 54 54 45 4c 

3f 

7960 

66 

a9 

fO 

be 

a6 

24 

a4 

27 

db 

7b aO 

c8 

99 

00 

09 

a9 

00 

85 

d9 

ba 

7de0 

: 50 

4e 4b 

54 2e 3f 00 01 

94 

7968 

20 

30 

90 

4c 

20 

79 

00 

ad 

77 

7b a8 

a4 

d9 

b9 

00 

09 

c9 

ff 

fO 

68 

7de8 

: 33 

05 52 

41 44 49 45 4e 

9b 

7970 

6e 

79 

4d 

12 

dO 

45 

a2 

4d 

8d 

7bb0 

: cd 

85 

24 

b9 

00 

Oa 

85 

27 

35 

7df0 

: 20 

3f 20 

20 20 20 00 a2 

04 

7978 

04 

de 

8d 

6e 

79 

60 

01 

31 

lc 

7bb8 

: 20 

cO 

7b 

e6 

d9 

4c 

a8 

7b 

8e 

7df8 

: 2c 

aO 7e 

20 57 a9 20 4e 

f8 

7980 

03 

53 

50 

52 

41 

59 

45 

4e 

lc 

7b cO 

: 20 

18 

70 

20 

57 

cO 

08 

86 

b5 

7e00 

: a9 

a2 42 

aO 7e 20 27 cO 

a6 

7988 

: 00 

a2 

27 

aO 

77 

20 

57 

a9 

eO 

7bc8 

: 25 

84 

28 

20 

Of 

cO 

c5 

2f 

aa 

7e08 

: 20 

39 a9 

20 48 a9 84 26 

63 

7990 

: 20 

66 

10 

a2 

3a 

aO 

77 

20 

02 

7bd0 

: dO 

24 

a5 

25 

18 

65 

24 

38 

6e 

7elO 

: a5 

23 a6 

24 20 e7 7f 85 

bf 

7998 

: 27 

cO 

20 

39 

a9 

20 

48 

a9 

5f 

7bd8 

: e5 

23 

aa 

86 

25 

a5 

28 

18 

lb 

7el8 

: 8d 

Oa 90 

06 a2 80 86 8d 

f3 

79a0 

: 20 

27 

71 

a5 

25 

20 

11 

91 

20 

7be0 

: 65 

27 

38 

e5 

26 

a8 

84 

28 

ae 

7e20 

: a9 

ff 85 

8e 20 lb 10 a5 

62 

79a8 

: a5 

28 

20 

14 

93 

20 

08 

91 

49 

7be8 

: 20 

Of 

cO 

c5 

30 

dO 

07 

a6 

6c 

7e28 

: fb 

fO dd 

60 01 31 03 4b 

5b 

79b 0 

: a5 

2e 

c9 

55 

90 

03 

4c 

9a 

11 

7b fO 

: 25 

a4 

28 

20 

le 

90 

28 

90 

9e 

7e30 

: 52 

45 49 

53 20 4d 49 54 

lc 

79b 8 

: 79 

20 

18 

10 

a5 

fb 

fO 

da 

fd 

7b f 8 

: ca 

60 

01 

31 

03 

56 

45 

4b 

e7 

7e38 

: 54 

45 4c 

50 2e 20 58 20 

d2 

79c0 

: c6 

fb 

20 

7d 

70 

a6 

25 

a4 

56 

7c00 

: 54 

4f 

52 

20 

50 

55 

4e 

4b 

14 

7e40 

: 3f 

00 01 

33 03 52 4l 44 

76 

79c8 

: 28 

8e 

00 

44 

8c 

01 

44 

4c 

3a 

7c08 

: 54 

20 

31 

20 

3f 

00 

01 

35 

lf 

7e48 

: 49 

55 53 

20 3f 20 20 20 

ca 

79d0 

: 33 

10 

e6 

d2 

a2 

20 

aO 

7a 

c2 

7c 10 

: 04 

32 

00 

20 

34 

7a 

20 

44 

52 

7e50 

: 20 

00 a2 

3b aO 7f 20 57 

b6 

79d8 

: 20 

57 

a9 

ae 

00 

44 

ac 

01 

bb 

7cl8 

: 7a 

a5 

la 

38 

e5 

lc 

29 

01 

d8 

7e58 

: a9 

a9 00 

85 76 20 4e a9 

7c 

79e0 

: 44 

86 

25 

84 

28 

20 

4e 

71 

el 

7c20 

: fO 

02 

e6 

lc 

20 

54 

cO 

20 

36 

7e60 

: 20 

24 a9 

20 30 a9 a2 4e 

78 

79e8 

: 20 

54 

cO 

a2 

02 

aO 

44 

86 

fa 

7c28 

: 57 

cO 

bO 

lf 

20 

57 

cO 

08 

bf 

7e68 

: aO 

7f 20 

27 cO a5 fb fO 

cO 

79f0 

: db 

84 

de 

aO 

00 

bl 

db 

e6 

23 

7c30 

: 86 

db 

84 

de 

8a 

18 

65 

24 

a8 

7e70 

: 08 

c6 fb 

20 Of a9 4c 52 

f2 

79f8 

: db 

dO 

02 

e6 

de 

85 

d9 

20 

3a 

7c38 

: aa 

98 

18 

65 

27 

a8 

20 

Of 

37 

7e78 

: 7e 

20 51 

90 fO ef c9 03 

28 

7a00 

: 57 

cO 

08 

a5 

d9 

29 

Of 

20 

dl 

7c40 

: cO 

a6 

db 

a4 

de 

20 

21 

90 

53 

7e80 

: fO 

dO e9 

14 dO 2a a5 76 

af 

7a08 

: 21 

90 

28 

bO 

10 

20 

57 

cO 

72 

7c48 

: 28 

90 

de 

4c 

13 

7c 

20 

f4 

f8 

7e88 

: fO 

e3 a2 

03 a9 00 20 66 

5b 


36 
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7e90 : 

cO 

20 

60 

cO 

20 

45 

a9 c6 

fl 

7e98 : 

76 

fO 

d2 

aO 

00 

84 

3b b9 

d3 

7ea0 : 

00 

Oa 

20 

d5 

7e 

e6 

3b a4 

bd 

7ea8 : 

3b 

c4 

76 

90 

f2 

4c 

6d 7e 

39 

7eb0 : 

c9 

Od 

dO 

14 

a5 

e2 

18 69 

5b 

7eb8 : 

08 

c9 

c8 

90 

02 

a9 

00 85 

61 

7ec0 : 

e2 

a9 

01 

85 

fb 

4c 

52 7e 

dO 

7ec8 : 

a4 

76 

e6 

76 

99 

00 

Oa 20 

32 

7ed0 : 

d5 

7e 

4c 

6d 

7e 

20 

75 cO 

e5 

7ed8 : 

a2 

00 

86 

da 

a2 

03 

Oa 26 

2e 

7ee0 : 

da 

ca 

dO 

fa 

85 

d9 

a5 da 

26 

7ee8 : 

18 

69 

d8 

85 

da 

a2 

32 86 

34 

7ef0 : 

01 

aO 

07 

bl 

d9 

99 

00 09 

b6 

7ef8 : 

88 

10 

f8 

a2 

36 

86 

01 a9 

Oa 

7f00 : 

00 

85 

32 

a9 

08 

85 

33 a6 

4b 

7f08 : 

32 

3e 

00 

09 

90 

07 

a6 23 

9d 

7fl0 : 

a4 

26 

20 

le 

90 

e6 

23 c6 

ee 

7fl8 : 

: 33 

dO 

ec 

a5 

23 

38 

e9 08 

4f 

7f20 : 

: 85 

23 

e6 

26 

e6 

32 

a5 32 

bO 

7f28 : 

; c9 

08 

90 

d7 

a5 

23 

18 69 

bb 

7f30 : 

: 08 

85 

23 

a5 

26 

38 

e9 08 

54 

7f38 : 

: 85 

26 

60 

01 

31 

03 

54 45 

10 

7f40 : 

: 58 

54 

20 

50 

4f 

53 

49 54 

32 

7f48 : 

: 49 

4f 

4e 

20 

3f 

00 

01 31 

2b 

7f50 : 

: 03 

57 

45 

4c 

43 

48 

45 52 

Oa 

7f58 

: 20 

54 

45 

58 

54 

20 

3f 20 

82 

7f60 

: 00 

a2 

27 

aO 

77 

20 

57 a9 

b8 

7f68 

: 20 

66 

10 

a2 

3a 

aO 

77 20 

da 

7f70 

: 27 

cO 

20 

39 

a9 

20 

48 a9 

37 

7f78 

: 20 

27 

71 

a6 

25 

e8 

8a 20 

61 

7f80 

: 11 

91 

a6 

28 

e8 

8a 

20 14 

94 

7f88 

: 91 

20 

08 

91 

a5 

2e 

c9 05 

5b 

7f90 

: bO 

eO 

20 

18 

10 

a5 

fb fO 

bb 

7f98 

: d9 

c6 

fb 

20 

7d 

70 

aO b4 

le 

7fa0 

: a2 

80 

84 

3a 

86 

39 

a6 25 

02 

7fa8 

: e8 

8e 

5e 

bO 

a6 

28 

e8 8e 

fl 

7fbO 

: 5f 

bO 

20 

54 

cO 

20 

57 cO 

e6 

7fb8 

: 08 

20 

Oc 

cO 

8d 

00 

09 28 

39 

7fc0 

: bO 

le 

20 

57 

cO 

08 

20 Oc 

57 

7fc8 

: cO 

Oa 

Oa 

Oa 

Oa 

Od 

00 09 

6c 

7fd0 

: aO 

00 

91 

39 

e6 

39 

dO 02 

7b 

7fd8 

: e6 

3a 

28 

90 

d8 

4c 

72 a9 

04 

7fe0 

: 08 

ad 

00 

09 

4c 

dO 

7f 86 

36 

7fe8 

: dd 

c5 

dd 

bO 

03 

85 

dd 8a 

le 

7ffO 

: 38 

e5 

dd 

60 

20 

82 

71 20 

ba 

7ff8 

: 8d 

cO 

4c 

30 

a9 

Oa 

Oa Oa 

26 


Listing 4. (Schluß) 


Name : a.paint 8000 8000 8ff7 


8000 : 

4c 

c4 

81 

4c 

Oe 

82 

4c 

5e 

7b 

8008 : 

82 

4c 

01 

83 

4c 

3d 

84 

4c 

ba 

8010 : 

ac 

83 

4c 

a7 

84 

4c 

66 

85 

d5 

8018 ; 

4c 

d3 

86 

ea 

ea 

ea 

4c 

76 

71 

8020 : 

: 88 

4c 

39 

89 

4c 

89 

80 

4c 

fa 

8028 ; 

; ee 

89 

4c 

9b 

8a 

4c 

lc 

8a 

f2 

8030 : 

: 4c 

eb 

8d 

01 

07 

Od 

le 

14 

6f 

8038 : 

: 05 

05 

46 

41 

52 

42 

52 

4f 

99 

8040 : 

: 54 

41 

54 

49 

4f 

4e 

3a 

04 

cb 

8048 : 

: 4c 

20 

2d 

20 

54 

4l 

42 

45 

d7 

8050 : 

: 4c 

4c 

45 

20 

4c 

4f 

45 

53 

13 

8058 : 

: 43 

48 

45 

4e 

04 

53 

20 

2d 

90 

8060 : 

: 20 

53 

45 

51 

55 

45 

4e 

5a 

13 

8068 

: 04 

5a 

20 

2d 

20 

5a 

59 

4b 

18 

8070 

: 4c 

55 

53 

04 

3e 

00 

03 

53 

53 

8078 

: 5a 

4c 

08 

8a 

05 

8a 

Of 

8a 

42 

8080 

: 20 

06 

70 

20 

30 

a9 

20 

21 

d7 


8088 : 

a9 

a6 

23 

a5 

24 

e4 

24 90 

ld 

8090 : 

07 

86 

32 

85 

31 

4c 

9c 80 

01 

8098 : 

86 

31 

85 

32 

a6 

26 

a5 27 

df 

80a0 : 

e4 

27 

90 

05 

86 

34 

85 33 

63 

80a8 : 

60 

86 

33 

85 

34 

60 

a6 31 

Oc 

80b0 : 

a4 

33 

86 

23 

84 

26 

a6 32 

6c 

80b8 : 

20 

e4 

80 

a4 

34 

a6 

25 20 

4c 

80c0 : 

e4 

80 

a4 

34 

a5 

25 

18 65 

43 

80c8 : 

32 

26 

dd 

38 

e5 

31 

84 26 

d2 

80d0 : 

85 

23 

2a 

45 

dd 

29 

01 dO 

e7 

80d8 : 

04 

a9 

ff 

85 

23 

20 

3f a9 

e5 

80e0 : 

a6 

32 

a4 

33 

86 

24 

84 27 

19 

80e8 : 

4c 

3f 

a9 

20 

Ob 

81 

e6 24 

e3 

80 fO : 

e6 

23 

a6 

25 

fO 

04 

c6 25 

4b 

80f8 : 

: dO 

fl 

60 

20 

Ob 

81 

e6 27 

84 

8100 : 

: e6 

26 

a4 

28 

fO 

f4 

c6 28 

4a 

8108 : 

: dO 

fl 

60 

a6 

24 

a4 

27 20 

02 

8110 : 

: Of 

cO 

a6 

23 

a4 

26 

4c 21 

7c 

8118 : 

: 90 

a6 

31 

a4 

33 

86 

23 84 

d9 

8120 : 

: 26 

a4 

34 

20 

e4 

80 

a4 28 

df 

8128 : 

: a6 

32 

20 

e4 

80 

a6 

32 a5 

dd 

8130 : 

: 28 

18 

65 

34 

26 

dd 

38 e5 

42 

8138 

: 33 

86 

23 

85 

26 

2a 

45 dd 

ac 

8140 

: 29 

01 

dO 

04 

a9 

ff 

85 26 

9b 

8148 

: 20 

3f 

a9 

a6 

31 

a4 

34 4c 

e9 

8150 

: e4 

80 

a9 

00 

20 

11 

91 a5 

fb 

8158 

: 32 

38 

e5 

31 

85 

2a 

a5 24 

ce 

8160 

: 38 

e5 

23 

20 

14 

91 

20 Ob 

bc 

8168 

: 91 

a2 

ff 

20 

12 

10 

85 2f 

64 

8170 

: aO 

00 

20 

63 

10 

a9 

00 20 

13 

8178 

: 11 

91 

a5 

34 

38 

e5 

33 85 

cc 

8180 

: 2a 

a5 

27 

38 

e5 

26 

20 14 

86 

8188 

: 91 

20 

Ob 

91 

a2 

ff 

20 12 

ed 

8190 

: 10 

85 

30 

aO 

00 

20 

54 10 

f5 

8198 

: 20 

24 

a9 

20 

8d 

cO 

20 78 

89 


81a0 : CO 4c OS ä9 a6 2-> 34 Oe 


81a8 : 

86 

17 

84 

18 

a6 

31 

a4 

33 

cb 

81b0 : 

86 

ef 

84 

fO 

4c 

4b 

cO 

20 

cf 

81b8 : 

80 

80 

20 

24 

cO 

a2 

03 

aO 

73 

81 c 0 : 

82 

4c 

27 

cO 

20 

b7 

81 

20 

50 

81c8 : 

39 

a9 

a6 

el 

86 

25 

20 

ae 

2b 

81d0 : 

80 

a5 

fb 

fO 

f2 

c6 

fb 

20 

d5 

81d8 : 

98 

81 

20 

a4 

81 

20 

4e 

cO 

al 

81e0 : 

08 

c4 

26 

fO 

18 

86 

23 

84 

3d 

81 e 8 : 

: 26 

a4 

33 

a6 

31 

86 

24 

84 

e3 

81f0 : 

: 27 

a5 

32 

38 

e5 

31 

85 

25 

c6 

81f8 : 

: 20 

eb 

80 

e6 

33 

28 

90 

dd 

7d 

8200 : 

: 4c 

c4 

81 

Ol 

31 

03 

53 

43 

2e 

8208 : 

: 48 

45 

52 

45 

4e 

00 

20 

b7 

05 

8210 : 

; 81 

20 

39 

a9 

a4 

e2 

84 

28 

e9 

8218 : 

: 20 

19 

81 

a5 

fb 

fO 

f2 

c6 

7a 

8220 : 

: fb 

20 

98 

81 

a6 

32 

a4 

28 

60 

8228 : 

; 20 

a8 

81 

20 

4e 

cO 

08 

e4 

d6 

8230 : 

: 23 

fO 

18 

86 

23 

84 

26 

a4 

da 

8238 

: 33 

a6 

31 

86 

24 

84 

27 

a5 

2a 

8240 

: 34 

38 

e5 

33 

85 

28 

20 

fb 

82 

8248 

: 80 

e6 

31 

2(< 

90 

dd 

4c 

Oe 

d2 

8250 

: 82 

20 

80 

80 

20 

24 

cO 

a2 

7e 

8258 

: f7 

aO 

82 

4c 

27 

cO 

20 

51 

65 

8260 

: 82 

a5 

34 

38 

e5 

33 

4a 

85 

f5 

8268 

: 8e 

a5 

31 

85 

35 

a5 

34 

18 

47 

8270 

: 65 

33 

6a 

85 

36 

20 

39 

a9 

57 

8278 

: a5 

el 

c5 

31 

bO 

Oc 

aO 

03 

99 

8280 

: 38 

a5 

31 

a2 

00 

e5 

el 

4c 

7b 

8288 

: 91 

82 

aO 

01 

38 

e5 

31 

a2 

5f 

8290 

: 01 

85 

8d 

84 

40 

86 

76 

a2 

9f 

8298 

: 02 

86 

42 

a9 

00 

85 

3 f 

86 

d9 

82a0 

: 41 

a6 

35 

a4 

36 

86 

23 

84 

43 

82a8 

: 26 

20 

24 

10 

a5 

fb 

fO 

c5 

73 

82b0 

: c6 

fb 

20 

98 

81 

20 

42 

10 

dl 

82b8 

: 20 

48 

10 

a6 

35 

a4' 

36 

86 

34 

82c0 

: 23 

84 

26 

20 

27 

10 

86 

23 

06 


82c8 : 84 26 c4 lb fO 21 84 lb 54 
82d0 : a6 31 a5 76 dO 07 a4 33 85 
82d8 : e6 33 4e el 82 a4 34 c6 53 
82e0 : 34 86 24 84 27 a5 32 38 ca 
82e8 : e5 31 85 25 20 eb 80 20 Of 
82fO : 3f 10 90 c7 4c 5e 82 01 18 
82f8 : 31 03 42 49 45 47 45 4e a5 
8300 : 00 20 51 82 a5 32 38 e5 4e 
8308 : 31 4a 85 8d a5 33 85 36 e8 
8310 : a5 32 18 65 31 6a 85 35 68 
8318 : 20 39 a9 a5 e2 c5 33 bO 7e 
8320 : Oc aO 02 38 a5 33 a2 00 82 
8328 : e5 e2 4c 34 83 aO 00 38 c6 
8330 : e5 33 a2 01 85 8e 84 40 d7 
8338 : 86 76 a2 02 86 42 a9 00 03 
8340 : 85 3f 86 41 a6 35 a4 36 42 
8348 : 86 23 84 26 20 24 10 a5 f4 
8350 : fb fO o5 c6 fb 20 98 81 34 
8358 : 20 42 10 20 48 10 a6 35 ac 
8360 : a4 36 86 23 84 26 20 27 6e 
8368 : 10 86 23 84 26 e4 lb fO ed 
8370 : 21 86 lb a4 33 a5 76 fO 4c 
8378 : 07 a6 31 e6 31 4c 84 83 8a 
8380 : a6 32 c6 32 86 24 84 27 21 
8388 : a5 34 38 e5 33 85 28 20 52 
8390 : fb 80 20 3f 10 90 c7 4c f9 
8398 : 01 83 20 80 80 a6 32 a4 c2 
83aO : 34 86 el 84 e2 a2 29 aO 49 
83a8 : 84 4c 27 cO 20 9a 83 20 59 
83bO : 39 a9 a6 el e4 32 bO 04 4e 
83b8 : a6 32 86 el a4 e2 c4 34 32 
83c0 : bO 04 a4 34 84 e2 86 24 e4 
83c8 : 84 27 a6 31 a4 33 86 23 f4 
83dO : 84 26 20 18 10 a5 fb fO 72 
83d8 : d6 c6 fb 20 el 83 4c ac d9 
83eO : 83 20 52 81 a9 ff 85 28 39 
83e8 : a4 26 84 34 a4 33 84 32 al 
83fO : a6 31 a4 32 20 Of cO a6 69 
83f8 : 23 a4 34 20 21 90 e6 34 19 
8400 : a5 28 18 65 30 85 28 90 5d 
8408 : 02 e6 32 a4 34 c4 27 90 c6 
8410 : df fO dd e6 23 a5 25 18 eO 
8418 : 65 2f 85 25 90 02 e6 31 32 
8420 : a6 23 e4 24 90 be fO bc 52 
8428 : 60 01 31 03 56 45 52 47 ld 
8430 : 52 4f 45 53 53 45 52 4e 2b 
8438 : 20 20 20 20 00 20 9a 83 e7 
8440 : a5 31 c5 32 fO f7 20 39 f7 
8448 : a9 a6 el e4 32 bO 04 a6 5f 
8450 : 32 86 el 86 24 a5 24 38 7f 
8458 : e5 23 20 11 91 a5 34 38 81 
8460 : e5 33 20 14 91 20 08 91 c7 
8468 : aO 00 20 63 10 20 54 10 fO 
8470 : a5 32 38 e5 31 20 14 91 81 
8478 : 20 Ob 91 a2 c8 20 12 10 cc 
8480 : bO 07 18 65 33 c9 c8 90 2c 
8488 : 05 c6 el 4c 49 84 85 27 Of 
8490 : a6 31 a4 33 86 23 84 26 3e 
8498 : 20 18 10 a5 fb fO a7 c6 fO 
84a0 : fb 20 el 83 4c 3d 84 20 95 
84a8 : 80 80 a6 32 a4 34 86 el 22 
84b0 : 84 e2 a2 4b aO 85 20 27 bc 
84b8 : cO 20 39 a9 a6 el e4 32 7d 
84cO : 90 06 fO 04 a6 32 86 el ea 
84c8 : e4 31 bO 04 a6 31 86 el c3 
84d0 : a4 e2 c4 34 90 06 fO 04 a2 
84d8 : a4 34 84 e2 c4 33 bO 04 c4 
84e0 : a4 33 84 e2 86 24 84 27 85 
84e8 : a6 31 a4 33 86 23 84 26 96 

Listing 5. »A.PAINT 8000«. Bitte 
mit dem MSE (Seite 159) eingeben. 
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f2 

8bb0 

5d 

cO 

a5 

84 

85 

81 

8d 

21 

44 

8d30 

20 

c2 

8b 

aO 

04 

a2 

00 

84 

07 

8eb0 

: 80 

a6 

3d 

a4 

3e 

86 

23 

84 

15 

8bb8 

dO 

a9 

01 

8d 

Oe 

de 

20 

ca 

2d 

8d38 

da 

86 

d9 

20 

lf 

8c 

aO 

60 

69 

8eb8 

: 26 

20 

3f 

a9 

a6 

3b 

a4 

3c 

43 

8bc0 

8d 

60 

a2' 

le 

aO 

00 

a9 

b9 

Oe 

8d40 

a2 

28 

84 

de 

86 

db 

20 

5d 

35 

8ec0 

: 20 

e4 

80 

a5 

fb 

dO 

03 

4c 

12 

8bc8 

99 

00 

09 

c8 

a5 

d9 

99 

00 

4c 

8d48 

cO 

20 

09 

8c 

aO 

40 

a2 

00 

83 

8ec8 

: 39 

8e 

c6 

fb 

20 

98 

81 

a6 

93 

8bd0 

09 

c8 

a5 

da 

99 

00 

09 

c8 

51 

8d50 

84 

da 

86 

d9 

aO 

60 

84 

de 

f7 

8ed0 

: 3d 

e4 

32 

bO 

03 

a9 

01 

2c 

fc 

8bd8 

a9 

99 

99 

00 

09 

c8 

a5 

db 

d9 

8d58 

86 

db 

20 

2d 

8c 

20 

Ob 

8d 

8b 

8ed8 

: a9 

ff 

85 

30 

a4 

3e 

c4 

34 

aO 

8be0 

99 

00 

09 

c8 

a5 

de 

99 

00 

7c 

8d60 

20 

ba 

8d 

a9 

30 

8d 

11 

dO 

ob 

8ee0 

: bO 

03 

a9 

02 

2c 

a9 

fe 

85 

d4 

8be8 

09 

c8 

e6 

de 

e6 

da 

ca 

dO 

bc 

8d68 

4c 

7d 

8c 

a2 

07 

86 

2f 

aO 

8d 

8ee8 

: 27 

a5 

28 

4a 

a8 

a5 

32 

a6 

03 

8b fO 

d5 

bd 

02 

8c 

99 

00 

09 

c8 

05 

8d70 

40 

a2 

00 

84 

da 

86 

d9 

aO 

lc 

8ef0 

: 3d 

20 

d5 

8f 

85 

35 

a6 

3e 

be 

8b f 8 

e8 

eO 

08 

dO 

f4 

aO 

00 

4c 

59 

8d78 

21 

a2 

40 

84 

de 

86 

db 

20 

3d 

8ef8 

: a4 

28 

a5 

34 

20 

d5 

8f 

85 

9a 

8c00 

00 

09 

c8 

fO 

03 

4c 

00 

09 

7a 

8d80 

c2 

8b 

aO 

60 

a2 

00 

84 

da 

2e 

8f00 

: 36 

a9 

ff 

85 

23 

85 

26 

a6 

00 

8 o 08 

60 

aO 

d8 

a2 

00 

84 

da 

86 

df 

8d88 

86 

d9 

20 

lf 

8c 

aO 

04 

a2 

Oa 

8f08 

: 3d 

a4 

3e 

86 

32 

84 

34 

86 

ld 

8c 10 

d9 

20 

lf 

8c 

aO 

64 

a2 

28 

5b 

8d90 

28 

84 

de 

86 

db 

20 

5d 

cO 

b8 

8flO 

: ef 

84 

fO 

a6 

3b 

a4 

3c 

86 

29 

8cl8 

84 

de 

86 

db 

4c 

5d 

cO 

a5 

25 

8d98 

20 

09 

8c 

aO 

20 

a2 

00 

84 

94 

8fl8 

: 17 

84 

18 

20 

4b 

cO 

a5 

79 

cO 

8c20 

d9 

18 

69 

cO 

85 

f7 

a5 

da 

de 

8da0 

da 

86 

d9 

aO 

04 

84 

de 

86 

2d 

8f20 

: 30 

03 

a9 

02 

2c 

a9 

fe 

85 

94 

8c28 

69 

03 

85 

f8 

60 

a9 

30 

85 

b2 

8da8 

db 

20 

2d 

8c 

20 

Ob 

8d 

20 

4l 

8f28 

: 79 

a6 

3d 

a5 

3b 

a4 

25 

20 

a6 

8c30 

01 

aO 

00 

bl 

de 

91 

d9 

88 

aa 

8db0 

ca 

8d 

a9 

30 

8d 

11 

dO 

4c 

ee 

8f30 

: d5 

8f 

85 

de 

a4 

25 

a5 

3e 

90 

8c38 

dO 

f9 

e6 

da 

e6 

df 

aO 

3f 

88 

8db8 

7d 

8c 

a9 

80 

8d 

18 

dO 

ad 

2e 

8f38 

: 4a 

aa 

a5 

3c 

4a 

20 

d5 

8f 

e4 

8c40 

bl 

de 

91 

d9 

88 

10 

f9 

aO 

32 

8dc0 

00 

dd 

29 

fc 

09 

02 

8d 

00 

70 

8f40 

: 85 

df 

46 

28 

a5 

25 

85 

24 

2d 

8c48 

27 

bl 

37 

91 

db 

bl 

39 

99 

ab 

8dc8 

dd 

60 

a9 

18 

8d 

18 

dO 

ad 

7b 

8f48 

: a5 

31 

85 

2f 

a6 

32 

a4 

34 

c4 

8c50 

00 

64 

88 

10 

f4 

a9 

35 

85 

23 

8dd0 

00 

dd 

09 

03 

8d 

00 

dd 

60 

73 

8f50 

: 86 

3b 

84 

3c 

a9 

ff 

85 

37 

3c 

8c58 

01 

a5 

de 

38 

e9 

40 

85 

de 

5f 

8dd8 

01 

31 

03 

44 

52 

45 

48 

57 

da 

8f58 

: 85 

38 

a6 

2f 

a4 

33 

20 

Of 

Ob 

8c60 

a5 

df 

e9 

02 

85 

df 

a5 

37 

Oc 

8de0 

49 

4e 

4b 

45 

4c 

20 

3f 

20 

cf 

8f60 

: cO 

8d 

00 

09 

a5 

3c 

8d 

01 

7d 

8c68 

38 

e9 

28 

85 

37 

bO 

02 

c6 

de 

8de8 

20 

20 

00 

20 

80 

80 

a4 

34 

23 

8f68 

: 09 

a9 

04 

8d 

02 

09 

a6 

3b 

72 

8c70 

38 

a5 

39 

38 

e9 

28 

85 

39 

39 

8df0 

84 

33 

20 

Oc 

70 

a5 

25 

aa 

b6 

8f70 

: ac 

01 

09 

ad 

00 

09 

20 

21 

aO 

8c78 

bO 

02 

c6 

3a 

60 

aO 

64 

a2 

04 

8df8 

4a 

85 

3d 

a5 

28 

4a 

85 

3e 

70 

8f78 

: 90 

ee 

01 

09 

ce 

02 

09 

dO 

a4 

8c80 

00 

84 

da 

86 

d9 

aO 

d8 

84 

59 

8 e 00 

a8 

20 

6c 

a9 

85 

8e 

4a 

85 

Oa 

8f80 

: ed 

a5 

37 

18 

65 

de 

85 

37 

e3 

8c88 

de 

86 

db 

a2 

04 

aO 

00 

bl 

9b 

8e08 

8d 

a2 

00 

86 

45 

86 

46 

86 

66 

8f88 

: 90 

07 

a5 

3b 

18 

65 

78 

85 

06 

8c90 

d9 

91 

db 

c8 

dO 

f9 

e6 

da 

70 

8el0 

da 

e6 

45 

dO 

02 

e6 

da 

20 

cc 

8f90 

: 3b 

a5 

38 

18 

65 

df 

85 

38 

8b 

8c98 

e6 

de 

ca 

dO 

f2 

ee 

ff 

8c 

79 

8el8 

2a 

10 

a5 

3d 

20 

Of 

70 

85 

a3 

8f98 

: 90 

07 

a5 

3c 

18 

65 

79 

85 

3a 

8ca0 

60 

78 

aO 

8c 

a 2 

c2 

8e 

15 

93 

8e20 

d9 

98 

a6 

3e 

20 

Of 

70 

18 

23 

8faO 

: 3c 

e6 

2f 

c6 

24 

dO 

b3 

a5 

d7 

8ca8 

03 

8e 

14 

03 

a9 

81 

8d 

la 

69 

8e28 

65 

49 

e5 

da 

bO 

e? 

a5 

45 

92 

8fa8 

: 23 

18 

65 

35 

85 

23 

90 

07 

99 

8cb0 

dO 

a9 

2b 

8d 

ff 

8c 

8d 

12 

90 

8e30 







i'j 

27 

5e 

8fb0 

: a5 

32 

18 

65 

30 

85 

32 

a5 

64 

8cb8 

dO 

a9 

00 

85 

2f 

8d 

Oe 

de 

5f 

8e38 

cO 

20 

39 

a9 

a2 

50 

aO 

64 

84 

8fb8 

: 26 

18 

65 

36 

85 

26 

90 

07 

e4 

8cc0 

58 

60 

a6 

01 

a9 

35 

85 

01 

6e 

8e40 

86 

23 

84 

26 

a5 

el 

29 

7f 

4b 

8fc0 

: a5 

34 

18 

65 

27 

85 

34 

c6 

2f 

8cc8 

ad 

19 

dO 

8d 

19 

dO 

ad 

12 

db 

8e48 

a2 

00 

86 

42 

2a 

26 

42 

2a 

05 

8fc8 

: 33 

c6 

33 

c6 

28 

fO 

03 

4c 

b3 

8cd0 

dO 

e9 

fa 

bO 

18 

a5 

81 

ac 

68 

8e50 

26 

42 

2a 

26 

42 

85 

4l 

a5 

87 

BfdO 

: 44 

8f 

4c 

eb 

8d 

86 

dd 

38 

61 

8cd8 

ff 

8e 

c8 

c8 

c8 

cc 

12 

dO 

45 

8e58 

41 

38 

e5 

3f 

85 

45 

a5 

42 

b4 

8fd8 

: e5 

dd 

bO 

07 

65 

dd 

85 

dd 

dO 

8ce0 

bO 

fb 

8d 

21 

dO 

a9 

fa 

8d 

77 

8e60 

e9 

00 

29 

03 

85 

46 

20 

27 

4d 

8fe0 

: 8a 

e5 

dd 

aa 

98 

20 

14 

91 

27 

8ce8 

12 

dO 

4c 

03 

8d 

a5 

84 

8d 

09 

8e68 

10 

bO 

ce 

86 

3b 

84 

3c 

a5 

69 

8fe8 

: a9 

00 

20 

11 

91 

86 

2a 

20 

f2 

8cf0 

21 

dO 

a5 

2f 

fO 

08 

c6 

2f 

91 

8e70 

46 

49 

02 

85 

46 

20 

27 

10 

ae 

8ff0 

: Ob 

91 

a2 

ff 

4c 

12 

10 

00 

02 

8c f 8 

ee 

11 

dO 

ee 

ff 

8c 

a9 

2e 

e8 

8e78 

86 

32 

84 

34 

a5 

41 

18 

65 

4f 











8d00 

8d 

12 

dO 

86 

01 

68 

a8 

68 

62 

8e80 

3f 

85 

45 

a5 

42 

69 

00 

29 

4a 











8d08 

aa 

68 

40 

a5 

2f 

dO 

fc 

ad 

74 

8e88 

03 

49 

02 

85 

46 

20 

27 

10 

83 











8dl0 

12 

dO 

c9 

fc 

90 

f9 

60 

a9 

4a 

8e90 

bO 

a7 

86 

3d 

84 

3e 

a5 

46 

ba 

Listing 5. 

(Schluß) 







Name 

a.paint a900 


a900 afOO 

a970 

eO 

ad 

4c 

e6 

ad 

a2 

ff 

86 

14 

a9f0 

6d 

a6 

e2 

86 

6e 

85 

6f 

20 

4b 


4c 









a978 

6a 

e8 

86 

6f 

a5 

el 

20 

99 

03 

a9f8 

04 

aa 

85 

6b 

20 

04 

aa 

85 

f8 

a900 

75 

a9 

4c 

89 

a9 

4c 

99 

45 

a980 

a9 

a5 

e2 

20 

99 

a9 

4c 

00 

dl 

aaOO 

6c 

4c 

03 

70 

a4 

6f 

b9 

00 

Oe 

a908 

a9 

4c 

b9 

a9 

4c 

cf 

a9 

4c 

fd 

a988 

70 

a2 

01 

86 

6a 

a9 

ff 

a4 

98 

aa08 

08 

e6 

6f 

60 

a6 

6a 

fO 

01 

ef 

a910 

e5 

a9 

4c 

e9 

a9 

4c 

04 

aa 

7c 

a990 

6f 

88 

88 

99 

00 

08 

4c 

00 

Oa 

aalO 

60 

20 

04 

aa 

c9 

ff 

dO 

05 

cl 

a918 

4c 

Oc 

aa 

4c 

63 

aa 

4c 

6a 

30 

a998 

70 

a4 

6f 

99 

00 

08 

e6 

6f 

24 

aal8 

e6 

6a 

4c 

03 

70 

c9 

00 

fO 

de 

a920 

aa 

4c 

76 

aa 

4c 

8c 

aa 

4c 

50 

a9aO 

cO 

f6 

bO 

04 

20 

83 

ab 

60 

16 

aa20 

01 

60 

20 

04 

aa 

38 

e5 

6b 

b5 

a928 

98 

aa 

4c 

b6 

aa 

4c 

83 

ab 

72 

a9a8 

c9 

00 

fO 

fb 

88 

b9 

00 

08 

93 

aa28 

90 

Oc 

18 

65 

6d 

c9 

aO 

90 

3a 

a930 

4c 

9b 

ab 

4c 

ab 

ab 

4c 

c9 

9b 

a9b0 

fO 

f5 

e6 

6f 

e6 

6f 

4c 

89 

70 

aa30 

Oc 

a9 

9f 

4c 

3d 

aa 

18 

65 

d7 

a938 

ab 

4c 

d2 

ab 

4c 

00 

ac 

4c 

43 

a9b8 

a9 

aO 

00 

b9 

00 

08 

c8 

fO 

2e 

aa38 

6d 

bO 

02 

a9 

00 

85 

el 

20 

a7 

a940 

ii 

ac 

4c 

ld 

ac 

4c 

2e 

ac 

9d 

a9c0 

e6 

c9 

ff 

dO 

f6 

88 

84 

6f 

49 

aa40 

04 

aa 

38 

e5 

6c 

90 

Oc 

18 

10 

a948 

4c 

37 

ac 

4c 

40 

ac 

4c 

50 

20 

a9c8 

a2 

ff 

86 

6a 

4c 

00 

70 

a6 

2d 

aa48 

65 

6e 

c9 

c8 

90 

Oc 

a9 

c7 

Of 

a950 

ac 

4c 

5f 

ac 

4c 

77 

ac 

4c 

5e 

a9d0 

6a 

30 

01 

60 

c9 

00 

dO 

Oa 

93 

aa50 

4c 

5a 

aa 

18 

65 

6e 

bO 

02 

08 

a958 

7f 

ac 

4c 

90 

ac 

4c 

e2 

ac 

65 

a9d8 

20 

99 

a9 

a5 

el 

20 

99 

a9 

bd 











a960 

4c 

05 

ad 

4c 

33 

ad 

4c 

3c 

6e 

a9e0 

a5 

e2 

4c 

99 

a9 

a9 

00 

fO 

06 

Listing 6. 

>A. 

PAINT 

A900" 

Bitte 


a968 

ad 

4c 

47 

ad 

4c 

17 

ab 

4c 

88 

a9e8 

e6 

a9 

00 

85 

6a 

a6 

el 

86 

c4 

mit dem MSE 

(Seite 

159) eingeben. 
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MALPROGRAMM 


C64 


aa58 

a9 

00 

85 

e2 

a9 

01 

85 

fb 

70 

abfO 

8c 

aa 

68 

20 

Oc 

10 

20 

Of 

cf 

ad88 

a5 

2f 

38 

e5 

31 

99 

80 

b3 

d9 

aa60 

a9 

00 

60 

a5 

5f 

49 

01 

85 

25 

abf8 

10 

20 

76 

aa 

60 

4c 

03 

70 

61 

ad90 

ee 

5b 

bO 

10 

04 

28 

4c 

9c 

46 

aa68 

5f 

60 

a5 

e2 

c9 

64 

90 

03 

c5 

acOO 

a6 

23 

a4 

26 

86 

ef 

84 

fO 

02 

ad98 

ad 

28 

90 

d2 

ce 

5b 

bO 

4c 

fb 

aa70 

a2 

08 

60 

a2 

18 

60 

a5 

60 

5f 

ac08 

a6 

24 

a4 

27 

86 

17 

84 

18 

32 

adaO 

e6 

ad 

80 

40 

20 

10 

08 

04 

30 

aa78 

dO 

ld 

a5 

5f 

fO 

19 

a5 

d2 

40 

aclO 

60 

20 

00 

ac 

20 

33 

cO 

20 

f5 

ada8 

02 

01 

00 

c8 

90 

58 

20 

e8 

62 

aa80 

dO 

15 

20 

6a 

aa 

a9 

01 

85 

37 

acl8 

00 

ac 

4c 

33 

cO 

20 

00 

ac 

4e 

adbO 

bO 

78 

40 

08 

dO 

98 

60 

28 

51 

aa88 

60 

4c 

7e 

cO 

a5 

60 

fO 

03 

ed 

ac20 

20 

4b 

cO 

20 

4e 

cO 

08 

20 

65 

adb8 

fO 

b8 

80 

48 

10 

d8 

40 

40 

77 

aa90 

20 

81 

cO 

a9 

00 

85 

60 

60 

45 

ac28 

4b 

90 

28 

90 

f6 

60 

a6 

el 

a8 

adcO 

4l 

42 

43 

43 

44 

45 

46 

47 

72 

aa98 

a9 

01 

85 

69 

a6 

el 

a4 

e2 

22 

ac30 

a4 

e2 

86 

23 

84 

26 

60 

a6 

94 

adc8 

47 

48 

49 

4a 

4a 

4b 

4c 

4d 

9a 

aaaO 

e4 

67 

dO 

Od 

c4 

68 

dO 

09 

f2 

ac38 

el 

a4 

e2 

86 

24 

84 

27 

60 

b8 

addO 

4e 

4e 

46 

47 

47 

48 

49 

4a 

30 

aaa8 

a9 

ff 

85 

67 

c6 

69 

4c 

8a 

9d 

ac40 

a6 

23 

a4 

26 

e4 

24 

dO 

06 

24 

add8 

4a 

4b 

4c 

4d 

4e 

4e 

4f 

00 

19 

aabO 

cO 

86 

67 

84 

68 

60 

a5 

69 

11 

ac48 

c4 

27 

dO 

02 

38 

60 

18 

60 

bc 

adeO 

a5 

86 

8d 

df 

ad 

60 

ad 

df 

7c 

aab8 

dO 

01 

60 

a5 

el 

48 

85 

ef 

2c 

ac50 

20 

d2 

ab 

a5 

fb 

fO 

f9 

c6 

36 

ade8 

ad 

85 

86 

4c 

00 

70 

22 

aO 

dO 

aacO 

a5 

e2 

48 

85 

fO 

a5 

67 

85 

7e 

ac58 

fb 

20 

2e 

ac 

4c 

e5 

a9 

20 

5f 

adfO 

7e 

20 

57 

a9 

20 

4e 

a9 

a2 

ea 

aac8 

17 

a5 

68 

85 

18 

20 

33 

cO 

4d 

ac60 

d2 

ab 

20 

37 

ac 

20 

11 

ac 

60 

adf8 

38 

aO 

7e 

20 

27 

cO 

20 

39 

8f 

aadO 

a5 
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20 

Of 

70 
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fb 
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f3 
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cO 

a5 

51 

ao70 

a9 

20 

8c 

aa 

4c 

78 
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51 

cb 
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c3 
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4c 

ce 

ff 

8a 

ba 
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19 

lb 

lc 

le 
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21 

22 

24 

4e 

aae8 

10 

48 

a2 

60 

aO 
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20 

87 

c8 

ac80 

48 

98 

48 

20 

76 

aa 

20 

24 

bO 
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25 

27 

29 

2a 

2c 

2d 

2f 

30 

aa 

aafO 

cO 

68 

aa 

68 

a8 

20 

17 

ab 

db 

ac88 

cO 

68 

a8 

68 

aa 

4c 

27 

cO 

df 
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32 

33 

35 

36 

38 

39 

3b 

3c 

b3 
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a2 

67 

aO 
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20 

87 

cO 

a2 
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a5 

60 

dO 

01 
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20 

6a 

aa 

cO 
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3e 

3f 

41 

43 

44 

46 

47 

49 

e5 
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aO 
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20 

27 

cO 

68 

85 

b7 

ac98 

e4 

5e 

fO 

06 

20 

8c 

aa 

20 

fa 
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4a 
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4d 

4f 

50 

51 

53 

54 

63 
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68 

85 
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85 

17 

65 
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76 
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7e 
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fc 

fc 

fd 

fd 

fd 

fd 

fd 

fe 
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20 

66 
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20 

60 

cO 

4c 

76 

72 

ad58 

4a 

8d 

5d 

bO 

20 

54 

cO 

20 

be 

aefO 

fe 

fe 

fe 

fe 

fe 

fe 

ff 

ff 

f5 

abc8 

aa 

a5 

6a 

dO 

02 

e6 

6a 

4c 

93 

ad60 

57 

cO 

bO 

3b 

a9 

00 

8d 

5b 

32 

aef8 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

f7 

abdO 

03 

70 

20 

30 

cO 

20 

90 

ac 

c2 

ad68 

bO 

20 

Oc 

cO 

85 

25 

20 

57 
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abd8 

20 

b6 

aa 

20 

ab 

ab 

20 

51 

3d 

ad70 

cO 

08 

86 

2f 

84 

30 

20 

Oc 

le 











abeO 

90 

bO 

la 

c9 

00 

fO 

15 

c9 

f8 

ad78 

eO 

c5 

25 

fO 

lc 

a5 

30 

38 

a2 











abe8 

20 

dO 

03 

4c 

03 

10 

48 

20 

cd 

ad80 

e5 

33 

ac 

5b 

bO 

99 

00 

b4 

d7 

Listing 6. (Schluß) 







Name 

a.paint 9000 


9000 a8fc 

9068 

9e 

4c 

70 

9e 

4c 

7d 

9e 

4c 

eO 

90e0 

a3 

4c 

61 

a3 

4c 

69 

a3 

4c 

ad 











9070 

80 

9e 

4c 

83 

9e 

4c 

89 

9e 

73 

90e8 

80 

a3 

4c 

8f 

a3 

4c 

9e 

a3 

9d 

9000 

4c 

58 

91 

4c 

72 

91 

'4c 

91 

6e 

9078 

4c 

c9 

9e 

4c 

04 

9f 

4c 

Oa 

5c 

90f0 

4c 

e5 

a3 

4c 

f6 

a3 

4c 

lb 

95 

9008 

91 

4c 

lc 

91 

4c 

be 

91 

4c 

92 

9080 

9f 

4c 

la 

9f 

4c 

4e 

9f 

4c 

Oe 

90f8 

a4 

4c 

3b 

a4 

4c 

4e 

a4 

4 c 

88 

9010 

db 

91 

4c 

Ob 

92 

4c 

f6 

91 

b3 

9088 

76 

9f 

4c 

7f 

9f 

4c 

d3 

9f 

bc 

9100 

60 

a4 

4c 

70 

a4 

4c 

88 

a4 

ec 

9018 

4c 

79 

92 

4c 

e6 

92 

4c 

df 

43 

9090 

4c 

30 

aO 

4c 

5e 

aO 

4c 

6e 

9f 

9108 

4c 

c4 

a4 

4c 

ed 

a4 

4c 

lc 

d6 

9020 

93 

4c 

de 

93 

4c 

54 

93 

4c 

dl 

9098 

aO 

4c 

7b 

aO 

4c 

86 

aO 

4c 

65 

9110 

a5 

4c 

79 

a5 

4c 

82 

a5 

4c 

f6 

9028 

59 

93 

4c 

58 

92 

4c 

6b 

93 

c9 

90a0 

a2 

aO 

4c 

a9 

aO 

4c 

ae 

aO 

43 

9118 

b4 

a3 

33 

9a 

85 

dd 

98 

38 

d8 

9030 

4c 

d9 

93 

4c 

lc 

94 

4c 

2f 

cd 

90a8 

4c 

be 

aO 

4c 

16 

al 

4c 

22 

e9 

9120 

e5 

27 

4a 

08 

a8 

b9 

96 

cO 

61 

9038 

94 

4c 

56 

94 

4c 

65 

94 

4c 

f5 

90b0 

al 

4c 

9b 

al 

4c 

f7 

al 

4c 

36 

9128 

18 

69 

5c 

85 

da 

b9 

fO 

ec 

d6 

9040 

74 

94 

4c 

86 

94 

4c 

2b 

9c 

74 

90b8 

7d 

a2 

4c 

af 

a2 

4c 

bd 

a2 

58 

9130 

85 

d9 

cO 

19 

bO 

20 

8a 

38 

9c 

9048 

4c 

39 

9c 

4c 

e2 

93 

4c 

c9 

71 

90c0 

4c 

c6 

a2 

4c 

cf 

a2 

4c 

d8 

96 

9138 

e5 

24 

a8 

cO 

28 

bO 

17 

28 

26 

9050 

9d 

4c 

06 

9e 

4c 

35 

9e 

4c 

ea 

90c8 

a2 

4c 

el 

a2 

4c 

fO 

a2 

4c 

CC 

9140 

bO 

Ob 

a5 

dd 

Oa 

Oa 

Oa 

Oa 

c8 

9058 

3f 

9e 

4c 

48 

9e 

4c 

4b 

9e 

b9 

90d0 

22 

a3 

4c 

2e 

a3 

4c 

3a 

a3 

69 

9148 

85 

dd 

a9 

Of 

2c 

a9 

fO 

31 

3e 

9060 

4c 

50 

9e 

4c 

53 

9e 

4c 

5a 

16 

90d8 

4c 

46 

a3 

4c 

52 

a3 

4c 

5e 

ea 

9150 

d9 

05 

dd 

91 

d9 

60 

68 

60 

58 
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65 

74 

a8 

ed 
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56 
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bl 
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bd 
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88 

bl 

d9 
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20 

cb 
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Oe 

93 
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ee 
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e7 

91c0 

e8 

eO ff 
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05 

86 

87 

8a 
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a9 
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6a 
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38 
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90 
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c9 

51 

f6 
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b9 

60 

bO fO 
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bd 
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Ob 

91d0 

bO 
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e9 

41 

85 

87 

38 

le 
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d9 

93 
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c4 
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89 

91d8 

60 
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a2 

00 

86 

11 

4a 

be 

9410 

84 dd 

a4 

d7 

b9 00 

af a4 

4a 

9648 

49 20 42 45 57 45 47 55 

42 

91e0 

66 

11 4a 

66 

11 

18 

69 

bO 

07 

9418 

dd 4c 

de 

93 

86 fl 

98 48 

bO 

9650 

4e 47 04 42 20 2d 20 42 

fc 

91e8 

85 
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11 

18 

69 

80 

85 

de 

9420 

Oa Oa 

Oa 

Oa 

05 fl 

a8 a5 

cl 
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02 
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11 
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12 

60 

a5 
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a8 

9428 
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00 

af 
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04 

9660 
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68 
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02 

a5 

24 

85 
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2c 

9430 
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8b 

9668 
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ba 
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09 
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da 

a9 

00 

85 

db 

85 

d9 

8e 

co68 

: db 

e6 

db 

dO 

02 

e6 

de 

60 

53 

ceaO 

91 

d9 

88 

10 

f9 

ca 

c6 

dd 

Of 

ca38 

: a9 

fc 

85 

de 

20 

5d 

oa 

20 

b5 

cc70 

: o9 

01 

dO 

2c 

20 

65 

cc 

85 

df 

cea8 

dO 

c4 

60 

48 

a5 

5e 

38 

e9 

fd 



46 
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cebO : 

08 

84 

dd 

18 

65 

dd 

a8 

b9 

dO 

ceb8 : 

fO 

ec 

85 

d9 

b9 

96 

cO 

85 

19 

cecO : 

da 

8a 

Oa 

a8 

68 

85 

dd 

49 

34 

cec8 : 

: 01 

Oa 

Oa 

Oa 

Oa 

05 

dd 

91 

f6 

cedO : 

: d9 

c6 

91 

d9 

60 

a9 

fO 

8d 

df 

ced8 : 

: 5d 

cb 

a9 

30 

a2 

84 

8d 

50 

bO 

ceeO : 

: ob 

a9 

ff 

85 

05 

8e 

36 

cb 

66 

cee8 : 

: 60 

a9 

b8 

8d 

5d 

cb 

a2 

82 

cO 

cefO : 

: a9 

bO 

dO 

ea 

Oa 

f7 

fb 

fb 

cb 


Llsting 8. (Schluß) 


Name : a.paint pl lfOO 2700 


lfOO : 

00 

01 

02 

03 

04 

05 

06 

07 

fO 

lf08 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

f8 

lflO : 

00 

01 

02 

03 

04 

05 

06 

07 

00 

lfl8 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

08 

lf20 : 

00 

01 

02 

03 

04 

05 

06 

07 

10 

lf28 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

18 

lf30 : 

00 

01 

02 

03 

04 

05 

06 

07 

20 

lf'38 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

28 

lf40 : 

00 

01 

02 

03 

04 

05 

06 

07 

30 

lf48 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

38 

lf50 : 

00 

01 

02 

03 

04 

05 

06 

07 

40 

lf58 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

48 

lf60 : 

00 

01 

02 

03 

04 

05 

06 

07 

50 

lf68 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

58 

lf70 : 

00 

01 

02 

03 

04 

05 

06 

07 

60 

lf78 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

68 

lf80 : 

00 

01 

02 

03 

04 

05 

06 

07 

70 

lf88 : 

08 

09 

Oa 

Ob 

Oo 

Od 

Oe 

Of 

78 

lf90 : 

00 

01 

02 

03 

04 

05 

06 

07 

80 

lf98 : 

08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

88 

IfaO : 

00 

01 

02 

03 

04 

05 

06 

07 

90 

lfa8 : 

: 08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

98 

lfbO : 

: 00 

01 

02 

03 

04 

05 

06 

07 

aO 

lfb8 : 

: 08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

a8 

lfcO : 

: 00 

01 

02 

03 

04 

05 

06 

07 

bO 

lfc8 : 

: 08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

b8 

lfdO : 

; 00 

01 

02 

03 

04 

05 

06 

07 

cO 

lfd8 : 

: 08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

c8 

lfeO : 

: 00 

01 

02 

03 

04 

05 

06 

07 

dO 

lfe8 : 

: 08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

d8 

IffO : 

: 00 

01 

02 

03 

04 

05 

06 

07 

eO 

lff8 ; 

: 08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

e8 

2000 : 

: ee 

ee 

ee 

ee 

ee 

ee 

ee 

ee 

ff 

2008 . 

: 27 

27 

27 

27 

fc 

lf 

83 

eO 

Oa 

2010 

: 00 

lf 

00 

lf 

ff 

eO 

ff 

eO 

4d 

2018 

: ff 

fO 

ff 

fO 

7f 

9f 

f3 

fe 

70 

2020 

: 9e 

73 

9c 

e7 

fc 

fc 

fc 

fc 

41 

2028 

: 00 

00 

ff 

ff 

00 

ff 

00 

ff 

28 

2030 

: Of 

Of 

Of 

Of 

22 

24 

92 

49 

8d 

2038 

: Oe 

lc 

71 

c7 

33 

33 

33 

33 

aa 

2040 

: 11 

11 

11 

11 

55 

55 

55 

55 

40 

2048 

: cO 

cO 

cO 

cO 

90 

90 

90 

90 

al 

2050 

: ff 

ff 

ff 

ff 

28 

a2 

8a 

28 

61 

2058 

: 80 

80 

80 

17 

03 

06 

28 

lf 

5b 

2060 

: 00 

01 

01 

01 

00 

01 

01 

01 

4f 

2068 

: 00 

01 

01 

01 

00 

01 

01 

01 

57 

2070 

: 00 

01 

01 

01 

00 

01 

01 

01 

5f 

2078 

: 00 

01 

01 

01 

00 

01 

01 

01 

67 

2080 

: 00 

00 

00 

00 

00 

00 

00 

00 

81 

2088 

: 20 

00 

20 

00 

22 

02 

22 

02 

6f 

2090 

: a2 

22 

22 

02 

a2 

2a 

22 

02 

14 

2098 

: 22 

2a 

22 

02 

20 

2a 

22 

00 

74 

20a0 

: 20 

22 

22 

00 

20 

22 

22 

00 

f6 


20a8 : 

: 00 

22 

02 

00 

00 

22 

02 00 

53 

20b0 : 

: 00 

20 

00 

00 

00 

00 

00 00 

cl 

20b8 : 

: 00 

00 

00 

00 

00 

00 

00 00 

b9 

20 c 0 : 

: Ob 

00 

00 

cc 

bb 

00 

cO Oc 

3c 

20 c 8 : 

: bO 

Ob 

cc 

00 

00 

bb 

Oc 00 

3 f 

20d0 ; 

: 00 

bc 

Ob 

00 

cO 

Oc 

bb 00 

4d 

20d8 

: cc 

00 

bO 

Ob 

Oc 

00 

00 cb 

8a 

20e0 

: Ob 

00 

00 

cc 

bb 

00 

cO Oc 

5c 

20e8 

: bO 

Ob 

cc 

00 

00 

bb 

Oc 00 

5f 

20f0 

: 00 

bc 

Ob 

00 

cO 

Oc 

bb 00 

6d 

20f8 

: cc 

00 

bO 

Ob 

Oc 

00 

00 cb 

aa 

2100 

: 00 

00 

00 

00 

bb 

bb 

bb bb 

00 

2108 

: cc 

cc 

cc 

cc 

ff 

ff 

ff ff 

07 

2110 

: ff 

ff 

ff 

ff 

cc 

cc 

cc cc 

Of 

2118 

: bb 

bb 

bb 

bb 

00 

00 

00 00 

17 

2120 

: 00 

00 

00 

00 

bb 

bb 

bb bb 

20 

2128 

: cc 

cc 

cc 

cc 

ff 

ff 

ff ff 

27 

2130 

: ff 

ff 

ff 

ff 

cc 

cc 

cc cc 

2f 

2138 

: bb 

bb 

bb 

bb 

00 

00 

00 00 

37 

2140 

: bc 

cc 

cO 

cb 

cb 

fe 

bO cc 

Od 

2148 

: cc 

fb 

cO 

cb 

cc 

cf 

bO cc 

63 

2150 

: cc 

fc 

bO 

cc 

fc 

fc 

bO fc 

d4 

2158 

: fc 

cf 

cO 

cf 

00 

00 

00 00 

66 

2160 

: bO 

cb 

cb 

bc 

cO 

cc 

bc fc 

eO 

2168 

: cO 

cb 

cc 

cc 

bO 

cc 

cc fc 

79 

2170 

: bO 

cc 

cc 

cf 

bO 

fc 

cc cc 

73 

2178 

: cO 

cf 

ff 

cc 

00 

00 

00 00 

b9 

2180 

: 6e 

00 

00 

e6 

6e 

00 

00 e6 

80 

2188 

: ee 

06 

00 

61 

ee 

06 

00 6l 

87 

2190 

: e6 

6e 

10 

01 

e6 

6e 

10 01 

f6 

2198 

: 60 

ee 

16 

00 

60 

ee 

16 00 

cb 

21a0 

: 00 

e6 

6e 

00 

00 

e6 

6e 00 

aO 

21a8 

: 00 

61 

ee 

06 

00 

61 

ee 06 

a8 

21b0 

21b8 

21e0 

: 10 

01 

e6 

6e 

10 

01 

e6 6e 
An ee 

4a 

30 

15 

: 00 bO 00 bC 00 bu‘ 

00 bO 

21c8 

: 00 

bO 

00 

bO 

bb 

bb 

bb bb 

36 

21d0 

: bO 

00 

bO 

00 

bO 

00 

bO 00 

7a 

21d8 

: bO 

00 

bO 

00 

bb 

bb 

bb bb 

b4 

21e0 

: 00 

bO 

00 

bO 

00 

bO 

00 bO 

35 

21e8 

: 00 

bO 

00 

bO 

bb 

bb 

bb bb 

56 

21f0 

: bO 

00 

bO 

00 

bO 

00 

bO 00 

9a 

21f8 

: bO 

00 

bO 

00 

bb 

bb 

bb bb 

d4 

2200 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

33 

2208 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

3b 

2210 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

43 

2218 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

4b 

2220 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

53 

2228 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

5b 

2230 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

63 

2238 

: 50 

ld 

dl 

05 

50 

ld 

dl 05 

6b 

2240 

: 00 

00 

00 

00 

00 

90 

99 09 

3d 

2248 

: 00 

90 

99 

08 

00 

99 

99 08 

3b 

2250 

: 00 

99 

89 

08 

10 

11 

81 08 

20 

2258 

: 10 

11 

81 

08 

10 

11 

81 08 

f2 

2260 

: 10 

11 

81 

08 

10 

11 

81 08 

fa 

2268 

: 10 

11 

81 

00 

10 

11 

81 00 

fl 

2270 

: 10 

11 

01 

00 

10 

11 

01 00 

d7 

2278 

: 00 

00 

00 

00 

00 

00 

00 00 

79 

2280 

: e6 

e6 

6e 

6e 

e6 

66 

6e ee 

7c 

2288 

: e6 

6e 

6e 

e6 

66 

6c 

ee e6 

81 

2290 

: 6e 

6e 

e6 

e6 

6e 

ee 

e6 66 

92 

2298 

: 6e 

e6 

e6 

6e 

ee 

e6 

66 6e 

9d 

22a0 

: e6 

e6 

6e 

6e 

e6 

66 

6e ee 

9c 

22a8 

: e6 

6e 

6e 

e6 

66 

6e 

ee e6 

al 

22b0 

: 6e 

6e 

e6 

e6 

6e 

ee 

e6 66 

b2 

22b 8 

: 6e 

e6 

e6 

6e 

ee 

e6 

66 6e 

bd 

22c 0 

: ee 

ee 

ee 

66 

ee 

ee 

ee 66 

9d 

22c8 

: ee 

ee 

le 

e6 

ee 

ee 

6e e6 

80 

22d0 

: ee 

ee 

61 

ee 

ee 

ee 

66 ee 

49 

22d8 

: ee 

le 

e6 

ee 

ee 

6e 

e6 ee 

49 


22e0 : 

ee 

61 

ee 

ee 

ee 

66 

ee 

ee 

d4 

22e8 : 

le 

e6 

ee 

ee 

6e 

e6 

ee 

ee 

ca 

22f0 : 

61 

ee 

ee 

ee 

66 

ee 

ee 

ee 

d9 

22f8 : 

66 

11 

11 

11 

66 

66 

66 

66 

4d 

2300 : 

75 

27 

02 

50 

55 

77 

22 

00 

2d 

2308 : 

50 

75 

27 

02 

00 

55 

77 

22 

ea 

2310 : 

02 

50 

75 

27 

22 

00 

55 

77 

e3 

2318 : 

27 

02 

50 

75 

77 

22 

00 

55 

36 

2320 : 

75 

27 

02 

50 

55 

77 

22 

00 

4d 

2328 : 

50 

75 

27 

02 

00 

55 

77 

22 

Oa 

2330 : 

02 

50 

75 

27 

22 

00 

55 

77 

03 

2338 : 

27 

02 

50 

75 

77 

22 

00 

55 

56 

2340 : 

75 

02 

00 

00 

50 

27 

00 

00 

f5 

2348 : 

00 

75 

02 

00 

00 

50 

27 

00 

a3 

2350 : 

00 

00 

75 

02 

00 

00 

50 

27 

7e 

2358 : 

02 

00 

00 

75 

27 

00 

00 

50 

lc 

2360 : 

75 

02 

00 

00 

50 

27 

00 

00 

15 

2368 : 

00 

75 

02 

00 

00 

50 

27 

00 

c3 

2370 : 

00 

00 

75 

02 

00 

00 

50 

27 

9e 

2378 : 

02 

00 

00 

75 

27 

00 

00 

50 

3c 

2380 : 

02 

02 

02 

02 

02 

03 

03 

03 

8f 

2388 : 

03 

03 

03 

03 

04 

04 

04 

04 

a7 

2390 : 

04 

04 

04 

05 

05 

05 

05 

05 

cf 

2398 : 

Oc 

Oc 

Oc 

Oe 

Oe 

Oe 

Oe 

10 

19 

23 aO : 

11 

11 

11 

11 

11 

12 

12 

14 

b2 

23 a8 : 

14 

14 

14 

15 

15 

16 

16 

16 

f5 

23bO : 

: 16 

16 

18 

18 

18 

18 

18 

19 

af 

23b8 : 

: 19 

19 

la 

la 

la 

la 

lc 

lc 

43 

23c0 : 

: lc 

lc 

lc 

ld 

ld 

ld 

le 

le 

05 

23c8 : 

: le 

lf 

21 

21 

21 

21 

21 

22 

c6 

23d0 : 

: 22 

22 

23 

23 

23 

24 

24 

24 

5d 

23d8 : 

: 26 

26 

26 

26 

26 

26 

26 

06 

98 

23e0 : 

: 06 

06 

06 

06 

06 

06 

06 

06 

eO 

23e8 : 

: 06 

06 

06 

06 

06 

06 

06 

06 

e8 

23 fO ; 

; 06 

06 

06 

06 

06 

06 

06 

07 

f2 

23 f8 : 

: 07 

07 

07 

07 

07 

07 

07 

07 

f8 

2400 : 

: 04 

05 

06 

07 

08 

03 

04 

05 

9c 

2408 : 

: 06 

07 

08 

09 

03 

04 

05 

06 

26 

2410 : 

: 07 

08 

09 

04 

05 

06 

07 

08 

8b 

2418 : 

: 09 

Oa 

Ob 

07 

09 

Oa 

Ob 

07 

e5 

2420 

: 06 

07 

08 

09 

Oa 

07 

Ob 

08 

e2 

2428 

: 09 

Oa 

Ob 

07 

08 

07 

08 

09 

c5 

2430 

: Oa 

Ob 

07 

08 

09 

Oa 

Ob 

07 

9e 

2438 

: 09 

Ob 

07 

08 

09 

Ob 

07 

08 

9f 

2440 

: 09 

Ob 

Oc 

09 

Oa 

Ob 

07 

08 

18 

2448 

: 09 

Ob 

07 

08 

09 

Oa 

Ob 

07 

b5 

2450 

: 09 

Ob 

07 

09 

Ob 

07 

08 

Ob 

el 

2458 

: 05 

06 

07 

08 

09 

Oa 

Ob 

04 

38 

2460 

: 05 

06 

07 

Od 

Oe 

Of 

10 

11 

88 

2468 

: 12 

13 

14 

15 

16 

17 

18 

19 

58 

2470 

: la 

lb 

lc 

ld 

le 

lf 

20 

00 

le 

2478 

: 01 

02 

03 

08 

09 

Oa 

Ob 

Oc 

61 

2480 

: 55 

55 

55 

55 

55 

55 

55 

55 

80 

2488 

: 55 

55 

55 

55 

55 

55 

55 

55 

88 

2490 

: 55 

55 

55 

55 

55 

55 

55 

d5 

91 

2498 

: dd 

dd 

55 

dd 

dd 

dd 

5d 

55 

62 

24a0 

: 55 

55 

55 

55 

55 

55 

d5 

dd 

b3 

24a8 

: dd 

5d 

d5 

dd 

dd 

dd 

55 

55 

32 

24b0 

: 55 

55 

55 

55 

55 

d5 

5d 

5d 

e4 

24b8 

: 55 

55 

5d 

d5 

55 

55 

55 

55 

ca 

24c0 

: 55 

55 

55 

55 

55 

dd 

d5 

55 

06 

24c8 

: 55 

d5 

55 

5d 

55 

55 

55 

55 

09 

24d0 

: 55 

55 

55 

55 

55 

dd 

dd 

dd 

47 

24d8 

: 55 

dd 

dd 

55 

55 

d5 

dd 

dd 

75 

24e0 

: d5 

dd 

d5 

55 

55 

dd 

dd 

5d 

3a 


Listing 9. »A.PAINT PI«. Bitte mit 
dem MSE (Seite 159) eingeben. 
Anschließend mit »Change« die 
Startadresse ändern. 
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cfb8 

4a 

4a 

4a 

4a 

4a 

a9 

01 58 

aa 

cfoO 

60 

c9 

e3 

bO 

28 

60 

8c fb 

c3 

cfc8 

cf 

c9 

ff 

fO 

20 

8d 

fa cf 

94 

cfdO 

38 

ed 

fb 

cf 

29 

7f 

c9 40 

2e 

cfd8 

bO 

07 

4a 

fO 

10 

ac 

fa cf 

ae 

cfeO 

60 

09 

cO 

c9 

ff 

fO 

06 38 

3e 

cfe8 

6a 

ac 

fa 

cf 

60 

a9 

00 60 

75 

Listing 13 

»A 

.PAINT IN PT« 

Bitte 

mit 

dem MSE 

(Seite 

159) eingeben. 



24e8 

55 

dd 

55 

55 

55 

5d 

55 

5d 

7c 

24 fO 

5d 

5d 

5d 

55 

55 

55 

55 

55 

fe 

24 f 8 

55 

55 

55 

55 

d5 

dd 

dd 

d5 

67 

2500 

d5 

dd 

55 

55 

55 

55 

55 

55 

c4 

2508 

55 

55 

55 

55 

55 

55 

55 

55 

08 

2510 

55 

55 

d5 

dd 

dd 

dd 

55 

55 

Oe 

2518 

55 

d5 

55 

d5 

dd 

dd 

d5 

55 

37 

2520 

55 

55 

dd 

dd 

dd 

5d 

55 

d5 

ld 

2528 

d5 

dd 

55 

55 

55 

5d 

dd 

dd 

5f 

2530 

5d 

55 

dd 

55 

55 

55 

55 

5d 

6a 

2538 

5d 

5d 

55 

55 

55 

d5 

55 

55 

48 

2540 

55 

55 

dd 

55 

55 

55 

d5 

d5 

65 

2548 

d5 

55 

dd 

dd 

5d 

55 

55 

55 

7b 

2550 

55 

dd 

55 

55 

55 

55 

dd 

dd 

c7 

2558 

5d 

55 

55 

55 

d5 

dd 

dd 

55 

ce 

2560 

dd 

dd 

dd 

5d 

55 

55 

dd 

dd 

82 

2568 

55 

dd 

dd 

55 

55 

55 

55 

d5 

cf 

2570 

dd 

dd 

dd 

55 

55 

55 

55 

55 

5e 

2578 

55 

55 

dd 

d5 

dd 

dd 

55 

55 

77 

2580 

55 

55 

55 

55 

55 

55 

55 

55 

80 

2588 

dd 

dd 

55 

55 

55 

5d 

55 

55 

94 

2590 

: 55 

55 

55 

55 

55 

55 

55 

55 

90 

2598 

: 55 

55 

55 

55 

55 

55 

5d 

55 

b8 

25a0 

: 55 

5d 

55 

55 

5d 

d5 

55 

dd 

39 

25a8 

: dd 

5d 

dd 

dd 

5d 

d5 

dd 

dd 

lf 

25bO 

: dd 

55 

d5 

d5 

dd 

5d 

d5 

d5 

34 

25b8 

: d5 

55 

55 

d5 

55 

dd 

dd 

dd 

bf 

25c0 

: 5d 

55 

5d 

dd 

dd 

55 

5d 

55 

83 

25c8 

: 5d 

55 

55 

55 

d5 

55 

55 

d5 

d9 

25d0 

: 55 

55 

55 

55 

5d 

55 

55 

55 

50 

25d8 

: d5 

dd 

dd 

55 

55 

55 

55 

55 

be 

25e0 

: 55 

55 

55 

55 

55 

dd 

dd 

5d 

56 

25e8 

: 5d 

5d 

5d 

55 

55 

55 

55 

55 

f6 

25f0 

: 55 

55 

55 

55 

d5 

d5 

55 

d5 

fd 

25 f 8 

: 55 

d5 

55 

55 

55 

55 

55 

55 

38 

2600 

: 55 

55 

55 

55 

dd 

d5 

5d 

55 

ac 

2608 

: 55 

55 

55 

dd 

dd 

5d 

55 

55 

e2 

2610 

: dd 

dd 

5d 

55 

55 

55 

d5 

dd 

fl 

2618 

: dd 

55 

dd 

dd 

dd 

5d 

55 

d5 

9d 

2620 

: dd 

dd 

55 

55 

55 

55 

5d 

5d 

lc 

2628 

: 55 

d5 

55 

55 

d5 

55 

55 

5d 

80 

2630 

: 55 

55 

55 

55 

55 

d5 

5d 

dd 

65 

2638 

: 55 

5d 

55 

55 

5d 

55 

d5 

55 

be 

2640 

: 55 

55 

55 

55 

55 

55 

55 

55 

40 

2648 

: d5 

5d 

55 

dd 

55 

55 

dd 

dd 

10 

2650 

: 5d 

55 

55 

55 

dd 

55 

55 

55 

eO 

2658 

: d5 

55 

d5 

55 

55 

55 

dd 

dd 

2b 

2660 

: 55 

55 

55 

dd 

55 

55 

55 

55 

71 

2668 

: 55 

55 

55 

55 

55 

55 

55 

55 

68 

2670 

: 55 

55 

55 

d5 

dd 

d5 

55 

55 

Oc 

2678 

: 55 

55 

55 

55 

55 

55 

55 

55 

78 

2680 

: 55 

55 

55 

5d 

5d 

5d 

55 

d5 

43 

2688 

: dd 

dd 

55 

55 

5d 

55 

55 

55 

d4 

2690 

: 55 

55 

d5 

d5 

dd 

55 

d5 

dd 

5b 

2698 

: dd 

5d 

55 

d5 

55 

55 

55 

55 

34 

26a0 

: 55 

55 

55 

55 

55 

d5 

5d 

5d 

d4 

26a8 

: 55 

55 

d5 

dd 

dd 

55 

55 

55 

61 

26b0 

: 55 

55 

55 

55 

55 

dd 

d5 

55 

f6 

26b8 

: 55 

55 

dd 

dd 

dd 

55 

55 

55 

73 

26c0 

: 55 

55 

55 

55 

55 

dd 

dd 

dd 

37 

26c8 

: 55 

55 

5d 

55 

5d 

55 

55 

55 

4a 

26d0 

: 55 

55 

55 

55 

55 

dd 

dd 

5d 

46 

26d8 

: 55 

d5 

55 

d5 

55 

55 

55 

55 

28 

26e0 

: 55 

55 

55 

55 

55 

55 

55 

55 

eO 

26 e 8 

: 55 

55 

55 

55 

fc 

fc 

cc 

cc 

6c 

26f0 

: fc 

CC 

CC 

cc 

cc 

bc 

cc 

cc 

9e 

26f8 

: cc 

bc 

cc 

bb 

bc 

bc 

00 

00 

7f 

Listing 9. 

(Schluß) 







Name 

a.palnt p2 OfeO 1000 

OfcO 

00 00 00 00 00 00 00 00 

cl 

0fc8 

00 00 00 00 00 00 00 00 

c9 

OfdO 

00 00 00 00 00 00 00 00 

dl 

0fd8 

00 00 00 00 00 00 00 00 

d9 

OfeO 

00 00 07 cO 00 07 80 00 

f4 

Ofe8 

07 80 00 07 cO 00 04 eO 

ee 

OffO 

00 00 70 00 00 38 00 00 

ce 

0ff8 

lc 00 00 08 00 00 00 00 

16 

Listing 10. »A.PAINT P2«. Bitte mit 
dem MSE (Seite 159) eingeben. 


Name 

input.stick 



cf00 effa 

cfOO 

4c 

97 

cf 

a6 

el 

a4 

e2 

20 

ef 

cf 08 

18 

cO 

a6 

el 

20 

c4 

cf 

29 

20 

cflO 

lf 

dO 

14 

a2 

ff 

86 

51 

85 

75 

cf 18 

ee 

8d 

ff 

cf 

ad 

74 

03 

85 

5c 

cf20 

4f 

ad 

75 

03 

85 

50 

60 

48 

fl 

cf28 

a5 

51 

18 

65 

50 

85 

51 

90 

cO 

cf30 

12 

a9 

aO 

85 

d3 

a9 

c8 

8d 

b8 

cf38 

fe 

cf 

68 

48 

20 

9d 

cf 

86 

7c 

cf 40 

el 

84 

e2 

68 

aO 

01 

aa 

29 

38 

cf48 

Of 

08 

8a 

4a 

4a 

4a 

4a 

28 

b8 

cf50 

fO 

05 

ae 

79 

03 

dO 

16 

aa 

02 

cf58 

fO 

38 

ae 

8d 

02 

fO 

03 

8c 

8e 

cf 60 

ff 

cf 

ae 

ff 

cf 

dO 

04 

a6 

d3 

cf68 

ee 

dO 

02 

84 

fb 

85 

ee 

c9 

Ob 

cf70 

00 

fO 

05 

ad 

76 

03 

85 

50 

16 

cf78 

c6 

4f 

fO 

01 

60 

e6 

4f 

18 

ed 

cf 80 

a5 

50 

6d 

77 

03 

bO 

05 

cd 

fd 

cf 88 

78 

03 

90 

03 

ed 

77 

03 

85 

b8 

cf90 

50 

60 

8d 

ff 

cf 

fO 

d6 

8d 

6f 

cf 98 

fe 

cf 

20 

c4 

cf 

4a 

90 

05 

ba 

cfaO 

cO 

00 

fO 

01 

88 

4a 

90 

07 

e8 

cfa8 

c8 

ce 

fe 

cf 

90 

01 

88 

4a 

58 

cfbO 

90 

05 

eO 

00 

fO 

01 

ca 

4a 

d2 

cfb8 

90 

06 

e8 

e4 

d3 

90 

01 

ca 

7d 

cfcO 

4a 

a9 

14 

60 

a9 

ff 

8d 

00 

cl 

cfc8 

de 

a5 

c5 

c9 

40 

fO 

25 

c9 

d5 

cfdO 

01 

fO 

13 

c9 

2e 

fO 

12 

c9 

8e 

cfd8 

37 

fO 

11 

c9 

32 

fO 

13 

c9 

8f 

cfeO 

2d 

fO 

Oc 

a9 

00 

2c 

a9 

10 

e6 

cfe8 

2c 

a9 

01 

2c 

a9 

02 

2c 

a9 

5d 

cffO 

04 

2c 

a9 

08 

4d 

00 

de 

49 

51 

cff8 

lf 

60 

ff 

ef 

Oa 

9a 

ff 

f7 

aa 

Listing 14 

»INPUT.STICK“ 

Bitte mit 

dem 

VISE 

(Seite 

159) eingeben. 



Name 

a.paint p3 



0b80 ObcO 

Ob 80 

00 

18 

00 

00 

18 

00 

00 

18 

3e 

0b88 

00 

00 

18 

00 

00 

18 

00 

00 

4f 

0b90 

18 

00 

00 

18 

00 

00 

18 

00 

Oc 

0b98 

00 

18 

00 

00 

00 

00 

ff 

c3 

2c 

ObaO 

ff 

00 

00 

00 

00 

18 

00 

00 

60 

0ba8 

18 

00 

00 

18 

00 

00 

18 

00 

24 

ObbO 

00 

18 

00 

00 

18 

00 

00 

18 

6e 

0bb8 

00 

00 

18 

00 

00 

18 

00 

00 

7f 

Listing 11. 

»A 

.PAIN7 

P3«. 

Bitte mit 

dem MSE 

(Seite 

159) eingeben. 



Name 

a.paint p4 036f 038f 

036f 

OOCfcb 03 0-5'Öd 14 V '54 

el 

0377 

05 96 00 50 28 50 78 28 

09 

03 7f 

50 78 28 50 78 64 32 32 

f7 

0387 

32 64 64 64 96 96 96 03 

Of 

Listing 12. »A.PAINT P4-. Bitte mit 
dem MSE (Seite 159) eingeben. 


Name 

a.paint inpt 


cfOO cffO 

cfOO 

4c 

63 

cf 

a2 

Oe 

aO 

cf 

8e 

88 

cf08 

00 

cl 

8c 

01 

cl 

60 

a6 

el 

aa 

cf 10 

a4 

e2 

a9 

aO 

85 

d3 

a9 

c8 

d3 

cf 18 

20 

6b 

cf 

86 

el 

84 

e2 

08 

90 

cf 20 

20 

18 

cO 

28 

a9 

00 

2a 

aa 

la 

cf 28 

ad 

01 

de 

4a 

90 

25 

8a 

fO 

14 

cf 30 

la 

ae 

8d 

02 

eO 

04 

90 

03 

bb 

cf38 

8d 

ff 

cf 

ae 

ff 

cf 

dO 

04 

58 

cf 40 

a6 

ee 

dO 

02 

85 

fb 

85 

ee 

fe 

cf 48 

4c 

81 

ea 

8d 

ff 

cf 

85 

ee 

33 

cf50 

4c 

31 

ea 

a9 

01 

85 

c6 

a9 

cf 

cf58 

03 

8d 

77 

02 

a9 

3f 

85 

cb 

82 

cf 60 

4c 

81 

ea 

78 

48 

18 

69 

01 

23 

cf 68 

dO 

fb 

68 

8d 

fe 

cf 

8e 

fd 

a6 

cf 70 

cf 

8c 

fc 

cf 

a9 

df 

8d 

00 

8e 

cf 78 

de 

ad 

19 

d4 

ac 

f8 

cf 

20 

le 

cf 80 

c6 

cf 

8c 

f8 

cf 

18 

6d 

fd 

df 

cf 88 

cf 

20 

cl 

cf 

aa 

e4 

d3 

90 

14 

cf 90 

03 

a6 

d3 

ca 

ad 

la 

d4 

ac 

8d 

cf 98 

f9 

cf 

20 

c6 

cf 

8c 

f9 

cf 

43 

cfaO 

38 

49 

ff 

6d 

fc 

cf 

20 

cl 

7d 

cfa8 

cf 

a8 

cc 

fe 

cf 

90 

04 

ac 

c9 

cfbO 

fe 

cf 

88 

ad 

01 

de 

49 

10 

aa 


Name 

input.maus 



cf00 cffO 

cf 00 

4c 

63 

cf 

a2 

Oe 

aO 

cf 

8e 

88 

cf 08 

00 

cl 

8c 

01 

cl 

60 

a6 

el 

aa 

cf 10 

a4 

e2 

a9 

aO 

85 

d3 

a9 

c8 

d3 

cf 18 

20 

6b 

öf 

86 

el 

84 

e2 

08 

90 

cf 20 

20 

18 

cO 

28 

a9 

00 

2a 

aa 

la 

ef28 

ad 

01 

de 

4a 

90 

25 

8a 

fO 

14 

cf30 

la 

ae 

8d 

02 

eO 

04 

90 

03 

bb 

cf38 

8d 

ff 

cf 

ae 

ff 

cf 

dO 

04 

58 

cf40 

a6 

ee 

dO 

02 

85 

fb 

85 

ee 

fe 

cf48 

4c 

81 

ea 

8d 

ff 

cf 

85 

ee 

33 

cf50 

4c 

31 

ea 

a9 

01 

85 

c6 

a9 

cf 

cf 58 

03 

8d 

77 

02 

a9 

3f 

85 

cb 

82 


48 


SONDERHEFT 27 



















C64 


MALPROGRAMM 


cf60 : 

4c 

81 

ea 

78 

48 

18 

69 

01 

23 

cf68 : 

dO 

fb 

68 

8d 

fe 

cf 

8e 

fd 

a6 

cf70 : 

: cf 

8c 

fc 

cf 

a9 

df 

8d 

00 

8e 

cf78 : 

: de 

ad 

19 

d4 

ac 

f8 

Cf 

20 

le 

cf80 : 

: c6 

cf 

8c 

f8 

Cf 

18 

6d 

fd 

df 

cf88 ; 

: cf 

20 

cl 

cf 

aa 

e4 

d 3 

90 

14 

cf90 : 

: 03 

a6 

d3 

ca 

ad 

la 

d4 

ac 

8d 

cf 98 

: f9 

cf 

20 

c6 

Cf 

8c 

f9 

cf 

43 

cfaO 

: 38 

49 

ff 

6d 

fc 

cf 

20 

cl 

7d 

cfa8 

: cf 

a8 

cc 

fe 

cf 

90 

04 

ac 

c9 

cfbO 

: fe 

cf 

88 

ad 

01 

de 

49 

10 

aa 

cfb8 

: 4a 

4a 

4a 

4a 

4a 

a9 

01 

58 

aa 

cfcO 

: 60 

c9 

e3 

bO 

28 

60 

8c 

fb 

c3 

cfc8 

: cf 

c9 

ff 

fO 

20 

8d 

fa 

cf 

94 

cfdO 

: 38 

ed 

fb 

Cf 

29 

7f 

c9 

40 

2e 

cfd8 

: bO 

07 

4a 

fO 

10 

ac 

fa 

cf 

ae 

cfeO 

: 60 

09 

cO 

c9 

ff 

fO 

06 

38 

3e 

cfe8 

: 6a 

ac 

fa 

cf 

60 

a9 

00 

60 

75 


Llstlng 15. »INPUT.MAUS«. Bitte mit 
dem MSE (Seite 159) eingeben. 


Name : most-access cOOO cOOO c7ea 


cOOO : 

4c 3b cO 

00 

9e 32 

30 

37 

c5 

c008 : 

37 20 4d 

4f 

53 

54 

20 

41 

67 

cOlO : 

43 43 45 

53 

53 

20 

49 

49 

9f 

c 018 : 

2b 00 00 

00 

aO 

00 

a2 

Oa 

ec 

c020 : 

b9 01 08 

99 

00 

cO 

c8 

dO 

5a 

c028 : 

f7 ee 23 

08 

ee 

26 

08 

ca 

36 

c030 : 

dO ee 8e 

ld 

08 

20 

3b 

cO 

af 

c038 : 

6c 02 aO 

aO 

50 

b9 

a8 

cO 

d8 

c040 : 

99 2c 01 

88 

10 

f7 

a2 

09 

9e 

c048 : 

aO 00 b9 

00 

cl 

99 

00 

f5 

2c 

c050 : 

c8 dO f7 

ee 

4c 

cO 

ee 

4f 

81 

C058 : 

cO ca dO 

ee 

aO 

00 

b9 

72 

65 

c 060 : 

cO c8 20 

d2 

ff 

c9 

00 

dO 

d7 

c068 : 

f5 a9 60 

8d 

00 

cO 

20 

2c 

da 

c070 : 

01 60 Od 

05 

12 

2a 

2a 

2a 

f5 

c078 : 

20 4d 4f 

53 

54 2d 

41 

43 

b7 

c080 : 

43 45 53 

53 

20 49 

49 

2b 

6d 

c088 : 

20 2a 2a 

2a 

Od 

Od 

12 

42 

93 

c090 : 

59 20 20 

4f 

4c 49 

56 

45 

de 

c098 : 

52 20 53 

54 

49 4c 

4c 

45 

Oc 

cOaO : 

52 20 31 

39 

38 37 

Od 

00 

e7 

o 0 a 8 : 

78 a9 35 

85 

01 

4c 

7d 

f5 

47 

cObO : 

49 18 a9 

64 

8d 30 

03 

a9 

b6 

c0b8 : 

01 8d 31 

03 

bO 

2b 

eO 

Ob 

2b 

cOcO : 

dO 04 18 

20 

65 01 

4c 

8b 

43 

cOc8 : 

e3 8c 5a 

01 

48 a5 

01 

85 

69 

cOdO : 

72 20 6d 

01 

68 

20 

ff 

ff 

55 

cOd8 : 

78 48 a5 

72 

85 

01 

68 

60 

ef 

cOeO : 

38 78 a9 

35 

85 

01 

20 

e8 

18 

c0e8 : 

f9 48 a9 

37 

85 

01 

68 

58 

09 

cOfO : 

60 20 6d 

01 

20 53 

e4 

00 

Oc 

cOf8 : 

00 00 00 

ef 

CC 

00 

00 

00 

c3 

clOO : 

aO al a9 

Ob 

8d 

00 

dd 

ad 

e8 

cl08 : 

00 dd 10 

fb 

a2 03 

8e 

00 

f7 

cllO : 

dd ad 00 

dd 

ea 

cd 

00 

dd 

58 

cll8 : 

ea ea dO 

02 

ea 

ea 

ea 

ae 

fb 

cl20 : 

00 dd bd 

02 

ff 

ae 

00 

dd 

fO 

cl28 : 

ld 03 ff 

ae 

00 

dd 

ld 

00 

00 

cl30 : 

ff ae 00 

dd 

ld 

01 

ff 

99 

4f 

cl38 : 

00 fd ae 

00 

dd 

bd 

02 

ff 

b6 

cl40 : 

ae 00 dd 

ld 

03 

ff 

ae 

00 

f4 

cl48 : 

dd ld 00 

ff 

ae 

00 

dd 

ld 

50 

cl50 : 

01 ff ec 

00 

dd 99 

00 

fe 

35 


cl58 : 

fO 

00 

88 

dO 

c2 

ce 

20 

dO 

49 

cl60 : 

ad 

01 

fd 

18 

69 

eO 

85 

5c 

7d 

cl68 : 

85 

5e 

85 

60 

85 

62 

4c 

f6 

14 

C170 : 

f5 

Oa 

05 

aO 

50 

02 

01 

20 

19 

cl78 : 

10 

08 

04 

80 

40 

a2 

03 

bd 

3e 

cl80 : 

71 

f5 

9d 

03 

ff 

bd 

75 

f5 

63 

cl88 : 

9d 

43 

ff 

bd 

79 

f5 

9d 

83 

43 

cl90 : 

ff 

a9 

00 

9d 

c3 

ff 

ca 

10 

9f 

cl98 : 

e6 

aO 

dO 

a2 

00 

84 

6a 

86 

32 

claO : 

69 

86 

01 

a2 

04 

a5 

69 

85 

ff 

cla8 : 

6c 

29 

lf 

a8 

b9 

58 

f7 

85 

cf 

clbO : 

6b 

a5 

6a 

29 

03 

aO 

05 

4a 

8b 

clb8 : 

66 

6c 

88 

dO 

fa 

a4 

6c 

b9 

8a 

clcO : 

6f 

f7 

05 

»•.I, 

aO 

00 

91 

69 

fd 

clc8 : 

e6 

69 

dO 

d9 

e6 

6a 

ca 

dO 

61 

cldO : 

d4 

a9 

35 

85 

01 

aO 

Ol 

a2 

d5 

cld8 : 

35 

8c 

01 

03 

8e 

00 

03 

a2 

2e 

cleO : 

34 

aO 

01 

84 

b7 

86 

bb 

84 

dd 

cle8 : 

: bc 

20 

59 

f9 

20 

ee 

f7 

20 

e3 

clfO : 

: 6c 

f8 

38 

4c 

36 

01 

aO 

00 

5e 

clf8 : 

: 84 

69 

84 

6e 

a2 

02 

ad 

9f 

50 

c 200 : 

: f6 

48 

a9 

60 

8d 

9f 

f6 

a9 

96 

c208 : 

: 30 

ee 

20 

dO 

85 

01 

20 

4b 

49 

C210 : 

: f6 

68 

8d 

9f 

f6 

e6 

5d 

e6 

7b 

c218 : 

: 5f 

e6 

61 

aO 

03 

84 

6e 

ad 

cO 

c220 : 

: al 

fd 

8d 

00 

fe 

bd 

00 

fd 

fd 

c228 : 

: 85 

6c 

4a 

4a 

4a 

a8 

b9 

6f 

6f 

6230 

: f7 

85 

6b 

e8 

bd 

00 

fd 

2a 

Oa 

c238 

: 26 

6c 

2a 

26 

6c 

a5 

6e 

29 

de 

C240 

: lf 

a8 

b9 

58 

f7 

05 

6b 

a4 

cb 

c248 

: 6e 

91 

5b 

bd 

00 

fd 

4a 

08 

37 

c250 

: 29 

lf 

a8 

b9 

6f 

f7 

85 

6b 

Oe 

c258 

: e8 

bd 

00 

fd 

85 

6c 

4a 

4a 

58 

c260 

: 4a 

4a 

28 

90 

02 

09 

10 

a8 

e5 

c268 

: b9 

58 

f7 

05 

6b 

a4 

6e 

91 

a5 

c270 

: 5d 68 

bä 0.0 fd »6c 

6a 

49 

c278 

: 46 

6c 

6a 

a8 

a5 

6c 29 

03 

Oc 

c280 

: 09 

dO 

85 

6a 

bl 

69 

a4 

6e 

76 

c 288 

: 91 

5f 

bd 

00 

fd 

29 

03 

09 

7f 

c290 

: dO 

85 

6a 

e8 

bd 

00 

fd 

e8 

80 

c298 

: a8 

bl 

69 

a4 

6e 

91 

61 

a5 

4c 

c2a0 

: 6e 

18 

69 

04 

85 

6e 

eO 

al 

88 

c2a8 

: fO 

03 

4e 

25 

f6 

a2 

00 

bd 

d2 

c 2 b 0 

: 00 

fe 

85 

6c 

4a 

4a 

4a 

a8 

90 

c2b8 

: b9 

6f 

f7 

85 

6b 

e8 

bd 

00 

cc 

c2c0 

: fe 

2a 

26 

6c 

2a 

26 

6c 

a5 

bb 

c2c8 

: 6c 

29 

lf 

a8 

b9 

58 

f7 

05 

ee 

c2d0 

: 6b 

a4 

6e 

91 

5b 

bd 

00 

fe 

fd 

c2d8 

: 4a 

08 

29 

lf 

a8 

b9 

6f 

f7 

5b 

c2e0 

: 85 

6b 

e8 

bd 

00 

fe 

85 

6c 

f3 

c2e8 

: 4a 

4a 

4a 

4a 

28 

90 

02 

09 

54 

c2f0 

: 10 

a8 

b9 

58 

f7 

05 

6b 

a4 

6c 

c2f8 

: 6e 

91 

5d 

e8 

bd 

00 

fe 

46 

08 

c300 

: 6c 

6a 

46 

6c 

6a 

a8 

a5 

6c 

lc 

c308 

: 29 

03 

09 

dO 

85 

6a 

bl 

69 

54 

C310 

: a4 

6e 

91 

5f 

bd 

00 

fe 

29 

66 

c318 

: 03 

09 

dO 

85 

6a 

e8 

bd 

00 

69 

c320 

: fe 

e8 

a8 

bl 

69 

a4 

6e 

91 

8b 

c328 

: 61 

a5 

6e 

18 

69 

04 

85 

6e 

a4 

c330 

: c9 

ff 

fO 

03 

4c 

af 

f6 

bd 

2f 

c338 

: 00 

fe 

85 

6c 

4a 

4a 

4a 

a8 

18 

c340 

: b9 

6f 

f7 

85 

6b 

e8 

bd 

00 

54 

c348 

: fe 

2a 

26 

6c 

2a 

26 

6c 

a5 

43 

c350 

: 6c 

29 

lf 

a8 

b9 

58 

f7 

05 

76 

c358 

: 6b 

aO 

ff 

91 

5b 

4c 

Od 

f9 

86 

c360 

: 00 

08 

00 

01 

00 

Oc 

04 

05 

ff 

c368 

: 00 

00 

02 

03 

00 

Of 

06 

07 

e8 

c370 

: 00 

09 

Oa 

Ob 

00 

Od 

Oe 

00 

7a 

c378 

: 80 

00 

10 

00 

cO 

40 

50 

00 

4c 

c380 

: 00 

20 

30 

00 

fO 

60 

70 

00 

70 

c388 

: 90 

aO 

bO 

00 

dO 

eO 

4d 

2d 

38 


c390 : 

45 

03 

06 

00 

24 

lf 

19 

12 

9c 

c398 : 

11 

12 

13 

15 

8d 

93 

f7 

a2 

b4 

c3aO : 

04 

dd 

93 

f7 

ca 

bO 

fa 

bd 

10 

c3a8 : 

98 

f7 

85 

6f 

ad 

00 

dd 

48 

6e 

c3b0 : 

a2 

8e 

aO 

f7 

20 

87 

fa 

20 

2b 

c3b8 : 

4d 

01 

ad 

11 

dO 

29 

ef 

8d 

44 

c3cO : 

11 

dO 

aO 

00 

84 

5b 

84 

5d 

51 

c3c8 : 

c8 

S4 

5f 

c8 

84 

61 

20 

00 

97 

c3dO : 

f5 

c6 

6f 

dO 

ed 

68 

8d 

00 

77 

c3d8 : 

dd 

ad 

11 

dO 

09 

10 

8d 

11 

54 

c3e0 : 

dO 

60 

a2 

ff 

aO 

05 

20 

3b 

b2 

c3e8 : 

f8 

c9 

54 

dO 

01 

60 

a2 

cO 

13 

c3fO : 

aO 

fa 

86 

69 

84 

6a 

a9 

09 

30 

c3f8 : 

85 

6d 

38 

a5 

69 

e9 

fO 

8d 

bb 

c400 : 

32 

f8 

a5 

6a 

e9 

f4 

8d 

33 

48 

c408 : 

f8 

a2 

2f 

aO 

f8 

20 

87 

fa 

d6 

c4lO : 

aO 

00 

bl 

69 

84 

6b 

20 

a4 

b7 

c4l8 : 

fa 

a4 

6b 

c8 

cO 

22 

dO 

f2 

9e 

c420 : 

aO 

cc 

20 

4d 

01 

a9 

22 

20 

fe 

c428 : 

b6 

fa 

c6 

6d 

dO 

cc 

60 

4d 

4a 

c430 : 

2d 

57 

00 

00 

22 

4d 

2d 

52 

ef 

c438 : 

00 

00 

01 

8e 

38 

f8 

8c 

39 

3a 

c440 : 

f8 

a2 

35 

aO 

f8 

20 

87 

fa 

8f 

c448 : 

20 

4d 

01 

a2 

6f 

aO 

c6 

20 

fb 

c450 : 

4d 

01 

aO 

e4 

20 

4d 

01 

48 

e3 

c458 : 

aO 

cc 

20 

4d 

01 

68 

60 

20 

25 

c460 : 

e2 

f7 

aO 

00 

a2 

lc 

20 

3b 

68 

c468 : 

f8 

dO 

01 

60 

a9 

12 

20 

9c 

fa 

c470 : 

f7 

20 

a9 

fa 

86 

63 

84 

64 

9f 

c478 : 

a9 

01 

20 

b3 

f8 

aO 

02 

bl 

20 

c480 : 

: 69 

fO 

la 

84 

6c 

c8 

a9 

12 

50 

c488 : 

: 85 

6b 

bl 

69 

a2 

00 

81 

63 

53 

c490 : 

: e6 

63 

dO 

02 

e6 

64 

c8 

c6 

de 

c498 : 

: 6b 

dO 

ef 

a4 

6c 

98 

18 

69 

ba 

c4a0 : 

: 20 

a8 

90 

db 

20 

cd 

f8 

a5 

53 

c4a8 : 

: 67 

a4 

66 

dO 

cd 

98 

91 

63 

c4 

c4b0 : 

: 4c 

Od 

f9 

18 

69 

eO 

85 

6a 

8d 

c4b8 : 

: a9 

00 

85 

69 

60 

ec 

93 

f7 

9b 

c4c0 : 

: 84 

67 

fO 

04 

8a 

20 

9c 

f7 

cO 

c4c8 

; a5 

67 

4c 

b3 

f8 

aO 

01 

bl 

a6 

c4d0 

: 69 

85 

67 

88 

bl 

69 

85 

66 

30 

c4d8 

: fO 

03 

aO 

fe 

60 

a4 

67 

88 

2c 

c4e0 

: 60 

20 

a9 

fa 

aO 

00 

bl 

69 

be 

c4e8 

: fO 

23 

a9 

Od 

20 

a4 

fa 

a9 

de 

c4fO 

: 22 

aO 

02 

84 

6b 

20 

a4 

fa 

b4 

c4f8 

: a4 

6b 

bl 

69 

c8 

cO 

13 

dO 

6c 

c500 

: f2 

20 

12 

f9 

aO 

e4 

20 

4d 

12 

c508 

: 01 

c9 

03 

dO 

d7 

a9 

35 

85 

73 

c510 

: 01 

60 

a9 

12 

4c 

b6 

fa 

20 

95 

c518 

: 5f 

f8 

20 

a9 

fa 

aO 

00 

bl 

49 

c520 

: 69 

fO 

32 

bl 

bb 

C8 

c8 

c9 

7d 

c528 

: 3f 

fO 

Oe 

c9 

2a 

fO 

lb 

dl 

d6 

c530 

: 69 

fO 

06 

20 

12 

f9 

4o 

ld 

f3 

c538 

: f9 

88 

c4 

b7 

90 

e5 

c8 

c8 

8a 

c540 

: cO 

12 

fO 

06 

bl 

69 

c9 

aO 

d5 

c548 

: dO 

e9 

aO 

00 

bl 

69 

aa 

c8 

d8 

c550 

: bl 

69 

a8 

18 

a9 

38 

4c 

Od 

8b 

c558 

: f9 

a9 

6f 

aO 

c3 

20 

4d 

01 

8a 

c560 

: a9 

6f 

a2 

08 

aO 

Of 

85 

b8 

74 

c568 

: 86 

ba 

84 

b9 

aO 

cO 

20 

4d 

cf 

c570 

: 01 

60 

a2 

lb 

bd 

00 

fc 

95 

a8 

c578 

: 57 

ca 

10 

f8 

a2 

Ob 

60 

aO 

9d 

c580 

: 00 

ad 

00 

02 

c9 

58 

dO 

03 

40 

c588 

: 4c 

75 

01 

b9 

01 

02 

fO 

03 

fO 

C590 

: c8 

dO 

f8 

84 

b7 

88 

30 

e4 

d9 

c598 

: a2 

02 

86 

bc 

ca 

86 

bb 

86 

51 


Llstlng 16. »MOST-ACCESS COOO» ist 
der integrierte Schnellader. Bitte mit 
dem MSE (Seite 159) eingeben. 




SONDERHEFT 27 


49 


















MALPROGRAMM 


C64 


c5a0 : 

b8 

86 b9 

38 

20 

e8 

f9 

bO 

a3 

c5a8 : 

d3 

ad 7d 

01 

c9 

08 

dO 

23 

38 

c5b0 : 

ad 

7c 01 

c9 

01 

dO 

lc 

a9 

6f 

c5b8 : 

el 

48 a9 

a6 

48 

8a 

48 

a2 

3c 

c5c0 : 

00 

bd e4 

f9 

9d 

77 

02 

e8 

87 

c5c8 : 

eO 

04 dO 

f5 

86 

c6 

68 

aa 

33 

c5d0 : 

4c 

6d 01 

ac 

7d 

01 

ae 

7c 

3c 

c5d8 : 

01 

dO 01 

88 

98 

48 

ca 

8a 

9f 

c5e0 : 

48 

4c 6d 

01 

52 

d5 

3a 

Od 

al 

c5e8 

86 

ae 84 

af 

90 

91 

a2 

lb 

33 

o5f0 

b5 

57 9d 

00 

fc 

ca 

10 

f8 

11 

c5f8 

a5 

b7 48 

a5 

b9 

85 

65 

a9 

fO 

c 600 

00 

85 b7 

20 

59 

f9 

68 

85 

c7 

c608 

b7 

dO 11 

85 

c6 

20 

5f 

f8 

f9 

c6l0 

20 

el f8 

20 

72 

f9 

a4 

2e 

49 

06 I 8 

a6 

2d 18 

60 

20 

17 

f9 

90 

2b 

c620 

07 

20 72 

f9 

a9 

04 

38 

60 

6f 

c628 

20 

bd f8 

a5 

65 

fO 

11 

aO 

7d 

c630 

02 

bl 69 

85 

ae 

8d 

7c 

01 

61 

c638 

c8 

bl 69 

85 

af 

8d 

7d 

01 

43 

c640 

20 

cd f8 

88 

88 

a9 

04 

85 

87 

c648 

69 

20 6b 

fa 

a6 

66 

fO 

12 

81 

c650 

a4 

67 20 

bd 

f8 

20 

cd 

f8 

21 

e658 

a9 

02 85 

69 

20 

6b 

fa 

4c 

73 

c660 

4o 

fa 20 

72 

f9 

a6 

ae 

a4 

59 

c668 

af 

18 60 

84 

6b 

88 

fO 

07 

99 

c670 

bl 

69 91 

ae 

88 

dO 

f9 

bl 

6a 

c678 

69 

91 ae 

18 

a5 

ae 

65 

6b 

95 

068 O 

85 

ae 90 

02 

e6 

af 

60 

8e 

4b 

c688 

97 

fa 8c 

98 

fa 

a2 

6f 

aO 

96 

c690 

c9 

20 4d 

01 

a2 

00 

bd 

8e 

lb 

c698 

f7 

20 a4 

fa 

e8 

eO 

06 

dO 

77 

c 6 a 0 

f5 

aO cc 

60 

aO 

d2 

4c 

4d 

91 

c6a8 

01 

aO d4 

a2 

00 

84 

6a 

86 

5e 

c6b0 

69 

a9 30 

85 

01 

60 

18 

65 

e9 

c6b8 

69 

85 69 

90 

02 

e6 

6a 

60 

12 

e6c0 

20 

56 f5 

50 

fe 

b8 

ad 

01 

01 

c6c8 

lo 

99 24 

00 

c8 

cO 

08 

dO 

Oe 

c6d0 

f2 

a5 24 

c9 

52 

dO 

e9 

20 

6b 

c6d8 

97 

f4 a5 

16 

85 

12 

a5 

17 

c3 

c6e0 

85 

13 a6 

19 

e8 

e4 

fd 

90 

8a 

c6e8 

02 

a2 00 

60 

4d 

4f 

53 

54 

8d 

c6f0 

4c 

06 06 

4c 

cf 

06 

a5 

Oc 

26 

c6f8 

20 

4b f2 

85 

ff 

85 

fd 

aa 

a5 

c700 

a9 

00 9d 

eO 

07 

ca 

10 

fa 

2a 

c708 

: 20 

dO 05 

86 

Od 

fe 

eO 

07 

fd 

c710 

: 20 

0a f5 

c8 

50 

fe 

b8 

ad 

07 

c718 

: 01 

lc 99 

00 

03 

c8 

cO 

a2 

4c 

c720 

: dO 

f2 aO 

01 

50 

fe 

b8 

ad 

ed 

0728 

: 01 

lc 99 

00 

05 

c8 

cO 

a2 

7d 

c730 

: dO 

f2 a6 

Od 

8e 

01 

03 

88 

d3 

c738 

: a2 

Of ad 

00 

18 

10 

fb 

a9 

12 

c740 

: 10 

8d 00 

18 

ac 

00 

18 

30 

b6 


c748 

fb 

8e 

00 

18 

be 

00 

03 

bd 

01 

c750 

00 

04 

8d 

00 

18 

Oa 

29 

Oa 

40 

c758 

8d 

00 

18 

8a 

29 

Of 

8d 

00 

7e 

c760 

18 

Oa 

29 

Oa 

8d 

00 

18 

be 

cO 

c768 

00 

05 

bd 

00 

04 

8d 

00 

18 

37 

c770 

Oa 

29 

Oa 

8d 

00 

18 

8a 

29 

80 

c778 

Of 

8d 

00 

18 

Oa 

29 

Oa 

8d 

7e 

c780 

00 

18 

49 

Of 

ea 

ea 

88 

8d 

04 

c788 

00 

18 

dO 

cO 

a9 

Of 

8d 

00 

2a 

c790 

18 

ad 

00 

lc 

49 

08 

8d 

00 

Oe 

c798 

lc 

c6 

ff 

fO 

ld 

a5 

Od 

18 

99 

c7a0 

69 

03 

c5 

fd 

90 

02 

e5 

fd 

68 

c7a8 

aa 

bd 

eO 

07 

dO 

03 

4c 

lb 

d6 

c7b0 

06 

e8 

e4 

fd 

90 

f3 

a2 

00 

56 

c7b8 

fO 

ef 

a9 

01 

4c 

69 

f9 

aO 

64 

c7c0 

00 

84 

lc 

a2 

10 

8e 

07 

lc 

28 

c7c8 

ca 

8e 

00 

18 

8a 

88 

a2 

Of 

72 

c7d0 

99 

00 

04 

88 

ca 

10 

f9 

38 

01 

c7d8 

e9 

01 

10 

f2 

ae 

05 

02 

86 

cc 

c7e0 

Oc 

a9 

eO 

85 

03 

c5 

03 

fO 

f6 

c7e8 

fc 

60 

00 

f5 

f7 

00 

00 

Oa 

67 


Listing 16. (Schluß) 


Name : bfile 4000 4067 


4000 : 

: 4c 

22 

40 

4c 

29 

40 

4c 

30 

ld 

4008 : 

: 40 

a9 

10 

20 

bd 

ff 

a9 

01 

a9 

4010 : 

: s2 : ;0ö aü 

01 r -20 ; ba -f». 

a9 

2a 

4018 : 

: 00 

20 

d5 

ff 

90 

01 

00 

4c 

47 

4020 

: 00 

09 

a2 

37 

aO 

40 

4c 

09 

84 

4028 

: 40 

a2 

47 

aO 

40 

4c 

09 

40 

aa 

4030 

: a2 

57 

aO 

40 

4c 

09 

40 

4c 

55 

4038 

: 4f 

41 

44 

20 

4l 

4e 

49 

4d 

83 

4040 

: 4l 

54 

49 

4f 

4e 

20 

20 

4c 

e7 

4048 

: 4f 

41 

44 

20 

50 

52 

49 

4e 

a6 

4050 

: 54 

20 

20 

20 

20 

20 

20 

4c 

dd 

4058 

: 4f 

4l 

44 

20 

45 

58 

54 

45 

50 

4060 

: 4e 

53 

49 

4f 

4e 

53 

20 

30 

f4 


Listing 17. Das Programm »BFILE“ 
muß auf jeder Diskette stehen, die 
Erweiterungen enthält. Bitte mit 
dem MSE (Seite 159) eingeben. 


Name : 

load extensions 0900 0a60 

0900 : 

4c 

2 b 

09 01 01 02 25 17 

27 

0908 : 

05 

05 

45 52 57 45 49 54 

99 

0910 : 

45 

52 

55 4e 47 45 4c 20 

b 6 

0918 : 

4l 

55 

46 20 44 49 53 4b 

Oc 

0920 : 

04 

Oa 

22 2d 00 24 3a 5b 

18 

0928 

57 

5d 

2a a2 03 aO 09 20 

a 6 

0930 

6 f 

cO 

a9 40 85 36 a9 00 

22 

0938 

85 

35 

a9 06 a2 25 aO 09 

6 b 

0940 

20 

bd 

ff a9 01 a 2 08 aO 

fa 

0948 

00 

20 

ba ff 20 cO ff a2 

54 

0950 

01 

20 

c 6 ff a9 41 85 23 

14 

0958 

20 

e4 

ff 20 e4 ff 20 4f 

5c 

0960 

Oa 

20 

e4 ff c9 00 dO f9 

87 

0968 

20 

4f 

Oa a9 Of 85 24 20 

d 6 

0970 

e4 

ff 

c9 22 fO 07 a5 90 

09 

0978 

fO 

f5 

4c de 09 a5 23 20 

de 

0980 

72 

cO 

a9 2 d 20 72 cO aO 

3c 

0988 

Of 

a9 

00 91 35 88 dO fb 

71 

0990 

a9 

5b 

91 35 c 8 a9 57 91 

4c 

0998 

35 

c 8 

a9 5d 91 35 aO 03 

93 

09a0 

84 

25 

20 e4 ff 20 e4 ff 

fO 

09a8 

20 

e4 

ff 20 e4 ff c9 22 

f 8 

09b0 

fO 

Oe 

a4 25 e 6 25 91 35 

bd 

09b8 

20 

72 

cO c 6 24 4c ab 09 

80 

09c0 

e 6 

23 

a9 20 20 72 cO c 6 

CC 

09c8 

24 

dO 

f7 a5 35 18 69 10 

el 

09d0 

85 

35 

a5 36 69 00 85 36 

39 

09d8 

a5 

23 

c9 5b 90 83 20 cc 

2 c 

09e0 

ff 

a9 

01 20 c3 ff a2 36 

2 b 

09e8 

aO 

Oa 

20 6 f cO 20 4e 90 

eb 

09 fO 

c9 

20 

dO 03 4c 2 b 09 c9 

34 

09f8 

41 

90 

04 c5 23 90 01 00 

f 6 

OaOO 

38 

e9 

4l Oa Oa Oa Oa a2 

ld 

0a08 

40 

90 

01 e 8 86 36 85 35 

88 

OalO 

aO 

Of 

bl 35 dO 03 88 dO 

34 

0 al 8 

: f9 

c 8 

98 a4 36 a 6 35 20 

de 

0 a 20 

: bd 

ff 

a9 01 a2 08 aO 01 

56 

0a28 

: 20 

ba 

ff a9 00 20 d5 ff 

33 

0a30 

: 90 

01 

00 4c 00 40 04 Oa 

fl 

0a38 

: 22 

2d 

57 45 4c 43 48 45 

fa 

0a40 

: 20 

45 

52 57 45 49 54 45 

fd 

Oa48 

: 52 

55 

4e 47 20 3e 00 20 

f 6 

0a50 

: e4 

ff 

20 e4 ff 20 e4 ff 

6 d 

0a58 

: 4c 

e4 

ff a9 01 8 d Oe 00 

00 

Listing 18 

»LOAD EXTENSIONS. 

ist 

ebenfalls 

für 

Erweiterungen not- 



wendig. Bitte mit dem MSE (Seite 
159) eingeben. 


100 REM EINGABETREIBER INSTALLATIONS <043> 
110 REM PROBRAMM FUER AMICA PAINT VI.1 <141> 
120 REM <1B2> 
130 REM WEITERE EINGABEGERAETE KOENNEN <162> 
140 REM IN DEN DATA-ZEILEN HINZUGEFUEBT <254> 
150 REM WERDEN <045> 
160 : <136> 
170 DA=0 <246> 
180 DIM E*(20>.L*(20> <030> 
190 : <166> 
200 READ E*(DA).L*(DA) <201> 
210 IF E$(DA)<>"@@@" THEN DA=DA+1s GOTO 200 <19B> 
220 : <196> 
230 PRINT"(CLR.RVSONJVERFUEGBARE EINGABEGE 

RAETE:<DOWN >" <154 > 
240 : <216> 


250 FOR T=0 TO DA-1 <122> 

260 PRINT CHR*(65+T)s" - "sE»(T) <203> 

270 NEXT T <1B8> 

200 j <002> 

290 PRINT"(DOWN.RVSON1GEWUENSCHTES BERAET 

?•' <063> 

300 : <022> 

310 BET A*:IF A*="" THEN 310 <057> 

311 IF ASC(A*)<65 OR ASC(AS)>DA+64 THEN 31 

0 <123> 

320 : <042> 

330 OPEN 1.0.15 <244> 

340 PRINT#1."S:A.PAINT INPT" <134> 

350 PRINT#1."C:A.PAINT INPT=INPUT."+L*(ABC 

(A*>-65) <165> 

360 CLOSE 1 <117> 


50 
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370 END <11B> 
3B0 : <I02> 
390 DATA "JOYSTICK/TASTATUR"."STICK" <125> 
400 DATA "COMMODORE MAUS 1351"MAUS" <225> 
63999 DATA <249> 


Listing 19. Das Programm »EINGABEGERÄTE«. 

Mit ihm wird eingestellt, ob Sie mit einem Joystick 
oder einer Maus arbeiten wollen. 

Bitte mit dem Checksummer (Seite 159) eingeben. 


Name : Show plc.52480 cdOO cea2 


cdOO : 

20 

fd 

ae 

20 

9e 

b7 

a9 

00 

ld 

cd08 : 

aO 

00 

20 

ba 

ff 

20 

fd 

ae 

5e 

cdlO : 

20 

9e 

ad 

20 

a3 

b6 

a6 

22 

bd 

cdl8 ; 

a4 

23 

48 

20 

bd 

ff 

a2 

00 

ca 

cd20 : 

aO 

aO 

86 

fd 


fe 

68 

fO 

35 

cd28 : 

: 76 

a9 

00 

20 

d5 

ff 

90 

03 

ld 

cd30 : 

: 4c 

f9 

eO 

78 

a2 

00 

86 

01 

06 

cd38 : 

: aO 

dO 

86 

fb 

84 

fc 

20 

45 

9d 

cd40 : 

; ce 

aO 

00 

b9 

40 

ef 

99 

00 

7f 

cd48 : 

: CO 

b9 

40 

fO 

99 

00 

cl 

b9 

27 

cd50 : 

: 40 

fl 

99 

00 

c2 

b9 

40 

f2 

dO 

cd58 : 

: 99 

00 

c3 

b9 

28 

f3 

99 

00 

a2 

cd60 : 

: c4 

b9 

28 

f4 

99 

00 

c5 

b9 

ce 

cd68 

: 28 

f5 

99 

00 

c6 

b9 

28 

f6 

ba 

cd70 

: 99 

00 

c7 

c8 

dO 

cd 

ad 

10 

66 

cd78 

: f7 

8d 

01 

cc 

a2 

20 

a9 

ef 

cl 

cd80 

: aO 

00 

85 

fe 

84 

fd 

a9 

ff 

40 

cd88 

: 85 

fc 

84 

fb 

bl 

fd 

91 

fb 

75 


cd90 : 

c8 

dO 

f9 

c6 

fe 

c6 

fc 

ca 

c7 

cd98 : 

dO 

f2 

a9 

37 

85 

01 

58 

20 

35 

cdaO : 

fd 

ae 

20 

9e 

b7 

eO 

00 

fO 

35 

cda8 : 

09 

ca 

fO 

43 

ad 

al 

ce 

dO 

80 

cdbO : 

3e 

60 

aO 

00 

b9 

00 

c8 

99 

38 

cdb8 : 

00 

d8 

b9 

00 

e9 

99 

00 

d9 

bO 

cdcO : 

b9 

00 

ca 

99 

00 

da 

b9 

00 

ld 

cdc8 : 

cb 

99 

00 

db 

c8 

dO 

e5 

a9 

d9 

cddO : 

15 

8d 

18 

dO 

ad 

00 

cc 

8d 

f5 

cdd8 : 

: 21 

dO 

a9 

c8 

8d 

16 

dO 

a9 

05 

cdeO : 

: lb 

8d 

11 

dO 

a9 

97 

8d 

00 

ae 

cde8 : 

: dd 

a9 

00 

8d 

al 

ce 

60 

20 

9e 

cdfO : 

: 77 

ce 

aO 

00 

b9 

00 

c4 

99 

d8 

cdf8 : 

; 00 

d8 

b9 

00 

c5 

99 

00 

d9 

bO 

ceOO : 

: b9 

00 

c6 

99 

00 

da 

b9 

00 

5c 

ce08 

: c7 

99 

00 

db 

88 

dO 

e5 

a9 

11 

celO 

: Of 

8d 

18 

dO 

ad 

01 

cc 

8d 

37 

cel8 

: 21 

dO 

a9 

d8 

8d 

16 

dO 

a9 

47 

ce20 

: 3b 

8d 

11 

dO 

a9 

94 

8d 

00 

f6 

ce28 

: dd 

a9 

01 

8d 

al 

ce 

60 

a2 

23 


ce30 : 

00 

81 

fb 

e6 

fb 

dO 

02 

e6 

e9 

ce38 : 

fc 

60 

a2 

00 

al 

fd 

e6 

fd 

af 

ce40 : 

dO 

02 

e6 

fe 

60 

20 

3a 

ce 

38 

ce48 : 

: c9 

c2 

fO 

06 

20 

2f 

ce 

4c 

bf 

ce50 : 

: 45 

ce 

'20 

3a 

ce 

c9 

00 

fO 

69 

ce58 : 

: ld 

a8 

20 

3a 

ce 

48 

98 

aa 

00 

ce60 : 

: 68 

aO 

00 

91 

fb 

c8 

ca 

dO 

ld 

ce68 : 

: fa 

98 

18 

65 

fb 

85 

fb 

90 

5e 

ce70 : 

: d4 

e6 

fc 

4c 

45 

ce 

60 

ad 

28 

ce78 : 

: al 

ce 

fO 

01 

60 

aO 

00 

b9 

5b 

ce80 : 

: 00 

d8 

99 

00 

c8 

b9 

00 

d9 

61 

ce88 : 

: 99 

00 

c9 

b9 

00 

da 

99 

00 

08 

ce90 : 

: ca 

b9 

00 

db 

99 

00 

cb 

c8 

Od 

ce98 : 

: dO 

e5 

ad 

21 

dO 

8d 

00 

cc 

fd 

ceaO : 

: 60 

00 

f8 

fd 

ff 

fd 

ff 

f5 

da 


Listing 20. Das Programm »SHOW 
PIC.52480« zeigt eine Grafik an, die 
mit AMICA Paint erstellt wurde. Bitte 
mit dem MSE (Seite 159) eingeben. 


100 

IF M=0 THEN M=1:LDAD "SHOW PIC.52480". 


467 

PRINT A*B$C*D*E*F*G*H*I*J*K*L*M$N*0*P* 



a i 




<236> 

110 

REM ******#***********■*-#-**•#-**-**«■*•*• <l64>* 

470 J^T 

A*,B*:IF A* THEN PRINT A*B*;:GOTO 

120 

REM * * 

<169> 


470 



< 161 > 

130 

REM * BASIC DEMO ZUR * 

< 006 > 

480 

PRINT A*:GOTO 460 

<237> 

140 

REM * "SHOW PIC.52480" - ROUTINE * 

<037> 

490 

CLOSE lsGOTO 200 

<159> 

150 

REM * * 

< 199> 

500 

REM 



<052> 

160 

REM ****************************-** 

<214> 

510 

REM 

SYNTAX 

DES "SYS-BEFEHLS" : 

<172> 

170 

REM 

<232> 

520 

REM 



<074> 

1B0 

REM NAMEN EINGEBEN 

<247> 

530 

REM 

SYS 52480.GERAET."NAME".MODUS 

<002> 

190 

REM 

<252> 

540 

REM 



<094> 

200 

PRINTsPRINT:PRINT "NAME DES BILDES" 

<251 > 

550 

REM 

GERAET 

: GERAETENUMMER 

<185> 

210 

PRINT "(ODER * FUER DIRECTORY)" 

<236> 

560 

REM 


1=DATAS. 8—FLOPPY _ 

<242> 

220 

A*="":INPUT A*:IF A*="*" THEN 450 

<228> 

570 

REM 



<124> 

230 

REM 

<036> 

580 

REM 

"NAME" 

: PROGRAMMNAME 

< 1B3> 

240 

REM BILD LADEN 8, ZEIGEN 

< 144> 

590 

REM 


Z.B. "CB1TEST" 

<002> 

250 

REM 

<056> 

600 

REM 


WIRD ALS NAME NUR "" 

<239> 

260 

SYS 52480.8.A*. 1 

<097> 

610 

REM 


(LEERSTRING) ANGEGEBEN 

<07B> 

270 

REM 

<07B> 

620 

REM 


WIRD KEIN NEUES BILD 

<157> 

280 

REM TASTENDRUCK ABWARTEN 

<231 > 

630 

REM 


GELADEN (UM NUR IN DEN 

< 139> 

290 

REM 

<09B> 

640 

REM 


TEXT—/GRAFIKMODUS UM- 

< 146> 

300 

GET A*:IF A*="” THEN 300 

<239> 

650 

REM 


ZUSCHALTEN 

<137> 

310 

REM 

< 11 B> 

660 

REM 



<214> 

320 

REM TEXTMODUS EINSCHALTEN 

< 117> 

670 

REM 

MODUS 

c ZAHL VON 0 BIS 2 

<023> 

330 

REM 

< 13B> 

680 

REM 


0=TEXTMOD. EINSCHALTEN 

<095> 

340 

SYS 52480.8."".0 

<088 > 

690 

REM 


1“GRAFIK ZEIGEN 

< 129> 

350 

PRINT"WOLLEN SIE DAS BILD NOCH EINMAL 


700 

REM 


2=ALTEN MODUS BEIBE- 

<022> 


SEHEN" 

<076> 

710 

REM 


HALTEN (NUR SINNVOLL 

< 132> 

360 

INPUT A*:IF LEFT*(A*.1)<>"J" THEN 200 

< 160 > 

720 

REM 


WENN AUCH EIN BILD 

< 167> 

370 

REM 

< 170> 

730 

REM 


GELADEN WIRD.DA 

<072> 

3B0 

REM BILD NOCH EINMAL ZEIGEN 

< 161 > 

740 

REM 


SONST BAR NICHTS 

< 13B> 

390 

REM 

< 19B> 

750 

REM 


PASSIERT) 

<043> 

400 

SYS 524B0.8,"".1 

<212> 

760 

REM 



<058> 

410 

GOTO 300 

<100; 

770 

REM 

ES IST 

DARAUF ZU ACHTEN. DASS 

<074> 

420 

REM 

<228> 

780 

REM 

DAS BILD AUCH WIRKLICH MIT 

<072> 

430 

REM DIRECTORY ZEIGEN 

<008> 

790 

REM 

"AMICA 

PAINT" GESPEICHERT 

<22B> 

440 

REM 

<24B> 

B00 

REM 

WURDE. 

SONST IST EIN ABSTURZ 

<21B> 

450 

OPEN 1.8.0."*":POKE 7B1.1:SYS 65478:GE 


810 

REM 

DES RECHNERS MOEGLICH 

<206> 


T A*.A*sZ*=CHR*(0> 

<233> 






460 

GET A*.A*.L*,H$:IF ST THEN SYS 65484:C 







465 

LOSE lsGOTO 200 

PRINT ASC(L*+Z*)+256*ASC(H*+Z*>: 

< 177 > 
<06B> 

Listing 21. Ein kleines Demonstrationsprogramm namens 

466 

OET A*.B*.C4>,D^.E»,F*.G*.H». I*.J*,K*.L 

»DEMO SHOW.PIC« zeigt die Arbeitsweise von Listing 20. 


*.M#.N*,0*.P*,Q*,R*.S*,T*.U*.V#.W*.X* 

<134> 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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Name : makro edi.49152 cOOO c254 


cOOO : 

a2 

17 

aO 

cO 

8e 

30 

03 

8c 

fe 

c 008 : 

31 

03 

a2 

95 

aO 

cl 

8e 

32 

cd 

C010 : 

03 

8c 

33 

03 

6c 

02 

aO 

20 

20 

c018 : 

a5 

f4 

90 

01 

60 

aO 

00 

b9 

fa 

c020 : 

00 

08 

99 

00 

cf 

c8 

dO 

f7 

01 

c028 : 

a9 

64 

85 

fd 

84 

fe 

a9 

08 

lb 

c030 : 

8d 

30 

cl 

8c 

2f 

cl 

a9 

00 

7f 

c038 : 

20 

2d 

cl 

a9 

01 

20 

2d 

cl 

de 

c040 : 

20 

2d 

cl 

a9 

00 

20 

2d 

cl 

d6 

c048 : 

20 

2d 

cl 

a9 

3d 

20 

2d 

cl 

bl 

c050 : 

ad 

00 

cf 

20 

3a 

cl 

a9 

2f 

ac 

c058 : 

20 

2d 

cl 

ad 

01 

cf 

20 

3a 

b8 

c060 : 

: cl 

aO 

02 

a9 

00 

20 

2d 

cl 

60 

c068 : 

: a9 

01 

20 

2d 

cl 

20 

2d 

cl 

95 

c070 : 

: a5 

fd 

20 

2d 

cl 

a5 

fe 

20 

47 

c078 : 

: 2d 

cl 

a5 

fd 

18 

69 

Oa 

85 

af 

c080 : 

: fd 

a5 

fe 

69 

00 

85 

fe 

b9 

d8 

c088 : 

: 00 

cf 

dO 

03 

4c 

Of 

cl 

c9 

de 

c090 : 

: ff 

fO 

59 

48 

a9 

22 

20 

2d 

ed 

c098 : 

: cl 

68 

c9 

Od 

dO 

Od 

a9 

le 

fa 

cOaO : 

: 20 

2d 

cl 

a9 

52 

20 

2d 

cl 

5b 

c0a8 : 

: 4c 

el 

cO 

c9 

8d 

dO 

Od 

a9 

35 

cObO : 

: le 

20 

2d 

cl 

a9 

d2 

20 

2d 

6e 

C0b8 : 

: cl 

4c 

el 

cO 

c9 

14 

dO 

Od 

ca 

cOcO 

: a9 

le 

20 

2d 

cl 

a9 

54 

20 

21 

c0o8 

: 2d 

cl 

4c 

el 

cO 

c9 

94 

dO 

73 

cOdO 

: Od 

a9 

le 

20 

2d 

cl 

a9 

d4 

6f 

c0d8 

: 20 

2d 

cl 

4c 

el 

cO 

20 

2d 

88 

cOeO 

: cl 

a9 

22 

20 

2d 

cl 

c8 

fO 

e8 

c0e8 

: 03 

4c 

63 

cO 

a9 

80 

20 

2d 

7c 

cOfO 

: cl 

a9 

00 

20 

2d 

cl 

20 

2d 

46 

c0f8 

: Cl 

20 

2d 

cl 

20 

33 

a5 

a5 

ca 

clOO 

: 22 

18 

69 

02 

85 

2d 

a5 

23 

68 

cl08 

: 69 

00 

85 

2e 

6c 

02 

aO 

a9 

45 

cllO 

: 21 

20 

2d 

cl 

c8 

b9 

00 

cf 

bf 

cll8 

: 20 

3a 

cl 

a9 

2f 

20 

2d 

cl 

27 

cl20 

: c8 

b9 

00 

cf 

20 

3a 

cl 

c8 

2b 

cl28 

: fO 

c2 

4c 

63 

cO 

ea 

8d 

ff 

92 

C130 

: ff 

ee 

2f 

cl 

dO 

03 

ee 

30 

ec 

cl38 

: cl 

60 

c9 

64 

90 

Oc 

e9 

64 

02 

cl40 

: aa 

a9 

31 

20 

2d 

cl 

8a 

4c 

b3 

el48 

: 51 

cl 

aa 

a9 

30 

20 

2d 

cl 

96 

cl50 

: 8a 

a2 

00 

e8 

38 

e9 

Oa 

bO 

a5 

cl58 

: fa 

69 

Oa 

48 

8a 

18 

69 

2f 

00 

cl60 

: 20 

2d 

cl 

68 

18 

69 

30 

4c 

ba 

cl68 

: 2d 

cl 

99 

00 

cf 

c8 

cO 

fb 

la 

cl70 

: dO 

03 

4c 

21 

c2 

60 

ad 

ff 

df 

cl78 

: ff 

ee 

77 

cl 

dO 

03 

ee 

78 

d6 


cl80 : 

cl 

60 

20 

76 

cl 

c9 

00 

dO 

54 

cl88 : 

f9 

20 

76 

cl 

20 

76 

cl 

20 

64 

cl90 : 

76 

cl 

4c 

76 

el 

a9 

08 

8d 

6d 

cl98 : 

78 

cl 

aO 

00 

8c 

77 

cl 

20 

e5 

claO : 

: 82 

cl 

20 

76 

cl 

20 

27 

c2 

19 

cla8 : 

: 20 

76 

cl 

20 

27 

c2 

20 

82 

86 

clbO : 

: cl 

20 

76 

cl 

c9 

80 

fO 

2f 

la 

clb8 : 

: c9 

21 

fO 

54 

20 

76 

cl 

c9 

29 

clcO : 

: le 

dO 

le 

20 

76 

cl 

c9 

52 

13 

clc8 : 

: fO 

Oc 

c9 

d2 

fO 

Ob 

c9 

54 

c2 

cldO : 

: fO 

Oa 

c9 

d4 

fO 

09 

a9 

Od 

ea 

cld8 ; 

: 2c 

a9 

8d 

2c 

a9 

14 

2c 

a9 

01 

cleO ; 

: 94 

20 

6a 

cl 

4c 

ae 

cl 

a9 

ec 

cle8 : 

; ff 

99 

00 

cf 

c8 

dO 

f8 

aO 

e6 

clfO : 

00 

b9 

00 

cf 

99 

00 

08 

c8 

12 

clf8 : 

dO 

f7 

a9 

08 

85 

af 

a9 

fb 

a4 


c200 : 

: 85 

ae 

a2 

00 

86 

cl 

aO 

08 

8e 

c208 : 

: a4 

c2 

20 

ed 

f5 

4c 

ld 

cO 

8b 

c 210 : 

: a9 

00 

20 

6a 

cl 

20 

27 

c2 

4e 

c218 : 

: 20 

76 

cl 

20 

27 

c2 

4c 

ae 

ff 

C220 : 

: cl 

ea 

a9 

Ob 

4c 

37 

a4 

ea 

09 

C228 : 

: 20 

76 

cl 

a2 

64 

c9 

31 

fO 

83 

C230 : 

: 02 

a2 

00 

20 

76 

cl 

38 

e9 

b2 

c238 

: 2f 

85 

02 

8a 

c6 

02 

fO 

06 

48 

c240 

: 18 

69 

Oa 

4c 

3c 

c2 

85 

02 

Od 

c248 

: 20 

76 

cl 

38 

e9 

30 

18 

65 

66 

c250 

: 02 

4c 

6a 

cl 

6f 

f7 

85 

6b 

ef 


Llsting 22. Mit »MAKRO EDI.49152« 
sind gespeicherte Makros nach¬ 
träglich zu verändern. Bitte mit 
dem MSE (Seite 159) eingeben. 


Name 

Virus 

270 



OlOe 0183 

015e : 01 ee 4f 01 ee 52 01 ee 2e 











0166 : 55 01 ca dO df 8c 05 80 80 

OlOe 

78 

a2 

a9 

37 

85 

01 

ad 

49 

d2 

Ol6e : ad 18 dO 8d ff lf ad 00 bd 

0116 

02 

ac 

4a 

02 

20 

91 

b3 

20 

df 

0176 : dd 8d fe lf ad 21 dO 8d 00 

Olle 

Oc 

bc 

a9 

09 

aO 

24 

20 

91 

e3 

017e : fd lf 4c e2 00 b2 02 f5 04 

0126 

b3 

20 

12 

bb 

20 

e2 

ba 

20 

2a 


012 e 

49 

b8 

20 

cc 

bc 

20 

fe 

ba 

b3 


0136 

20 

dd 

bd 

20 

le 

ab 

a9 

36 

Ob 

Listing 23. Ein gutmütiger Virus mit 

013e 

85 

01 

60 

00 

78 

d8 

a9 

37 

bf 

dem Namen »VIRUS 270« infiziert 

0146 

85 

01 

a2 

04 

b9 

00 

d8 

99 

a7 

Programme, um Grafiken zu über- 

Ol4e 

00 

lc 

b9 

00 

04 

99 

00 

18 

08 

nehmen. Bitte mit dem MSE (Seite 

0156 

ee 

20 

dO 

c8 

dO 

ee 

ee 

4c 

7a 

159) eingeben. 


Name 

wandeln > > 

koala 

0801 0938 

0869 

dO 

cd 

20 

e4 

ff 

c9 

85 

fO 

Ob 


—«-...... 

— 


0871 

14 

c9 

86 

dO 

f5 

00 

81 

50 

2b 

0801 

01 

01 

c3 

07 

9e 

32 

30 

36 

fd 

0879 

49 

43 

20 

42 

49 

4c 

44 

20 

fd 

0809 

31 

00 

00 

00 

ad 

fd 

lf 

8d 

9d 

0881 

20 

20 

20 

20 

20 

a9 

01 

a 2 

56 

0811 

21 

dO 

ad 

fe 

lf 

29 

03 

8d 

48 

0889 

08 

aO 

01 

20 

ba 

ff 

a9 

Of 

96 

0819 

fe 

lf 

ad 

00 

dd 

29 

fc 

Od 

47 

0891 

a2 

77 

aO 

08 

20 

bd 

ff 

20 

48 

0821 

fe 

lf 

8d 

00 

dd 

ad 

ff 

lf 

9c 

0899 

cO 

ff 

a2 

01 

20 

c9 

ff 

a9 

c5 

0829 

8d 

18 

dO 

a9 

d8 

8d 

16 

dO 

20 

08al 

00 

20 

d2 

ff 

a9 

60 

20 

d2 

2a 

0831 

a9 

3b 

8d 

11 

dO 

aO 

00 

b9 

83 

08a9 

ff 

ad 

fe 

lf 

49 

03 

4e 

ff 

08 

0839 

00 

lc 

99 

00 

d8 

b9 

00 

ld 

43 

08bl 

lf 

4e 

ff 

lf 

4e 

ff 

lf 

4e 

d9 

0841 

99 

00 

d9 

b9 

00 

le 

99 

00 

df 

08b9 

ff 

lf 

2a 

Oa 

Oa 

Oa 

Oa 

Oa 

41 

0849 

da 

b9 

00 

lf 

99 

00 

db 

b9 

60 

08cl 

85 

ff 

a9 

00 

85 

fe 

a9 

lf 

e5 

0851 

00 

18 

99 

00 

04 

b9 

00 

19 

04 

08c9 

85 

fd 

a9 

40 

85 

fc 

78 

a 2 

27 

0859 

99 

00 

05 

b9 

00 

la 

99 

00 

a2 

08dl 

00 

20 

18 

09 

ad 

fe 

lf 

49 

ea 

0861 

06 

b9 

00 

lb 

99 

00 

07 

c8 

ef 

08d9 

03 

Oa 

Oa 

Oa 

Oa 

Od 

ff 

lf 

ed 
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08el 

0a 

0a 

85 

ff 

a9 

00 

85 

fe 

00 


08e9 

a9 

03 

85 

fei 

a9 

e8 

85 

fc 

27 


08fl 

20 

18 

09 

a9 

d8 

85 

ff 

a9 

a2 

Listing 24. Das 

08f9 

00 

85 

fe 

a9 

03 

85 

fd 

a9 

58 

Programm 

0901 

e8 

85 

fc 

a2 

37 

20 

18 

09 

26 

»WANDELN 

0909 

ad 

21 

dO 

20 

d2 

ff 

20 

ec 

c6 

> > KOALA« 

0911 

ff 

a9 

01 

20 

c 3 

ff 

00 

aO 

a7 

wandelt die mit 

0919 

00 

86 

01 

bl 

fe 

aO 

37 

84 

ae 

Listing 23 

0921 

01 

20 

d2 

ff 

78 

e6 

fe 

dO 

43 

gesicherten Bilder 

0929 

05 

ee 

20 

dO 

e6 

ff 

c6 

fe 

4b 

in das Koalapaint- 

0931 

dO 

05 

c6 

fd 

10 

el 

60 

85 

02 

Format um. 


220 

NEXT 

<230> 

230 

DATA 32.248.252.208.IBS.184 

<225> 

240 

: 

<216> 

250 

INPUT "HINTER6RUNDFARBC0DE (0-15)": HN 

<107> 

260 

IF HN<0 OR HN>15 THEN 250 

<004> 

270 

INPUT "GRAFIKSEITE <1 ODER 2>":BR 

<035> 

280 

IF GR<1 OR BR>2 THEN 270 

<168> 

290 

: 

<012> 

300 

POKE 780.HI(GR) 

<215> 

310 

POKE 781.BI(GR) 

<254> 

320 

POKE 782.FA(GR) 

< 034 > 

330 

SYS 49152 

< 134 > 

340 

POKE 34576.HN 

<019> 

350 

: 

<072> 

360 

POKE 44.96:POKE 43.0 

<052> 

370 

POKE 45.17:POKE 46,135 

< 106 > 

3B0 

SAVE "CORANGEJPIC GERETTET{2SPACEJ".8: 



SYS 64738 

<169> 

Listing 27. Der »BILDRETTER« rettet Grafiken von 


AMICA Paint nach einem Absturz des C64. Bitte mit 

dem Checksummer (Seite 159) eingeben. 



100 

REM 

< 162> 

110 

REM PROGRAMM ZUR UMWANDLUNG VON 

< 1B3> 

120 

REM HIRES BILDERN (STARTADR.*2000) 

< 135> 

130 

REM IN KOALA-PAINTER BILDER. 

<248 > 

140 

REM 

<202> 

150 

IF Q=0 THEN 0=1:LOAD "H/M WANDLER C000 



".8.1 

<230> 

160 

IF A=0 THEN INPUT "NAME DES HIRES BILD 



ES " ; HN* 

<134> 

170 

IF A-0 THEN A-liLDftD HN*.B.1 

<244> 

180 

s 

< 156> 

190 

SYS 49152 

<248> 

200 

INPUT "VORDERGRÜNDEARBCODE ":F1 

<078> 

210 

INPUT "HINTERGRUNDFARBCODE ":F2 

< 194 > 

220 

s 

<196> 

230 

FOR T=B192+9000 TO 8192+9999:POKE T.F2 



: NEXT 

<218> 

240 

POKE 8192+10000.Fl 

< 173> 

250 

: 

<226» 

260 

POKE 46.71:POKE 45.239:CLR 

<023> 

270 

INPUT "NAME DES KOALA-BILDES “: KN* 

<176> 

280 

KN*="{ORANGE>PIC " +LEFT* ( KN*+ " {10SPACE 



>”.10) 

< 144 > 

290 

POKE 44.32:POKE 43.0 

<106> 

300 

SAVE KN*.8.1:SYS 64738 

<090> 

Listing 25. Von Hires nach Multicolor. Ein kleines 

Hilfsprogramm namens »H/M WANDLER BAS« macht’s 

möglich. Bitte mit dem Checksummer (Seite 159) eingeben. 



Name 

ret.cOOO 




eOOO c053 


O000 

85 

fe 

8e 

lb 

cO 

8c 

2c 

cO 

ae 


c008 

78 

aO 

00 

84 

01 

84 

fd 

84 

96 


C010 

fb 

a9 

60 

85 

fc 

a2 

20 

20 

4e 


c018 

42 

cO 

a9 

00 

85 

fe 

a9 

7f 

lb 

Listing 28. »RET 

c020 

85 

fc 

a9 

40 

85 

fb 

a2 

04 

60 

C000« ist die 

c028 

20 

42 

cO 

a9 

00 

85 

fe 

a9 

4a 

Maschinenspra- 

c030 

83 

85 

fc 

a9 

28 

85 

fb 

a2 

ce 

che-Routine 

c038 

04 

20 

42 

cO 

a9 

37 

85 

01 

61 

zu Listing 27. 

c040 

58 

60 

aO 

00 

bl 

fd 

91 

fb 

3a 

Bitte mit dem 

c048 

c8 

dO 

f9 

e6 

fe 

e6 

fc 

ca 

84 

MSE (Seite 159) 

oD5 n 

dO 

f2 

60 

ff 

c6 

fa 

dO 

bc 

b2 

eingeben. 


100 

REM 

<162> 

110 

REM PROGRAMM ZUM AENDERN DER 

< 107> 

120 

REM STARTADRESSE EINES FILES 

<114> 

130 

REM AUF *6000 (KOALAPAINTER 

< 199> 

140 

REM BILDER START) 

<24B> 

150 

REM 

<212> 

160 

REM 

<222> 

170 

INPUT "FILENAME ":A* 

<045> 

180 

: 

<156> 

190 

OPEN 2.8.15 

<110> 

200 

OPEN 3.8.3."#":GOSUB 340 

<195> 

210 

OPEN 1.8.0,A* :GOSUB 340 

<055> 

220 

: 

<196> 

230 

PRINT #2."M-R"+CHR*(24)+CHR*(0)+CHR*(2) 

< 121 > 

240 

GET #2.TR*.SE* 

< 170> 

250 

PRINT#2."U1:"3:0:ASC(TR*+CHR*(0)):ASC( 



SE*+CHR*(0>):GOSUB 340 

<239> 

260 

PRINT42,"B-P":3:2 

<055> 

270 

PRINT#3.CHR*(0):CHR*(96 >: 

<03B> 

280 

PRINT#2."U2:"3;0:ASC<TR*+CHR*(0));ASC< 



SE*+CHR*(0)):GOSUB 340 

< 144> 

290 

CLOSE 1 

<047> 

300 

CLOSE 2 

<065> 

310 

CLOSE 3 

<083> 

320 

END 

<068> 

330 

: 

<052> 

340 

INPUT#2,F.F*.FT.FS:IF F=0 THEN RETURN 

< 0 16 > 

350 

PRINT "DISK-FEHLER" 

<222> 

360 

PRINT F:F*:FT:FS 

<100> 

370 

GOTO 290 

< 196> 

Listing 29. Manchmal ist es nötig, die Startadresse einer 

Grafik zu verändern. »STARTADR. 6000« hilft. 


Bitte mit dem Checksummer (Seite 159) eingeben. 


Name 

h/m Wandler 

cOOO 

cOOO c 066 


cOOO 

aO 

00 

a9 

20 

a2 

00 

85 

ff 

4f 


c008 

86 

fe 

86 

fd 

a9 

19 

85 

f9 

de 


C010 

a9 

28 

85 

fa 

bl 

fe 

85 

fc 

bl 


c018 

a2 

04 

a9 

00 

85 

fb 

26 

fc 

fl 

Listing 26. 

»H/M WANDLER 

c 020 

c028 

2a 

c9 

26 

03 

fc 

fO 

2a 

05 

29 

a5 

03 

fd 

fO 

49 

Oc 

03 

68 

c5 

c030 

2c 

a9 

03 

2c 

a9 

00 

85 

fd 

24 

COOO« Die Maschl- 

c038 

06 

fb 

06 

fb 

05 

fb 

85 

fb 

7b 

nensprache- 

c040 

ca 

dO 

db 

a5 

fb 

91 

fe 

a5 

bl 

Routinen zu 

c048 

fe 

18 

69 

08 

85 

fe 

a5 

ff 

95 

Listing 25. Bitte 

c050 

69 

00 

85 

ff 

c6 

fa 

dO 

bc 

lc 

mit dem MSE 

c058 

a9 

28 

85 

fa 

c6 

f9 

dO 

b4 

bf 

(Seite 159) ein- 

c060 

c8 

cO 

08 

dO 

9d 

60 

2d 

cl 

ba 

geben. 


100 

110 

REM 

REM 

PROGRAMM ZUR RETTUNG VON 

<162> 

<232> 

120 

REM 

AMICA PAINT BILDERN NACH 

<036> 

130 

REM 

ABSTURZ DES RECHNERS 

< 137> 

140 

REM 

(Z.B. DURCH NF.TZSPANNUNGS- 

<074> 

150 

REM 

SCHWANKUNGEN) ODER VER- 

< 195> 

160 

REM 

SEHENTLICHEM RESET. 

< 164> 

170 

180 

190 

RÜM 

IF A 

=0 THEN A=1:LOAD "RET.C000".8.1 

<232> 

< 156> 
<032> 

200 

210 

FOR 

T=1 TO 2:READ HI(T),BI(T>.FA(T) 

< 176> 
<255> 


Ü'ai' 
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Name 

[wjdreieck 



4000 40f0 

4070 

86 

24 

84 

27 

20 

42 

a9 

4c 

62 












4078 

05 

40 

a6 

23 

a4 

26 

86 

ef 

21 


4000 

20 

12 

70 

e6 

d2 

a2 

al 

aO 

2c 

4080 

84 

fO 

a6 

25 

a4 

28 

86 

17 

9e 


4008 

40 

20 

57 

a9 

20 

39 

a9 

a5 

21 

4088 

84 

18 

20 

33 

cO 

a6 

24 

a4 

a2 


4010 

fb 

fO 

f9 

g6 

fb 

a6 

el 

a4 

aO 

4090 

27 

86 

ef 

84 

fO 

a6 

25 

a4 

a9 


4018 

e2 

86 

23 

84 

26 

a2 

b4 

aO 

22 

4098 

28 

86 

17 

84 

18 

20 

33 

cO 

2b 


4020 

40 

20 

27 

oO 

20 

39 

a9 

a6 

12 

40a0 

60 

01 

31 

03 

44 

52 

45 

49 

ac 


4028 

el 

a4 

e2 

86 

24 

84 

27 

20 

28 

40a8 

45 

43 

4b 

20 

50 

55 

4e 

4b 

e5 


4030 

3f 

a9 

a5 

fb 

fO 

ee 

c6 

fb 

c6 

40b0 

54 

20 

31 

00 

01 

31 

03 

44 

8f 


4038 

20 

42 

a9 

a2 

c7 

aO 

40 

20 

fb 

40b8 

52 

45 

49 

45 

43 

4b 

20 

50 

58 

Listing 30. Eine kleine Erweiterung 

4040 

27 

cO 

20 

39 

a9 

a6 

el 

a4 

97 

40c0 

55 

4e 

4b 

54 

20 

32 

00 

01 

2f 

zu AMICA Paint vom Autoren 

4048 

c2 

86 

25 

84 

28 

20 

7a 

40 

35 

40c8 

31 

03 

44 

52 

45 

49 

45 

43 

10 

selbst. Sie zeichnet beliebige 

4050 

20 

7a 

40 

a5 

fb 

fO 

eb 

c6 

f7 

40d0 

4b 

20 

50 

55 

4e 

4b 

54 

20 

bb 

Dreiecke. Gestartet wird sie über 

4058 

fb 

a6 

23 

a4 

26 

86 

2 f 

84 

60 

40d8 

33 

00 

00 

00 

00 

00 

00 

00 

Oc 

eine Erweiterungsfunktion des 

4060 

30 

a6 

25 

a4 

28 

86 

23 

84 

Oe 

40e0 

00 

00 

00 

00 

00 

00 

00 

00 

el 

Programms. Bitte mit dem MSE 

4068 

26 

20 

42 

a9 

a6 

2f 

a4 

30 

3b 

40e8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

(Seite 159) eingeben. 


110 opt 00 

630 frottab = $b700 ; tabeile fuer farbtausch 

120 *= $4000 

640 makromem = $0800 ; makro 

130 : 

650 xspei = $0900 ; x/y Speicher bei 

140 : 

660 yspei * $0a00 ; fill ... 

150 zoommoeg = 210 ; flag ob zoom moeglich, muss 

670 : 

bei erweiterung 1 sein 

680 menuon = $1000+3 i Sprung in's 

160 : 

menue (=brk) 

170 inl = 217 ; Zwischenspeicher 

690 plmust = $9000+30 ; plot routinen 

180 in2 = 219 ; zum Indizieren 

700 plotpr = $9000+33 ; fuer muster. 

190 : 

prioritaeten 

200 mrk = 221 ; Zwischenspeicher 

710 plpins = $9000+48 ; pinselform 

210 in3 = 222 ; 

720 plopen = $9000+75 ; linien 

220 : 

730 : 

230 posix = 225 ; Position des Cursors 

740 gettas = $9000+78 ; Taste einiesen und auf 

240 posiy = 226 ; wird in irq-routine gesetzt 

Taste >>Pfeil links << 

250 button = 238 ; l=knopf gedrueckt 0=nieht 

und >> Pfeil oben< < 

260 korx = 239 ; x/y koordinate bei 

testen 

270 kory = 240 ; linien/bloecken 

750 plot = $c000+9 ; punkt setzen 

280 : 

760 drunten = $c000+36 ; sprites unten loeschen 

290 fire = 251 ; 1 nachdem knöpf gedrueckt 

770 textpr = $c000+39 ; text in sprites ausgeben 

(von irq gesetzt) 

780 exorline = $c000+51 ; linie invertieren 

300 : 

790 waitout = $c000+120 ; bitte warten ausgeben 

310 korx2 = 23 ; x/y koordin. bei 

800 comsub = $a900+57 ; Statuszeile ausgeben 

320 kory2 = 24 ; linien ... 

und tastaturabfrage 

330 : 

810 lflash = $a900+63 ; linie blinken 

340 xl = 35 ; Zwischenspeicher fuer 

820 ldraw = $a900+66 j linie ziehen 

350 x2 = 36 ; x/y kootrdinaten bei 

830 befinit = $a900+87 ; allgemeine 

360 x3 = 37 ; verschiedenen befehlen 

Initialisierung 

370 yl = 38 

840 malnsub = $7000+18 ; UND0 vorbereiten 

380 y2 = 39 

etc. 

390 y3 = 40 

850 : 

400 x4 = 47 

860 Jsr mainsub ; sollte immer 1. bef. einer 

410 y4 = 48 

erw. sein, schaltet grafik ein 

420 x5 = 49 

usw 

430 x6 = 50 

870 inc zoommoeg j verhindert einschalten des 

440 y5 = 51 

zoom-fensters 

450 y6 = 52 

880 : 

460 in4 = 53 

890 dreieck Idx # < textl 

470 in5 = 55 

900 ldy # > textl 

480 in6 = 57 

910 Jsr befinit ; textausgabe in sprites und 

490 x7 = 59 

initialisierung 

500 y7 = 60 

920 : 

510 x8 = 61 

930 loopl jsr comsub j comsub gibt Statuszeile 

520 y8 = 62 

aus, fragt editortasten ab 

530 : 

931 ; und prueft auf Sprung in 

540 : 

untermenues mit f-tasten 

550 sintab = $ae00 ; sinuswerte 

oder e/f/m/s/o 

560 priofeld = $af00 ; prioritaetentabelle 

940 lda fire ; wurde feuerknopf inzwischen 

570 strimust = $b000 ; linien stricheln muster 

gedrueckt 

580 stribytes = $b060 ;aktuelles muster 

950 beq loopl ; nein, dann weiter 

(linien str.) 

960 : 

590 patterns = $b080 ; fuellmuster 

970 dec fire ; knopfflag =0 

600 fapinsel = $b480 j farbpinsel 

980 ldx posix 

610 pbrei = $b05e ; groesse des farbpinsel 

990 ldy posiy ; aktuelle pfeilposition 

620 phoeh = $b05f ; hoehe/breite 

1000 stx xl j merken 
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1010 sty yl 




1^80 ldy y3 

1020 : 




1390 stx xl 

1030 ldx # < text2 ; naechten text 




1400 sty yl 

1040 ldy # > text2 ; ausgeben 




1410 jsr ldraw ; linie ziehen 

1050 jsr textpr 




1420 ldx x4 

1060 : 




1430 ldy y4 

1070 loop2 Jsr comsub 




1440 stx x2 ; zuruekholen 

1080 ldx posix 




1450 sty y2 

1090 ldy posiy ; Position merken 




1460 jsr ldraw ; und zweite linie ziehen 

1100 stx x2 




1470 jmp dreieck ; weitere drelecke zeichnen 

1110 sty y2 




1480 : 

1120 jsr lflash ; linie von xl/yl zu x 2 /y 2 einmal 


1490 fladrei ldx xl ; zwei llnien invertieren 

blinken 




1500 ldy yl ; xl/yl - x3/y3 

1130 lda flre 




1510 stx korx ; und x2/y2 - x3/y3 

1140 beq loop2 




1520 sty kory 

1150 : 




1530 ldx x3 

1160 dec fire 




1540 ldy y3 

1170 jsr ldraw ; linie von xl/yl 

zu x 2 /y 2 



1550 stx korx2 

ziehen 




1560 sty kory2 

1180 ldx # <text3 




1570 jsr exorline 

1190 ldy # > text3 




1580 : 

1200 jsr textpr 




1590 ldx x2 

1210 : 




1600 ldy y2 

1220 loop3 jsr comsub 




1610 stx korx 

1230 ldx posix 




1620 sty kory 

1240 ldy posiy ; position merken 




1630 ldx x3 

1250 stx x3 




1640 ldy y3 

1260 sty y3 




1650 stx korx2 

1270 jsr fladrei ; siehe unten 




1660 sty kory2 

1280 jsr fladrei 




1670 jsr exorline 

1290 lda fire 




1680 rts 

1300 beq loop3 




1690 : 

1310 : 




1700 textl byt l,49,3:asc dreieck punkt a:byt 0 

1320 dec fire 




1710 text2 byt l,49,3:asc dreieck punkt b:byt 0 

1330 ldx xl 




1720 text3 byt 1,49,3:asc dreieck punkt c:byt 0 

1340 ldy yl ; xl/yl merken 

1350 stx x4 




Listing 31. Der kommentierte Source-Code 

1360 sty y4 

1370 ldx x3 


6*ER 

OT 

von Listing 30. So muß eine Erweiterung zu AMICA 

Fal.it aussehen. 


10 N1*="A.PAINT PI" 

<229> 


): M*="" 

< 133> 

15 U=8:D=0 

<093> 

350 

C=B: GOSUB 210: C=A: GOSUB 210 

< 119> 

60 PRINT "BITTE AMICA-PAINT DISK IN LAUFWE 


360 

PRINT "(DOWN.SPACETHEX: (2SPACE>";M*:"( 


RK B EINLEGEN UND TASTE DRUECKEN" 

< 135 > 


4SPACETDECIMAL: ":B*F+A 

< 170 > 

65 POKE 19B,0:WAIT 198.1 

<037> 

390 

J=LEN(N*>: IF J=V THEN 410 

< 210 > 

80 N*=N1*:P=44800 

< 175> 

400 

FOR X=J+1 TO V:N*=N*+CHR*(160):NEXT 

< 171 > 

110 V=16: Q=32s F=256: N*=LEFT*<N*.V> 

< 147> 

410 

OPEN 1.U.15: OPEN 2.U.2."#" 

<007> 

120 H*="01234567B9ABCDEF": Z*=CHR*<0> 

<002> 

420 

GOSUB 620: T=18: S=1 

<010> 

130 T*=RIGHT*(STR*(D>.1): OPEN l.U,15."I"+ 


430 

PRINT#1."Ul:";2;D:T:S: GOSUB 620 

< 166 > 

T*: GOSUB 620 

< 148 > 

440 

PRINTttl."B—P:";2s 0: GET#2.A*.B* 

< 161 > 

140 ... OPEN 2.U.2.T*+".P.R" 

<012> 

450 

T=ASC(A*+Z*>: S=ASC<B*+Z*>: H=2 

<102> 

150 INPUTttl.E.Mt.J.K: IF E=0 THEN 240 

<091 > 

460 

PRINTttl."B—P:";2:H: GET#2.T* 

<156> 

160 CLOSE 1: CLOSE 2s PRINT "(DOWN.SPACE>P 


470 

C=ASC(T*+Z*) : IF CO130 THEN 510 

<234> 

ROGRAMM "; N*: 

<249> 

480 

GET#2.A*.B*: F*="": FOR X=1 TO V 

<06B> 

170 IF E=62 THEN PRINT " NICHT GEFUNDEN "s 


490 

GET#2.T*: F*=F*+T*: NEXT 

<163> 

GOTO 200 

< 104> 

500 

IF F*=N* THEN 530 

<241 > 

180 IF E=64 THEN PRINT " FALSCHER FILETYP" 


510 

H=H+Q: IF H<F THEN 460 

< 192> 

s GOTO 200 

< 117> 

520 

GOTO 430 

<012> 

190 PRINT "(DOWN.SPACE>DISK READ-ERROR"sEs 


530 

A=ASC(A*+Z»): B-ASC(B#+Z*> 

< 184> 

END 

<173> 

540 

PRINTttl."Ul:":2:D:A:B: GOSUB 620 

< 106> 

210 J»INT(C/V>: K-C-J*V 

< 122> 

550 

PRINTttl."B-P:" : 2:2: PRINTtt2.P*: 

< 112> 

220 M*=M*+MID*(H*,J+1,1 ) +MID* (H*.K+1. 1 > 

< 144 > 

560 

PRINTttl."U2:":2:D:A:B: GOSUB 620 

<255> 

230 RETURN 

<032> 

570 

CLOSE 2: GOSUB 620: CLOSE 1 

<250> 

240 GETtt2.A*.B*: IF ST THEN 190 

<023> 

610 

PRINT"FERTIG ! AMICA-PAINT KANN NUN GES 


250 CLOSE 2: CLOSE 1: M*="" 

< 191 > 


TARTET(3SPACE > WERDEN ": END 

<008) 

260 A=ASC(A*+Z*> : B=ASC<B*+Z*) 

< 16B> 

620 

INPUTttl.E.M*.J.K:IF E=0 THEN RETURN 

<207> 

270 C=B: GOSUB 210: C=A: GOSUB 210 

<039> 

630 

PRINT "(DOWN.SPACETERROR: ";E:M*:J:K 

< 114> 

280 PRINT"(DOWN>DIE STARTADRESSE VON ":N*: 


640 

CLOSE 2: CLOSE 1: END 

<055> 

" IST: ": 

< 158> 




290 PRINT"(DOWNJHEXADEZIMAL: ":M*;" DEZIMA 





L:(2SPACE }": B«F+A 

300 PRINT"UND WIRD GEAENDERT AUF DEZIMAL: 

<245> 

Listing 32 »CHANGE«. Mit diesem Programm wird die 

": P 

< 116> 

Startadresse von »A.PAINT PI« auf den richtigen Wert 

340 B=INT(P/F) : A=P-B*F: P*=CHR* ( A>+CHR*(B 


(SAF00) geändert. Bitte mit dem MSE eingeben. 
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In diesem Kurs lernen Sie, wie man Gra¬ 
fikroutinen programmiert. Es werden Ih¬ 
nen viele Tricks und Programmierkniffe 
gezeigt, mit denen die Routinen ausge¬ 
stattet sind. Als Resultat bekommen Sie 
eine leistungsfähige Basic-Erweiterung 
und Assembler-Know-How vom Feinsten. 


G rafiken verbessern und verschönern jedes Pro¬ 
gramm. Leider bietet dazu das Commodore-Basic 
V2.0 keine Befehle. Um Grafiken wie in Bild 1 zu 
verwirklichen, kommt man also kaum darum herum, in As¬ 
sembler programmieren zu können. Die einfachste Lösung 
ist es, eine Basic-Erweiterung zu schreiben, die dem Basic 
V2.0 einige Grafikbefehle hinzufügt. Und genau das ist das 
Leitmotiv dieses Kurses, eine Basic-Erweiterung mit Gra¬ 
fikbefehlen. 

Die Voraussetzungen für diesen Kurs sind grundlegende 
Assemblerkenntnisse und vor allem Interesse an Grafik. 
Während dieses Kurses sollen Sie lernen, was ein Raster¬ 
zeileninterrupt ist, wie man ihn sinnvoll einsetzt und pro¬ 
grammiert, die Umsetzung eines Algorithmus in Assem¬ 
bler, Programmieren nach Datenflußplänen und Assem¬ 
bler-Arithmetik - keine Angst, das alles ist einfacher als es 
sich anhört. 

Das Ergebnis des Kurses, die Basic-Erweiterung mit 
sämtlichen Befehlen, bekommen Sie nachfolgend, damit 
Sie das neu Erlernte sofort anwenden können. Der ganze 
Sourcetext (Listing 1) befindet sich auch auf der Programm¬ 
service-Diskette. Der Sourcetext hat das Format des neuen 
Makroassemblers »Giga-Ass« aus Sonderheft 21. 

Die neuen Befehle 


Geben Sie die Basic-Erweiterung »Split-Screen« bitte mit 
dem MSE (Seite 159) ein (Listing 2). Die Erweiterung wird 
mit 

LOAD "SPLIT-SCREEN'',8,1 <RETURN > 

geladen und mit SYS 49152 gestartet. Dabei wird der freie 
Basic-Speicherplatz wegen des Platzbedarfs der Bitmap 
von 8 KByte auf $7FFF zurückgesetzt. Die programmtech¬ 
nischen Daten befinden sich in Tabelle 1. Es stehen Ihnen 
nun folgende neue Befehle zur Verfügung: 


erhaltet in den oberen 12 Zeilen die hochauflösende 
atik o.n, die letzten 13 Zeilen bleiben Textbildschirm. 
Gleichzeitig wird dieser gelöscht und der Cursor in der 12. 
Zeile positioniert. Die Hintergrundfarbe im Grafikfeld ist 
schwarz, die Zeichenfarbe hellgrün. Bild 1 zeigt diese ge¬ 
mischte Text-/Grafikdarstellung. 

TEXT: Es wird vom geteilten Grafikbildschirm auf den nor¬ 
malen Textbildschirm geschaltet. 


Tabelle 1. Die 
Speicherbelegung 
bei aktivierter 
Basic-Erweiterung 


Inhalt 

Bereich 

Basic-Erweiterung 

ScOOO - $c622 

Bitmap (eigentlich) 

$8000 - $9fff 


$8000 - $8eff 

Video-RAM 

$a000 - $a3ff 

Freier Basic- 

$0800 - $7ff( 

Speicherplatz 



GCL: Dieser Befehl löscht den Grafikbildschirm, das heißt 
die Bitmap wird mit dem Wert 0 überschrieben. 

SET, X, Y: Es wird ein Punkt an der Stelle (X/Y) gesetzt. Die¬ 
ser Befehl bezieht sich auf den geteilten Bildschirm, in wel¬ 
chem nur in den oberen zwölf Zeilen Grafik dargestellt wer¬ 
den kann. 

Dabei gilt: 

0 < X < 319 
0 < Y < 95 

ERASE, X, Y: Der Punkt (X/Y) wird gelöscht. Man muß auch 
hier den Definitionsbereich der Koordinaten einhalten (sie¬ 
he SET). 

LINE, XI, Y1, X2, Y2: LINE zieht eine Linie von dem Punkt 
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1 (X1/Y1) bis zu dem Punkt 2 (X2/Y2). Die Koordinaten müs¬ 
sen gemäß dem Definitionsbereich verwendet werden. 

CHAR, Zeile, Spalte, String, Richtung: Es wird ein String, 
in Form einer Stringvariable oder einem in Anführungszei¬ 
chen eingeschlossenen Text, in das Grafikfeld geschrie¬ 
ben. »Zeile« und »Spalte« geben die Position im Grafikbe¬ 
reich an. Man muß sich vorstellen, daß über die Grafik ein 
Rastergitter gelegt wird, wie es beim Textbildschirm der Fall 
ist. Daraus ergeben sich folgende Koordinateneinschrän¬ 
kungen: »Spalte« muß zwischen 0 und 39 liegen, »Zeile« 
zwischen 0 und 11. »Richtung« gibt die Schreibrichtung an. 
Bei 0 wird waagrecht, bei jedem anderen Wert wird senk¬ 
recht geschrieben. 


Formate, wie z.B. von Hi-Eddi 
und Hardmaker, werden problem¬ 
los in den Grafikspeicher übernommen. 

Wenn das File kürzer als 16 Blöcke ist, wird 
der Ladevorgang bei EOF (End of File) abgebrochen. 
Files, die länger als 16 Blöcke sind, werden nur bis $0F00 
Bytes eingeladen. Während des Ladevorgangs muß eben¬ 
falls in den Textbildschirm geschaltet werden. 

OFF: schaltet die Basic-Erweiterung wieder aus. Sie kann 
aber jederzeit durch »SYS 49152« ohne Programmverlust 
wieder initialisiert werden. 

Was macht der IRQ-Befehl? 


HC: gibt eine Hardcopy des Grafikfeldes auf einem Epson 
(-kompatiblen) Drucker mit Sekundäradresse 1 aus. Wäh¬ 
rend diesem Befehl muß auf den Textbildschirm geschaltet 
werden, da sonst ein Absturz unvermeidbar wäre. Die Se¬ 
kundäradresse wird so geändert: 

POKE 50360,SA : REM SA = Sekundäradresse 



Bild 1. Solche Bilder können mit »Split-Screen« verwirklicht 
werden. Der geteilt Bildschirm ist kein Problem. 


SA," Filename ": Die Grafik wird auf Diskette als ein PRG- 
File mit Startadresse $8000 gespeichert und belegt 16 
Blöcke. Auch hier muß auf den Textbildschirm geschaltet 
werden, um einem Absturz vorzubeugen. 

LO,"Filename": Eine unter diesem Filenamen gespei¬ 
cherte Grafik wird von der Diskette geladen. Die normalen 


So, nun wären alle neuen Befehle erklärt und wir können 
mit dem Programmieren beginnen. Unser erstes Projekt ist 
die Verwirklichung des IRQ-Befehls. Erinnern wir uns noch 
einmal, was dieser Befehl im einzelnen ausführt: In dem 
oberen Bildschirmbereich, von Zeile 0 bis Zeile 11, wird die 
hochauflösende Grafik eingeschaltet. Der untere Bild¬ 
schirmbereich bleibt als Textbildschirm. Anschließend wird 
das Video-RAM und der Textbildschirm gelöscht und der 
Cursor in die 12. Zeile positioniert. 

Wie Sie sicher wissen, benötigt man für die hochauflö¬ 
sende Grafik einen Speicherplatz von 8 KByte. Es stellt sich 
nun die berechtigte Frage, wo wir die Bitmap, den Speicher¬ 
bereich für die hochauflösende Grafik, hinlegen. Die platz¬ 
sparenden Bereiche unter dem ROM, also von $A000- 
$BFFF oder $E000-$FFFF, eignen sich nicht, da auf diese 
nur unter Ausschaltung des Interrupts lesend zugegriffen 
werden kann. Der Interrupt wird aber zum Darstellen des 
geteilten Bildschirms benötigt. Wir benützen deshalb den 
Bereich von $8000-$9FFF, weil dieser unseren Anforderun¬ 
gen entspricht und dennoch nicht zuviel freien Basic- 
Speicher wegnimmt. Für das Video-RAM, das im selben 
16-KByte-Bereich ($8000-$BFFF) liegen muß, verwenden 
wir den Bereich von $A000-$A3FF. Auf das Video-RAM wird 
nur schreibend zugegriffen, deshalb kann es sich ohne wei¬ 
teres unter dem ROM befinden. Wir haben nun alle Grund¬ 
lagen, um die hochauflösende Grafik für den ganzen Bild¬ 
schirm ein- und auszuschalten. Für die klare und übersicht¬ 
liche Gestaltung des Sourcetextes werden »Makros« ver¬ 
wendet. Wenn Sie nicht wissen, was ein Makro ist, so lesen 
Sie bitte den Textkasten 1. Die Definition unseres ersten 
Makros »GRA«, das die Grafik einschaltet, finden Sie in den 
Zeilen 2200 bis 2270 (Listing 1). Es wird zuerst der Bitmap- 
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Modus eingeschaltet, danach wird der Bereich des Video- 
RAM festgesetzt und schließlich der zweite 16-KByte- 
Bereich (man zählt von null bis drei) selektiert. In der 64'er- 
Ausgabe November 1987 können Sie nocheinmal die 
grundsätzliche Belegung der VIC-Register nachlesen. In 
den Zeilen 2290 bis 2360 wird das Makro »TXT«, das die 
hochauflösende Grafik wieder ausschaltet und den norma¬ 
len Textbildschirm aktiviert, definiert. Als erstes wird der 
Bitmap-Modus ausgeschaltet, danach wird das Video- 
RAM, das nun den Textbildschirm repräsentiert, nach 
$0400 (=1024) gelegt und der 16-KByte-Bereich Nummer 
Null angewählt. 

Als weiteres Makro definieren wir »VRAM«, welches das 
Video-RAM löscht. Dieses befindet sich in den Zeilen 2380 
bis 2520. Zuerst muß man wissen, was »Video-RAM lö¬ 
schen« eigentlich heißt: Im Video-RAM stehen die Farbin¬ 
formationen für Hintergrund- und Zeichenfarbe. Durch die 
Verknüpfung »Zeichenfarbe * 16 + Hintergrundfarbe« er¬ 
hält man einen Wert, der für 64 Pixel (Pixel = Punkte der 
hochauflösenden Grafik) relevant ist. Das Video-RAM zu 
löschen bedeutet also nichts anderes, als es mit dem er- 
rechneten Wert zu überschreiben. Für hellgrüne Zeichen¬ 
farbe und schwarzem Hintergrund ergibt sich der Wert 208, 
den wir verwenden werden. Sind Sie mit dieser Farbkombi- 
nation nicht zufrieden, dann können Sie in den Source-Text 
einen anderen Wert einsetzen und neu assemblieren. Viel 
einfacher ist es dagegen, den Objektcode »Split-Screen« 
zu laden und dann folgenden Befehl einzugeben: 

P0KE 49388, Zeichenfarbe * 16 + Hintergrundfarbe 

Mit einem Monitor können Sie die neue verbesserte Ver¬ 
sion wieder speichern. Beachten Sie aber dabei, daß der 
Monitor nicht im Bereich von $C000 bis $C622 liegt, da er 
sonst unser Programm überschreiben würde. Mit dem 
SMON lautet der Befehl zum Speichern: 

.S"SPLIT-SCREEN.NEU'' C000 C622 



Bild 2. Diese Bildschirmkoordinaten existieren für den C64 

Bei der Umsetzung dieses Makros in Maschinensprache 
verwenden wir die Zeropage, die in sich in diesem Fall we¬ 
gen der Geschwindigkeit und Einfachheit hervorragend 
eignet. Zuerst wird die Adresse des Video-RAMs ($A000) in 
die Zeropage-Speicherstellen »helpl« und »help2« kopiert, 
ln einer nachfolgenden verschachtelten Schleife wird das 
Video-RAM mit dem Wert 208 völlig überschrieben. Als 
Schleifenindex fungieren die beiden Prozessor-Register X 
und Y. Im Akku ist der Wert des Video-RAM enthalten. Der 
innere Schleifenindex Y muß zu Schleifenbeginn nicht auf 


null gesetzt werden, da er durch das letzte »LDY« in 2430 
schon auf null gesetzt wurde. Die Reihenfolge des Kopie- 
rens darf deshalb nicht verändert werden, da Y sonst einen 
falschen Startwert enthalten würde. Der äußere Schleifen¬ 
index X wird von vier nach null gezählt. Sind beide Schlei¬ 
fen vollständig durchlaufen, dann ist das Video-RAM ge¬ 
löscht. 

Das letzte Makro ist das Setzen des Cursors in die zwölfte 
Zeile (Zeile 2540 bis 2600). Um den Cursor in eine bestimm¬ 
te Position zu setzen, müssen in den Zeropagespeicher¬ 
stellen $D6 und $D3 die Zeile und Spalte der Position ent¬ 
halten sein. Danach wird die Interpreterroutine »CURSOR« 
($E510) aufgerufen. Da dies die letzte Aktivität des IRQ- 
Befehls ist, ersetzt man das »JSR CURSOR« und das nach¬ 
folgende »RTS« durch ein »JMP CURSOR«. 

Jetzt besteht nur noch das Problem, festzusetzen, wann 
die hochauflösende Grafik ein- beziehungsweise ausge¬ 
schaltet wird. Sehen wir uns dazu den Bildschirmaufbau in 
Bild 2 an. Die mit A und B gekennzeichneten Koordinaten 
stellen die Koordinaten des Textbildschirms dar. Die Koordi¬ 
naten C und D sind für die hochauflösende Grafik zustän¬ 
dig. Doch es gibt noch eine Größe, die Rasterzeilen (E). Der 
VIC-Chip kennt nur Rasterzeilen, die Werte von 0 bis zirka 
290 annehmen. Bei Rasterzeile 48 beginnt das Bildschirm¬ 
fenster und endet bei der Rasterzeile 247. Wir können fol¬ 
genden Zusammenhang feststellen: 

Grafikzeile = Rasterzeile - 48 
Textzeile = INT ((Rasterzeile - 48)/8) 

Der Rasterzeilen-Interrupt 


Nun bietet uns der VIC-Chip die Möglichkeit, bei einem be¬ 
stimmten Ereignis einen Interrupt auszulösen. Aber was ist 
nun ein Interrupt? Bei bestimmten Ereignissen - das kann 
der CiA-Ghip oder der VIC-Chip sein - wird ein Interrupt 
ausgelöst. Das heißt die normale Prozessor-Tätigkeit wird 
unterbrochen (engl. Interrupt = unterbrechen), der Inhalt 
der Register auf dem Stack zwischengespeichert und in 
die Interruptroutine verzweigt. Der Vektor in $0314/$0315 
gibt die Startadresse der Interrupt-Routine (normalerweise 
$EA31) an. Ist die Interrupt-Routine abgearbeitet, so müs¬ 
sen die alten Registerinhalte (Akku, X, Y und Status) vom 
Stack zurückgeholt werden und es erfolgt ein »RTI« (ReTurn 
from Interrupt). Der RTI-Befehl arbeitet ähnlich wie der 
RTS-Befehl: er holt vom Stack die Ausgangsadresse des 
ursprünglichen Programms, beendet den Interrupt und 
springt schließlich an die Ausgangsadresse. Das Ende der 
normalen Interrupt-Routine ($EA81) übernimmt für uns die 
Wiederherstellung der alten Registerinhalte. 

Technisch gesehen ist ein Interrupt ein Impuls am IRQ- 
Pin des Prozessors. Deshalb wird der Begriff Interrupt oft 
mit »IRQ« abgekürzt. 

Wie schon vorher erwähnt, gibt es verschiedene Ereig¬ 
nisse, die einen Interrupt auslösen. Der CIA löst im Normal¬ 
fall alle ’/eo Sekunde einen Interrupt aus, um Tastatur¬ 
eingaben abzufragen, den Cursor darzustellen und die in¬ 
terne Uhr fortzuzählen. Die Periode, bei der ein Interrupt 
ausgelöst wird, kann zusätzlich noch verändert werden. Im 
CIA-Register $DC05 ist enthalten wie oft ein Interrupt auf¬ 
gerufen wird (Inhalt: $3A = 60 mal in der Sekunde; $00 = 
extrem oft; $F0 = sehr wenig; $FF = gar nicht). Weiterhin 
bietet der VIC-Chip die Möglichkeit, bestimmte Ereignisse, 
die einen Interrupt auslösen, abzufragen. Hier gibt es 
mehrere Ereignisse: den Rasterzeilenstrahl, Sprite-Sprite- 
Kollision, Sprite-Hintergrund-Kollision, den Lightpen. Nun 
haben wir die Lösung unseres Problems - den Rasterzei- 
len-lnterrupt. Wir lösen im oberen Rand einen Rasterzei¬ 
leninterrupt aus und schalten somit die Grafik ein. Im näch¬ 
sten Rasterzeilen-Interrupt wird vom Grafik- auf den Text- 
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bildschirm geschaltet. Wenn Sie über die anderen drei VIC- 
Interrupt-Ereignisse mehr wissen wollen, so lesen Sie bitte 
den Artikel »Die Interrupts des Videocontrollers« aus der 

64’er- Ausgabe Mai 1987. 

Unsere Umschaltstelle von Hires (Hlgh-RESolution = 
hohe Auflösung) nach Lores(LOw-RESolutione = niedrige 
Auflösung) soll bei der 11. und 12. Textbildschirmzeile ge¬ 
schehen. Das entspricht der Rasterzeile 146. Bei der Ra¬ 
sterzeile 0, das ist im oberen Bildschirmrand, werden wir 
von Lores nach Hires schalten. 

Die Möglichkeiten der Systemunterbrechungen, also In¬ 
terrupts, verwalten die VIC-Register 25 und 26. In Register 
26, »Interrupt-Enable Register« (manchmal auch »Interrupt- 
Mask Register« (IMR) genannt), stehen die Informationen, 
ob ein VIC-lnterrupt ausgelöst werden soll, und wenn ja, 
welche Ereignisse diesen bewirken können. In Bild 3 sehen 
Sie die genaue Belegung der Bits. Die Bits 0 bis 3 geben 
die Interruptquellen an, und in Bit 7 wird angegeben ob 
überhaupt ein Interrupt ausgelöst werden soll. Bei einem 
gesetzten 7. Bit muß unbedingt noch eines der Bit 0 bis 3 
als Interruptquelle gesetzt sein. Um den Rasterzeilen- 
Interrupt freizugoben, müssen wir den binären Wert 
%10000001 in dieses Register schreiben. Das VIC-Regi¬ 
ster 25, »Interrupt Request Register« (IRR) wird nach jedem 
Auslösen eines Interruptes vom VIC selbständig gesetzt. 
Das Interrupt-Request-Register hat dabei dieselbe Bitbele¬ 
gung wie das Interrupt-Enable Register. Durch ein »BMI« 
oder ein »BPL« kann so festgestellt werden, ob der Interrupt 
vom VIC oder CIA ausgelöst wurde. Ein gesetztes 7. Bit be¬ 
stätigt die Auslösung des Interrupts durch den VIC. Mit wei¬ 
teren Bitverknüpfungen kann man dann noch die genauere 
Interrupt-Ursache klären. Da dieses Register nach dem 
Auslösen des Interrupts nicht selbständig gelöscht wird, 
muß dies unbedingt vom Programmierer in der Interrupt- 
Routine vollzogen werden. Das Register wird durch einfa¬ 
ches Auslesen und wieder Zurückschreiben gelöscht: 

lda reqirq ; Request Interrupt 
sta reqirq ; löschen 

Würde man das Löschen vergessen, so würde nach 
Beendigung der Interrupt-Routine diese sofort wieder auf¬ 
gerufen werden, was letztendlich einen Systemabsturz zur 
Folge hätte. 

Als erstes initialisieren wir unsere neue Interrupt-Routine 
(Zeile 2740 bis 2940). Dazu muß natürlich der Interrupt aus¬ 
geschaltet sein (Zeile 2740). Im nächsten Punkt wird der 
Vektor $0314/$0315, in dem die Startadresse der Interrupt- 
Routine steht, auf unsere neue Routine verbogen (Zeile 
2760-2790). Das Label »MAINIRQ« gibt die Startadresse 
der neuen Interrupt-Routine an. 

Alle Register gezogen 


Im VIC-Register 18 ist das LSB (Least Significant Byte = 
Low-Byte) der Rasterzeile enthalten. Das MSB (Most signi¬ 
ficant Byte = High-Byte) ist im VIC-Steuerregister 1 (Regi¬ 
ster 17, $D011) enthalten. Das 7. Bit in diesem Register stellt 
das 9. Bit der Rasterzeile, und somit das MSB, dar. In den 
Zeilen 2810 bis 2850 wird die Rasterzeile als Auslöser des 
Interrupts dem VIC mitgeteilt. In 2830 bis 2850 wird das 9. 
Bit der Rasterzeile gelöscht. In den nächsten beiden Befeh¬ 
len wird der Rasterzeilen-Interrupt als Interrupt-Quelle an¬ 
gegeben. Dies geschieht, wie schon vorher erwähnt, durch 
das Setzen des Interrupt-Enable-Registers auf 
%10000001. Anschließend wird der Timer-Interrupt (Inter¬ 
rupt vom CIA) ausgeschaltet, da es sonst zu Zeitproblemen 
kommen könnte. Damit aber weiterhin Tastatureingaben 

ÜLü* 


und Cursordarstellung möglich ist, wird nach Beendigung 
unserer Interrupt-Routine in die Systeminterrupt-Routine 
verzweigt. Ein Nachteil soll nicht verschwiegen werden: 
Die interne Uhr geht pro Minute um zehn Sekunden nach. 
Das liegt daran, daß der Interrupt nur 50- statt 60mal in der 
Sekunde aufgerufen wird. Durch PRINT TI/50 erhält man 
trotzdem wieder die richtige Uhrzeit, nur auf TIS muß ver¬ 
zichtet werden. 

Eigentlich wäre der Interrupt nun initialisiert, es fehlt nur 
noch ein »CLI«, das in Zeile 2940 (siehe Listing 1) den Inter¬ 
rupt wieder erlaubt. 


Register 25 und 26: IRR,IMR 


Bitnr. 


7 

6 

5 

4 

3 

2 

1 

0 


IRQ 

unbenutzt 

unbenutzt 

unbenutzt 

IRQ durch 

IRQ durch 

IRQ durch 

IRQ durch 


von 




Llghtpen- 

Sprit«- 

Sprite- 

Röster- 


VIC 




Impuls 

Sprite 

Hinter- 

zelle 







Kollision 

grund 









Kollision 


Inhalt 









Bild 3. Die Bit-Belegung der VIC-Register 25 (IRR) und 26 
(IMR). Sie steuern die Interrupt-Behandlung. 


Den Abschluß des IRQ-Befehls bildet das Löschen des 
Textbildschirms und des Video-RAM sowie das Setzen 
des Cursors. Durch den Aufruf der Interpreterroutine 
»CLRSCR« (SE544) wird in Zeile 2980 der Textbildschirm 
gelöscht. Mit Hilfe der vorher definierten Makros wird das 
Video-RAM gelöscht und der Cursor gesetzt. Durch das 
Cursor-Setzen wird gleichzeitig die Routine beendet. 

Die neue Interrupt-Routine 


Den letzten Teil des IRQ-Befehles bildet die veränderte In¬ 
terruptroutine. Diese beginnt ab dem Label »MAINIRQ« in 
Zeile 3040. Zuerst wird durch »SEI« der Interrupt verhindert, 
so daß kein weiterer Interrupt unser Umschalten stören 
kann. Wie wir bereits wissen, müssen wir das Interrupt Re¬ 
quest Register löschen und die Art des Interrupts prüfen 
(Zeile 3050 bis 3070). Wenn das 7. Bit gesetzt ist, dann wird 
zur Rasterzeilen-Interrupt-Routine gesprungen; ein ande¬ 
res VIC-Ereignis haben wir nicht freigegeben. Andernfalls 
kann der Interrupt nur vom CIA 1 gekommen sein und wir 
müssen deshalb das CIA 1 Kontroll-Register durch Ausle¬ 
sen löschen. Danach wird der Interrupt wieder zugelassen 
und in das Ende der normalen Interrupt-Routine ($EA81) 
verzweigt (Rücksetzen der alten Register). Sie werden sich 
sicher wundern: Wie kann denn ein CIA-Interrupt ausgelöst 
werden, obwohl wir diesen in der Initialisierung ausge¬ 
schlossen haben. Nun, theoretisch und auch praktisch 
kann kein CIA-Interrupt kommen; aber sollte später irrtüm¬ 
lich von Basic (durch einen POKE) oder von Assembler der 
CIA-Interrupt wieder zugelassen werden, dann hätte das 
fatale Folgen: Flackern und Systemabsturz. Die Abfrage 
verhindert dann ein Flackern und einen Systemabsturz. 
Und wenn ein »verirrter« Interrupt kommt, dann wird er so¬ 
fort wieder beendet. 

Zu Beginn der Rasterzeilen-Interrupt-Routine sperrt si¬ 
cherheitshalber ein »SEI«-Befehl weitere Interrupts, die un¬ 
seren geteilten Bildschirm nur stören würden (Zeile 3140). 
Anschließend liest man das Rasterzeilen-Register aus (Zei¬ 
le 3150), um zu prüfen, welche Rasterzeile den Interrupt 
ausgelöst hat. Je nachdem müssen wir die hochauflösen¬ 
de Grafik ein- oder ausschalten. Befinden wir uns gerade 
in der 0. Rasterzeile (Zeile 3170), dann schaltet das Makro 
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der VIC zwar die Informationen für Hires, aber nicht für Lo- 
res. Da der VIC somit keine Daten für diese Textzeile be¬ 
sitzt, stellt er den Rest dieser angefangenen Textzeile in ei¬ 
ner waagerechten gestrichelten Linie dar. Diese Linie kann 
eine Breite von null bis sieben Punkte haben. Im Idealfall, 
nämlich unserem, hat diese Linie die Breite null und ent¬ 
fällt, weil der VIC die Informationen über die nächste Text¬ 
zeile besitzt. Man kann diesen Effekt aber auch ausnützen 
(siehe Bild 4). Von Basic wird die Rasterzeile so verändert: 

POKE 49458,RZ : REM RZ = Rasterzeile 

Das kann auch bei aktivem IRQ-Befehl gemacht werden. 

Ideal für Spiele-Programmierung 


Bild 4. Die gestrichelte Line - eine wenig bekannte Eigen¬ 
schaft des VIC 

»GRA« die Grafik ein (Zeile 3190). Die nächste Rasterzeile, 
die einen Interrupt verursachen soll, ist die 146. Rasterzeile, 
denn dort wird wieder der Textbildschirm aktiviert. Die Zei¬ 
len 3210 bis 3250 übermitteln dies.es Ergebnis den VIC- 
Registern. »CLI« gibt in die Zeile 3270 den Interrupt wieder 
frei. An dieser Stelle verläßt man die veränderte Interrupt- 
Routine durch einen Sprung zur CIA-Interrupt-Routine 
(SEA31) (Zeile 3280). Das ermöglicht Tastatureingaben und 
die Cursordarstellung. 

Wird der Interrupt aber bei der 146. Rasterzeile ausge¬ 
löst, so muß die Grafik ausgeschaltet werden, und die Rou¬ 
tine verzweigt deshalb hach 3300 zum Label »TEXTFE«. 
Dort beginnt eine WarteselUpife (Zeile 3300 bis 3330), die 
so lange »NOPs« ausführt, 'bis der Rasterzeilenstrahl im 
Rand ist. Das vermeidet ein Flackern an der Umschaltstel- 
le. Die Warteschiefe mft ihrem Schleifenindex 
X = 7 muß experimentell ermittelt werden. Wie das ge¬ 
schieht, ist im Textkasten 2 beschrieben. In Zeile 3350 
schaltet das Makro »TXT« die Grafik wieder aus und somit 
den Textbildschirm ein. Die nächste Rasterzeile, die einen 
Interrupt verursacht (0. Rasterzeile: Grafik einschalten), 
wird in den Zeilen 3370 bis 3410 festgelegt. Der Interrupt 
wird nun wieder zugelassen und die Interrupt-Routine 
durch einen Sprung nach $EA81 verlassen (alte Registerin¬ 
halte zurückholen). 

So, nun ist der IRQ-Befehl fertig, und wir haben eine 
Menge über den Rasterzeileninterrupt gelernt, nur eins 
noch nicht: Wie man ihn wieder ausschaltet. 

Deaktivierung des Rasterzeileninterrupts 


Das übernimmt der neue Basic-Befehl TEXT, der folgen¬ 
dermaßen aufgebaut ist: 

Vor irgendwelchen Aktivitäten an Registern oder Vekto¬ 
ren muß selbstverständlich wieder der Interrupt gesperrt 
werden (Zeile 3480). Danach löscht man das Interrupt-En- 
able-Register, das heißt es wird auf Null gesetzt, was zur 
Folge hat, daß kein VIC-lnterrupt mehr ausgelöst wird (Zeile 
3490 bis 3500). Nun wird der alte Inhalt des Interruptvektors 
($0314/30315) wieder hergestellt (Zeile 3520 bis 3550). Er 
zeigt danach auf $EA31. In den Zeilen 3570 und 3580 wird 
der Timer-Interrupt (vom CIA) wieder zugelassen (Uhr geht 
wieder richtig). Anschließend wird durch das Makro »TXT« 
auf den Textbildschirm geschaltet, der Interrupt wieder frei¬ 
gegeben und die Routine beendet (Zeile 3600-3630). 

Und noch ein kleiner Hinweis: 

Alle acht Rasterzeilen holt sich der VIC die Informationen 
der nächsten acht Rasterzeilen. Genau nach unserer Um¬ 
schaltstelle wird diese Aktivität des VIC-Chip ausgeführt. 
Würden wir eine Rasterzeile früher umschalten, dann hätte 


Die Basic-Erweiterung mit ihrem geteilten Bildschirm (engl, 
split screen) eignet sich hervorragend zur Programmierung 
von Text- und Grafikadventures, wie man sie von professio¬ 
nellen Spielen her kennt. Oben stellt man eine Grafik dar, 
im unteren Textfenster wartet das Programm auf Texteinga¬ 
ben des Abenteurers. 


Textka sten 1 _ 

Makros sind meist kürzere Befehlsfolgen, die im Assembler-Quell¬ 
text häufiger Vorkommen und deshalb zu einer Einheit zusammenge¬ 
faßt werden. Zu jedem Makro gehört ein Name, mit dem es aufgerufen 
wird. An jedes Makro lassen sich beliebig viele Parameter übergeben, 
deren aktueller Wert dann bei der Assemblierung eingesetzt wird. 
Makro-Definitionen sind an beliebiger Stelle im Quelltext erlaubt. Alle 
Makro-Namen sind global in dem Sinne, daß innerhalb eines Makros 
jedes andere aufgerufen werden kann. Alle Parameter und Makro¬ 
internen Label sind lokal. Das heißt verschiedene Makros dürfen 
durchaL'. Label gleichen Namens verwenden. Makros machen einen 
Quelltext übersichtlicher, kürzer und besser lesbar. 


Textkasten 2 

Um die Umschaltung Grafik - Text flackerfrei zu gestalten, muß man 
eine Warteschleife einbauen, die so lange -NOPs« (No Operation) 
ausführt, bis der Rasterstrahl im rechten Bildschirmrand ist. Diese 
Warteschleife kann zwei grundsätzliche Formen annehmen: 

1 . Eine Schleife mit »NOPs« 

2. n »NOPs« hintereinander 

Obwohl die zweite Methode genauer ist, verwendet man oft wegen 
der Platzersparnis die Schleife. Um den Schleifenindex beziehungs¬ 
weise »n« ausfindig zu machen, wird ein kleines Rasterzeilenpro¬ 
gramm geschrieben, das die Bildschirm-Hintergrundfarbe wechselt. 
Dabei ist es unbedingt erforderlich, daß dieses Programm genauso 
wie das zu verwirklichende Programm aussieht. Es müssen alle Ab¬ 
fragen gleich vorgenommen werden. Statt der Grafik-Text- 
Umschaltung wird nur die Hintergrundfarbe gewechselt: 

lda #$00 j schwarz 

sta $D021 j VIC-Register für Hintergrundfarbe 
lda #$0A ; hellrot ' 

sta $D021 ; VIC-Register für Hintergrundfarbe 

Man sieht nun deutlich wo die Farbe gewechselt wird, Bild 5 ver¬ 
deutlicht dies. Nun programmiert man vor der Umschaltung auf 
Schwarz eine Warteschleife und beobachtet, wie sich der Punkt P 
nach rechts verschiebt. Hat man nach diesem Schema eine Warte¬ 
schleife entwickelt, bei der der Punkt P In den rechten Bildschirmrand 
gewandert ist, und somit nicht mehr sichtbar ist, ist die Warteschleife 
erstellt. In unserem Fall würden wir statt der Schleifen mit X=7 zirka 
40 »NOPs« benötigen. Derartige Programme sind Listing 3 und 4 
("WAIT.SRC”, "WAIT.OBJ ")• Listing 3 »WAIT.SRC« ist der Sourceco¬ 
de im Giga-Ass-Format, dem neuen Makroassembler aus Sonderheft 
21 . »WAIT.OBJ«, Listing 4, ist der fertige Objektcode von Listing 3. Ge¬ 
ben Sie Listing 4 bitte mit dem MSE (Seite 159) ein. _ 
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Der Befehl »GCL« löscht die Grafik. Aber was geschieht da¬ 
bei im Inneren des Computers? Die Grafik besteht ja be¬ 
kanntlich aus der Bitmap (Bild 6). Das ist der Speicherbe¬ 
reich, in dem die Informationen über die einzelnen Punkte 
enthalten sind. Wie die Bitmap genau aufgebaut ist, erfah¬ 
ren Sie ein wenig später. Vorläufig müssen Sie nur wissen, 
daß jedem Bit in diesem Speicherbereich ein Punkt zuge¬ 
ordnet ist (daher der Name BITmap). Dabei gilt: 

Bit = 1 : Punkt gesetzt 
Bit = 0 : Punkt gelöscht 

Um also alle Punkte zu löschen, müssen alle Bits in der 
Bitmap gelöscht werden, alle Bits erhalten also den Inhalt 
0. So läßt sich sofort ableiten, daß nun auch alle Bytes in der 
Bitmap auf 0 gesezt werden. Wie schon zu Anfang des Kur¬ 
ses erwähnt wurde, liegt unsere Bitmap bei $8000-$9FFF. 
Das Löschen dieses Bereiches übernimmt die Routine von 
Zeile 4040 bis 4180. Dabei wird eine doppelt verschachtelte 
Schleife verwendet. Wie diese aufgebaut ist, wurde schon 
beim Löschen des Video-RAM erklärt. Hier werden aber 
zusätzlich noch ein paar Tricks angewendet. Um auf den 
Speicherbereich schnell und einfach zuzugreifen, verwen¬ 
den wir die »indirekt-indizierte- Adressierungsart der Zero¬ 
page. Dazu müssen die verwendeten Zeropage-Speicher¬ 
stellen erst einmal mit der Anfangsadresse der Bitmap vor¬ 
belegt werden (Zeile 4040 bis 4070). Dieser Vorgang ist nun 
so angeordnet, daß zuerst das High-Byte und dann das 
Low-Byte in die Zeropage geschrieben wird. Diese Reihen¬ 
folge hat den Vorteil, daß anschließend der Akku-Inhalt 
schon 0 ist, damit man sofort mit dem Bitmap-Löschen be¬ 
ginnen kann. Der innere Schleifenindex Y wird durch ein 
einfaches »TAY« (Transfere Akku to Y) auf 0 gesetzt. Nun 
wird die Schleife (Zeile 4090 bis 4160) abgearbeitet. »RTS« 
beendet die Routine (Zeile 4180). 

Punkte setzen und löschen 


Setzen und Löschen von Punkten, das sind die Kernpunkte 
der Grafikprogrammierung. Eine sehr schnelle Maschinen¬ 
sprache-Routine ist hier das nötigste Werkzeug. 

Schauen wir uns zuerst einmal an, wie die Bitmap im In¬ 
neren des Computers aufgebaut ist (siehe Bild 7). Die hoch¬ 
auflösende Grafik belegt einen Speicherplatz von 8 KByte. 
Die hierfür verwendeten Bytes werden von $0000-$1F3F 
durchnumeriert, wobei zu jeder Adresse noch der Startwert 
der Bitmap hinzuaddiert werden muß. Das heißt, liegt der 
Grafikspeicher ab $8000, so befindet sich der Grafikbe¬ 
reich von $8000 bis $9F3F. Das Bild 7 verdeutlicht Ihnen 
den genauen internen Aufbau. 8 Bit sind jeweils zu einem 
Byte zusammengefaßt, wobei jedes Bit einem Punkt der 
Grafik entspricht. 



Bild 5. Der Punkt P zeigt die Umschaltsteile der beiden Hin¬ 
tergrundfarben 


Die ersten 8 Byte in der Bitmap stehen immer untereinan¬ 
der, daneben die nächste Gruppe von 8 Byte. Das geht so 
weiter, bis man am Ende einer Zeile angelangt ist. Nun be¬ 
ginnt man mit der nächsten Zeile, etc. Ein genaues Studie¬ 
ren von Bild 7 macht diesen Sachverhalt deutlicher. 

Da es doch sehr umständlich ist, zu sagen: »setze Punkt, 
Byte $0437, 3. Bit«, ist es bei Computern üblich, die Punkte 
durch eine x- und y-Koordinate zu bestimmen, wie in Bild 
8 zu sehen ist. Die x-Koordinate, die horizontale Achse, be¬ 
sitzt Einheiten von 0 bis 319. Die y-Koordinate, die vertikale 
Achse, wird von oben nach unten mit den Nummern 0 bis 
199 numeriert. Das ist nun der Aufbau einer Bitmap. 

Wir haben aber einen Spezialfall, denn die y-Koordinate 
reicht bei uns nur bis 95 und die Bitmap belegt den Spei¬ 
cherbereich von $8000 bis $8F00. Das ändert aber am Al¬ 
gorithmus und dessen Umsetzung nichts. Nur bei der An¬ 
wendung dieser Routine muß die neue Einschränkung be¬ 
rücksichtigt werden. 


MIT DER ERHEITERUNG "SPLIT-SCREEN" 
LASSEN SICH GRAFIK UND TEXT EINFACH 
UND KOMFORTABEL GLEICHZEITIG DAR¬ 
STELLEN 


Bild b. Uilder wie dieses können mit »Split-Screen« einfach 
und schnell dargestellt werden 

Die Frage, die nun brennend interessiert, ist, wie wandle 
ich diese Koordinaten in das Byte/Bit-System um? 

Jetzt heißt es einen Algorithmus zu finden. Bestimmen 
wir erst einmal die Adresse des Bytes, in dem das Bit liegt, 
welches unseren Punkt darstellen soll. Als erstes ermitteln 
wir, wie viele Bildschirmzeilen übersprungen werden müs¬ 
sen, um zu unserem Punkt zu gelangen. Erinnern wir uns, 
daß pro Zeile 8 Byte immer untereinander stehen. Eine Zei¬ 
le hat 320 X-Werte, also 40 x 8-Byte-Blöcke (320:8=40). Die 
Anzahl der Bildschirmzeilen errechnet sich aus der ganz¬ 
zahligen Division des Y-Wertes durch acht. Im Klartext 
heißt das, den Y-Wert durch acht zu teilen und nur die Vor¬ 
kommastellen zu betrachten. Mathematisch sieht das so 
aus: [Y/8]. Die eckige Klammer steht hier also für die 
Integer-Operation. Multipliziert man das Ganze mit 320, 
sind alle Bildschirmzeilen erfaßt. Bis jetzt haben wir also: 
Byte = [Y/8] *320 + ... 

Im nächsten Schritt ist die Zahl der zu überspringenden 
8-Byte-Blöcke zu bestimmen. Sie errechnet sich durch die 
ganzzahlige Division des X-Wertes durch acht, also [X/8], 
Das Ergebnis muß mit acht multipliziert werden, da wir es 
ja mit 8-Byte-Blöcken zu tun haben. Daraus folgt: 

Byte = [Y/8] *320 + [X/8] *8 + ... 

Nun müssen wir noch berechnen, das wievielte Byte un¬ 
ser gesuchtes ist. Das ist ganz einfach der Rest der Division 
des Y-Wertes geteilt durch acht: Y-[Y/8]*8 
Das Byte hat also die Nummer: 

Byte = [Y/8] *320 + [X/8] *8 + Y-[Y/8]*8 

Aber wir sollten nicht vergessen die Startadresse der Bit¬ 
map zu addieren. Die endgültige Form lautet dann: 

Byte = [Y/8] *320 + [X/8] *8 + Y-[ Y/8] * 8 + Startadresse 
der Bitmap 
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Die Bestimmung des Bits komplettiert unsere Berech¬ 
nung. Der Rest der Division des X-Wertes durch acht muß 
berechnet werden, um festzustellen, an welcher Stelle un¬ 
ser Bit steht. Allerdings werden die Bit von sieben bis null 
- also rückwärts - gezählt (siehe Bild 9). Unser voriges Er¬ 
gebnis müssen wir von sieben abziehen. Als Formel ergibt 
sich: 

Bit = 7 - (X-[X/8]*8) 

Der Algorithmus ist vollständig. Er sieht zwar noch etwas 
kompliziert aus, läßt sich aber bei der Umsetzung in Assem¬ 
bler noch enorm vereinfachen. Einige Arithmetiktricks, mit 
denen wir unsere Routine ausstatten, werden uns dabei 
unterstützen. 

Trkkreiche Assembler-Arithmetik 


Durch dreimaliges »Verschieben« einer binären Zahl nach 
rechts, erhält man das Ergebnis [A/8], mit A = Zahl im Ak¬ 
kumulator (siehe Bild 10). 

Möchte man das Ergebnis von [A/8]*8 binär ermitteln, 
verschiebt man die binäre Zahl einfach dreimal nach rechts 
und anschließend dreimal nach links. Doch bei genauem 
Ansehen des Ergebnisses in Bild 11, stellt man fest, daß nur 
die letzten drei Bit gelöscht wurden. Dasselbe Ergebnis er¬ 
hält man auch, wenn man das Low-Byte mit »AND #$F8« 
($F8 = %11111000) verknüpft. Das High-Byte bleibt unver¬ 
ändert. 

Das binäre Ergebnis von A-[A/8]*8 läßt sich genau an¬ 
dersherum ermitteln. Die letzten drei Bits bleiben erhalten, 


ByreO 
Bywl 
Byte! 
Byta 3 


Byte 4 
’iytaB 


Byte 10 
Byta II 


Dyl« 321 
Byte 333 
Byte 323 


Byta 334 
Byta 325 


Byte 326 
Byte 327 
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Rechenzeit, denn man muß sechs mal 16 Bit verschieben. 
Geht man aber von einem 8-Bit-Wert aus, so kopiert man 
den 8-Bit-Wert in das High-Byte, setzt das Low-Byte auf null 
und dividiert den 16-Bit-Wert durch 4 (denn: A*64 = 
A* 256/4). Das spart Rechenzeit, und da [Y/8]*5 für ein ma¬ 
ximales Y=95 nur 55 ist, also ein 8-Bit-Wert, können wir die¬ 
sen Trick durchaus verwenden. 

Das Ergebnis des Bit-Algorithmus werden wir aus einer 
Tabelle der Zweier-Potenzen auslesen. Damit die Subtrak- 


Bild 8. Koordi¬ 
natensystem des 
Bildschirms 


Bild 9. Interne 
Darstellung 
eines Byte 
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Bild 7. Interner Aufbau einer Bitmap 

und der Rest wird gelöscht. Wir nehmen dazu »AND #$07« 
($07 =%00000111) (siehe Bild 12). 

Jetzt haben wir nur noch ein Problem: 

Die Multiplikation mit 320. Dazu bedienen wir uns einer 
algebraischen Umformung: 

A*320 = A*5*64 = (A*4+A)*64 
Dies sieht zwar kompliziert aus, jedoch lassen sich, wie 
wirvorher schon gesehen haben, Multiplikationen und Divi¬ 
sionen mit Zweier-Potenzen durch einfaches Verschieben 
ausführen. Die Multiplikation mit 64 verbraucht jedoch viel 


Bild 10. Der 
Arithmetiktrick 
[A/8] grafisch 
dargestellt. 

Rechnungen in 
Klammern sind 
Integer-Opera- 
tionen 

tion von der Sieben entfällt, kehrt man die Tabelle um, man 
fängt von der höchsten Potenz an. Die Tabelle muß also lau¬ 
ten: 

($80,$40,$20,$10,$08,$04,$02,$01) 

Jetzt haben wir alle wichtigen Informationen und können 
anfangen, die Routine zu programmieren. Als erstes holen 
wir die Parameter mit Interpreter-Routinen (Set Point: Zeile 
5610 bis 5630; Erase Point: Zeile 5810 bis 5830). Es ist auch 
wichtig, daß die Routine die Anfangswerte nicht verändert, 
denn sie soll auch von Maschinenroutinen angesprochen 
werden, die mit den Anfangswerten noch weiterrechnen 
müssen (zum Beispiel die »Linien-Routine«, die später be¬ 
schrieben wird). Unsere Zwischenspeicher legen wir in die 
Zeropage, um Rechenzeit zu sparen. 

Da die Berechnung des Bit/Bytes eines Punktes sowohl 
beim Setzen oder Löschen von Punkten die gleiche ist, wird 
sie als Makro »CALC« (engl.: calculate = berechnen) pro¬ 
grammiert. Eine Abfrage in der Routine, ob der Punkt ge¬ 
löscht oder gesetzt wird, oder die Verwendung eines Unter¬ 
programmes zur Bit/Byte-Berechnung würde zuviel Re¬ 
chenzeit verbrauchen. Als einzige Alternative bleibt die 
Makro-Programmierung. Der Makro-Berechnungsteil um¬ 
faßt die Zeilen 5170 bis 5570. 

Zuerst löschen wir unser Low-Byte »BAL« (Byte Address 
Low). 


5180 lda #$00 
5190 sta bal 


bal löschen 


Die ganzzahlige Division des Y-Wertes durch acht er¬ 
folgt, wie schon gesagt, durch dreimaliges Verschieben 
nach rechts. Da wir hier nur einen 8-Bit-Wert haben, so füh¬ 
ren wir die ganze Division auf der 8-Bit-Basis durch: 
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5210 lda ywert ; y in Akku 
5220 lsr ; [y/8] 

5230 lsr 
5240 lsr 

Das vorliegende Ergebnis müssen wir mit fünf multipli¬ 
zieren. Dies geschieht durch zweimaliges Verschieben 
nach links (Multiplikation mit vier) und durch Hinzuaddieren 
des Anfangswertes. Den Anfangswert müssen wir natürlich 
noch speichern, und zwar im High-Byte »BAH« (Byte Ad¬ 
dress High), denn wir bereiten alles vor, um durch 4 zu tei¬ 
len statt mit 64 zu multiplizieren. Vor einer Addition muß 
normalerweise das Carry-Flag gelöscht werden. Da aber 
beim zweiten »ASL« das Carry-Flag sowieso gelöscht wird 
(man kann dies nachrechnen) entfällt das »CLC«. 

5260 sta bah j Akku([y/8])#5 = Akku#4 + Akku 

5270 asl ; Akku#4 

5280 asl 

5290 ade bah ; + Akku 

Jetzt kommt die angekündigte 16-Bit-Division durch vier. 
Das High-Byte steht im Akku, das Low-Byte im Speicher. 

5310 lsr ; Akku(5*[y/8]) = Akku*256/4 

5320 ror bal ; =>msb ->lsb und 16-Bit 

Division mit 4 

5330 lsr 
53^0 ror bal 

Auch jetzt ist das Carry-Flag wieder gelöscht, und das 
High-Byte steht immer noch im Akku. Wir addieren nun die 
Startadresse der Bitmap hinzu. Da diese $8000 ist, müssen 
wir also $80 zum High-Byte addieren. 


(A/8)*8: 

Bsp.: (255/8)*8 = (31.875)*8 = 31*8 = 248 



Bild 11. Der Arithmetiktrick [A/8] * 8 zum Nachvollziehen in 
anschaulicher Darstellung. Ausdrücke in Klammern stellen 
Integer-Operationen dar. 

5530 lda xwertl ■, lsb(x) 

5540 and #$07 ; x-[x/8]#8, ergibt Bit-Nummer 

5560 tax ; als Index in X verwenden 


5360 ade # > (bitmap) ; Bitmap hinzuaddieren Die . & ,/väre nun der ganze Berechnungsteil und das Ma- 

5370 sta bah ; Akku(320*[Y/8]+$8000) kro wird beendet. 


speichern 

Als nächster Punkt im Algorithmus folgt die Bestimmung 
der zu überspringenden Bytes durch den Term [X/8]*8. 
Dies ist, wie schon vorher gesagt, nur ein »AND # $f8«. Das 
High-Byte bleibt unverändert, da es ja sowieso schon durch 
acht teilbar ist. Das Ergebnis muß in einer 16-Bit-Addition 
zu »BAL/BAH« addiert werden. Das Carry-Flag wurde zu¬ 
letzt bei der Addition der Bitmapadresse beeinflußt. Da dort 
kein Überlauf auftrat, verzichten wir hier wieder auf ein 
»CLC«: 


So, jetzt können wir den Punkt setzen beziehungsweise 
löschen. Das Setzen erledigt folgender Programmteil: 

Wir lesen mit Hilfe des X-Index das Byte mit dem richtig 
gesetzten Bit aus der Tabelle »POTI« (Zeile 5750 bis 5760) 
in den Akku und transferieren es mit einer ODER-Verknüp¬ 
fung in die berechnete Speicherstelle. Der Punkt ist damit 
gesetzt. 


5670 lda potl,x 
5680 ora (bal),y 
5690 sta (bal),y 


Byte aus Tabelle lesen 
Byte mit Grafikbyte verknüpfen 
verknüpftes Byte 


zurückschreiben 


5390 lda xwertl 
5400 and #$f8 
5420 ade bal 
5430 sta bal 
5440 lda xwerth 
5450 ade bah 
5460 sta bah 


; lsb(x) 


; [X/8]*8 
; 16-Bit Addition: 

; Akku([x/8]) + bal/bah 
; msb(x) 

; wird unverändert hinzuaddiert 


Nun fehlt nur noch das letzte Glied des Byte- 
Algorithmus. Um die Zeropage effektiv zu nutzen, wird ein 
Index benötigt. Dazu eignet sich dieser Summand am be¬ 
sten, da er nur Werte zwischen null und sieben enthält. Un¬ 
sere Zeropage-Byte-Adresse wäre also fertig. Berechnen 
wir nun den Index, der dann im Y-Register stehen soll. 


5480 lda ywert ; y-[y/8]*8, Rest der 
Division y/8 

5490 and #$07 

5510 tay ; als Index in Y verwenden 

Auch zur Ermittlung des Bit werden wir das Ergebnis als 
Index verwenden, allerding diesmal im X-Register. 


Beim Löschen eines Punktes geht man analog vor. Der 
Unterschied besteht jedoch darin, daß auf eine Tabelle zu¬ 
gegriffen wird, deren Werte im Vergleich zu »POTI« inver¬ 
tiert sind (NOT-Verknüpfung oder»EOR #$FF«). Die neue 
Tabelle »POT2« lautet also folgendermaßen: 


A~(A/8)*8: 

Bsp.: 255-(255/8)*8 = 255-248 = ? 


1 

1 

1 

1 

1 

1 

1 

1 

= 255 





0 

0 

0 

0 

0 

1 

1 

1 

= 7 


0 

O 

O 

0 

0 

1 

1 

1 


Bild 12. Arithmetiktrick A-[A/8] * 8. Ausdrücke in Klammern 
stellen Integer-Operationen dar. 
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5950 .byte $7f,bf,df,ef 
5960 .byte $f7,fb,fd,fe 

Statt einer ODER-Verknüpfung findet hier eine AND- 
Verknüpfung statt. 

5870 lda pot2,x ; Byte aus Tabelle lesen 
5880 and (bal),y ; Byte mit Grafikbyte verknüpfen 
5890 sta (bal),y ; verknüpftes Byte 
zurückschreiben 

Mit »RTS« (Zeile 5710, 5910) wird die Routine beendet. 
Nebenbei bemerkt: Einen Punkt invertiert man, indem 
man bei Tabelle »POTI« statt einem »ORA (BAL),Y« ein 
»EOR (BAL),Y« schreibt. 

Das Label »SET« ist die Einsprungadresse für Maschi¬ 
nenprogramme, die die Koordinaten schon übergeben hat. 

Die Routine hat eine Laufzeit von 98 Taktzyklen (ca. 98 
Mikrosekunden), was besagt, daß pro Sekunde etwa 10000 
Punkte berechnet und gesetzt werden können. 

Linien ziehen 


Nachdem jetzt das Fundament einer Basic-Erweiterung für 
Grafik geschaffen ist, gehen wir nun daran, wichtige Zei¬ 
chenroutinen zu programmieren. Zweifellos ist das Zeich¬ 
nen von geraden Linien einer der wichtigsten Befehle. 



Bild 13. Das Steigungsprinzip grafisch veranschaulicht 

Bei Linien muß man wissen, daß sie immer durch vier Pa¬ 
rameter gekennzeichnet sind. Welche vier Parameter dies 
sind, variiert: Zum Beispiel ist eine Linie durch die Koordi¬ 
naten ihres Start- und Endpunktes charakterisiert: 

(xl.yl) und (x2, y2) 

In der Mathematik wird die Linie, meist Gerade genannt, 
durch ein x-lntervall, die Steigung und den Achsenab¬ 
schnitt bestimmt: 
xl, x2, m, t 

Statt der Steigung »m« wird manchmal ein Winkel zur ho¬ 
rizontalen Achse angegeben, denn Tangens a ist nichts an¬ 
deres als die Steigung: 
xl, x2, a, t 


Bei Computern ist es jedoch üblich eine Linie durch den 
Start- und Endpunkt festzulegen. Unsere vier Bestim¬ 
mungsparameter sind also (xl, yl) sowie (x2, y2). Da die 
x-Koordinate Werte zwischen 0 und 319 - also 16-Bit-Werte- 
annehmen kann, müssen diese noch in High- und Low- 
Byte aufgeteilt werden: xlh, xll, x2h, x2l. 

Eine Gerade in der Zweipunkteform errechnet sich ma¬ 
thematisch durch folgende Gleichung: 

y = m * x + t = ( y2 ~ y1 ) *x + t = ^*x + t= d ^*x + t 
(x2-x1) Ax dx 

Der Term vor der Funktionsvariable x gibt die Steigung 
an. »t« bezeichnet den Achsenabschnitt. Da wir von einem 
optimierenden Linienalgorithmus ausgehen, entfällt »t« (»t« 
ist ja in yl enthalten, und unser Algorithmus geht von xl 
und yl aus). Wir haben also folgende Gleichung: 

(x2 - xl) A x dx 

Der letzte Term dy/dx erinnert an die Differentialrech¬ 
nung, doch das soll uns nicht stören. Wie schon gesagt, 
gibt der Term vor x die Steigung an. Um diese Gleichung in 
Assembler zu formulieren, könnte man die Differenzen 
y2-y1 und x2-x1 bilden, den Quotienten der Differenzen 
ausrechnen (16-Bit-Division) und in einer Schleife von xl 
bis x2 den Quotienten mit dem jeweiligen x-Wert multipli¬ 
zieren (16-Bit-Multiplikation), um so den gesuchten y-Wert 
zu erhalten. Nun stünde der Programmierer vor dem Pro¬ 
blem, eine 16-Bit-Division und Multiplikation in Maschinen¬ 
sprache zu realisieren. Und das ist vor allen Dingen viel zu 
langsam. Weiterhin bekommt man bei Steigungen, die grö¬ 
ßer als 1 sind, eine gepunktete Linie, wenn man nicht eine 
Abfrage einbaut und dann die Umkehrfunktion berechnet. 

Aber °s geht auch anders, wenn man sich einiger mathe- 
matisenen Grundlagen erinnert, die besagen, daß eine Di¬ 
vision auf eine Subtraktion und eine Multiplikation auf eine 
Addition zurückzuführen ist. So läßt sich folgender Aus¬ 
druck (y2-y1)/(x2-x1), kurz dy/dx, auch durch (y2-y1)- 
(x2-x1)+Rest, kurz dy-dx+Rest, ausdrücken. 

Um den Wert von y zu erhalten, subtrahiert man dx so oft 
von dy, bis der Rest kleiner 0 wird - also genauso, wie man 
dies bei einer handschriftlichen Division machen würde. 

Ein Beispiel: Angenommen dy = 150 und dx = 50, dann 
ist dy/dx = 150/50 = 3 oder dy/dx = dy-dx-dx-dx+Rest. 

Angenommen dy = 151 und dx = 50, dann ist dy/dx = 
151/50 = 3.02 = 3 oder dy/dx = dy-dx-dx-dx+Rest. 

In dieser Gleichung bezeichnet »Rest« eine Größe, die so 
klein wird, daß sie nicht mehr ins Gewicht fällt und vernach- 
läßigt werden kann. 

Wollte man eine Gerade mit dieser Steigung zeichnen, 
müßte man jedesmal, wenn man auf der x-Achse eine Ein¬ 
heit nach rechts geht, auf der y-Achse drei Einheiten nach 
oben gehen (siehe Bild 13). Oder man muß eine Einheit 
nach rechts gehen, wenn man auf der y-Achse vier Einhei¬ 
ten nach oben gegangen ist. 

Dieses Verfahren wird in der Linienroutine (fast) genauso 
umgesetzt. 

Wenn Sie sich den Programmablaufplan (Bild 14) anse- 
hen, werden Sie innerhalb der Schleife eine Abfrage »Rest 
< 0 ?« entdecken. Ist Rest £: 0, dann wird dieser um dx ver¬ 
mindert und gleichzeitig der y-Zähler um eins erhöht und 
ein Punkt gesetzt. Der y-Zähler wird so lange erhöht und ein 
Punkt gesetzt, bis Rest < 0 ist. Ist dies der Fall, wird der x- 
Zähler erhöht und dy zum Rest addiert, was einer Multipli¬ 
kation mit einem um eins erhöhten x-Zähler entspricht: 

(x+1)*dy = x*dy + dy 

Die Schleife wird so lange durchlaufen, bis Anfangs- und 
Zielkoordinaten übereinstimmen. 
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^olon dor Punkt-Koordlnaton, 

/ (xl;y1), (x2; V 2 


(x2;y2) 



jsr sei 



rest = rosl —dx 
y1=y1+yadd 


resl - rest + dy 
xl - xl + xadd 




nein 


ln diesem Fall wird der y-Zähler um eins erhöht und der 
Rest um dx erniedrigt (Rest ist jetzt < 0). Da »lin« > 0 ist, 
ergibt die folgende Abfrage dieses Zeigers: die innere 
Schleife muß noch einmal durchlaufen werden. Jetzt wird 
(weil ja Rest < 0) der x-Zähler auch noch um eins erhöht, 
dy zum Rest addiert, bevor der Punkt gesetzt wird. In Bild 
15 sehen Sie veranschaulicht, wie sich die Routine mit und 
ohne »Iin«-Abfrage verhält. Hier sehen Sie ganz deutlich: 
Ohne lin-Zeiger werden wesentlich mehr Schleifendurch¬ 
läufe benötigt und damit mehr Punkte gesetzt (bis doppelt 
soviele), um ans Ziel zu gelangen. Die Linien werden dich¬ 
ter und eckiger gezeichnet. Die »Iin«-Abfrage spart also ei¬ 
ne Menge Zeit und verbessert den Linienalgorithmus. 

Binärzahlen im Computer 


Bild 14. Programmablaufplan der Grafik-Routine LINE 


Ist die xl-Koordinate größer als x2, dann wird dx (=x2-x1) 
negativ, was bedeutet, daß nicht von links nach rechts, son¬ 
dern von rechts nach links gezeichnet werden soll. In die¬ 
sem Fall wird der X-Additionszeiger auf -1 ($FFFF) gesetzt 
und dx negiert (dx = -dx), damit die Differenz wieder posi¬ 
tiv wird (das ist wichtig für die Subtraktion in der Schleife). 
Desgleichen wird der y-Additionszeiger auf -1 ($FF) gestellt 
und dy negiert (dy = -dy), wenn nichtvon oben nach unten, 
sondern von unten nach oben gezeichnet werden soll. 

Ein Zeiger namens »lin« 


Nun gilt es den Programmablaufplan (Bild 14) in Maschi¬ 
nensprache umzusetzen. Doch das ist weniger schwierig 
als es zu Anfang aussehen mag. Bevor wir jedoch mit der 
Umsetzung beginnen, müssen wir uns noch ein paar ele¬ 
mentare Grundzüge der Assembler-Arithmetik ins Ge¬ 
dächtnis rufen: 

Da wir in unserer Routine nur ganze Zahlen haben, ver¬ 
wenden wir das Integer-Zahlenformat, ganz normale Binär¬ 
zahlen, also Bytes. Doch hiervon gibt es zwei verschiedene 
Arten: 8-Bit (besteht aus 1 Byte) und 16-Bit-lntegerzahlen 
(besteht aus 2 Bytes). Wir werden beide Formate verwen¬ 
den. Jedoch gibt es positive und negative Binärzahlen 
(=lntegerzahlen). Sie unterscheiden sich in ihrem höchst¬ 
wertigen Bit (bei 8-Bit-Zahlen: 7. Bit; bei 16-Bit-Zahlen: 
15. Bit). Ist dieses gesetzt (= 1), dann handelt es sich um ei¬ 
ne negative Zahl. Das wird ganz einfach mit den Befehlen 
»BPL« und »BMI« geprüft. Diese beiden Befehle prüfen das 
Nege’ 1 ' Flag im Statusregister, das immer dann gesetzt 
wird, wenn bei einer Operation das 7. Bit gesetzt ist. An¬ 
dernfalls wird das Negativ-Flag gelöscht. 

Die Frage, die nun brennend interessiert, ist die: Wie 
sieht nun die Umrechnung zwischen negativen und positi¬ 
ven Binärzahlen aus? Hier wird nur das Zweierkomplement 
gebildet. Dieses besteht wiederum aus dem Einerkomple¬ 
ment (Not-Verknüpfung oder »EOR # $FF«) und einer Addi¬ 
tion mit +1. Diese Umrechnung ist abgeschlossen und 
kann beliebig oft vorgenommen werden. 

Da wir es sehr oft mit Additionen und Subtraktionen zu 
tun haben, müssen wir natürlich über deren Voraussetzun¬ 
gen informiert sein. Das Carry-Flag im Statusregister gibt 
Auskunft, ob ein Überlauf auftrat oder nicht. Gleichzeitig 
wird es bei jeder Addition und Subtraktion berücksichtigt 
und mit dem neuen Inhalt versehen. Deshalb muß vor jeder 
Addition das Carry-Flag gelöscht und vor jeder Subtraktion 
gesetzt werden. Bei 16-Bit-Rechenoperationen wird dieses 
nur zu Anfang gesetzt oder gelöscht, denn bei der zweiten 
Operation, beim High-Byte, muß dieses berücksichtigt wer¬ 
den (wegen Übertrag). 


Ein weiterer merkwürdiger Zeiger namens »lin« dient dazu, 
überflüssige Schleifendurchläufe zu vermeiden. Nehmen 
wir an, dx sei größer als dy und damit »lin = 1«. Weiterhin 
soll innerhalb der Schleife Rest > 0 sein. 



Bild 15. So verhält sich die Grafikroutine LINE mit und ohne 
LIN-Abfrage 
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Eine 16-Bit-Addition hat immer folgendes klassisches 

Grundformat: 

clc ; Carry-Flag löschen 

Ida lsb(l.Summand) 
ade lsb(2.Summand) 
sta lsb(Ergebnis) 

Ida msb(l.Summand) 
ade msb(2.Summand) 
sta msb(Ergebnis) 


einen neuen Block im Programmablaufplan. Dadurch wird 
der Sourcecode übersichtlicher und strukturiert: 

Der erste Block berechnet durch das klassische Schema 

der 16-Bit-Subtraktion die Differenz dx = x2-x1 (Zeile 7350 
bis 7410). 

Ein anschließendes »BPL« prüft, ob »dx > 0«, das heißt 
ob dx positiv ist (die Null ist beim Computer eine positive 
Zahl). Hierbei ist das 7. Bit des High-Byte, das momentan 
im Akku enthalten ist, entscheidend. Ist dx positiv wird der 
nächste Block übersprungen. 


Eine 16-Bit-Subtraktion besitzt immer folgendes Format: 

sec ; Carry-Flag setzen 

Ida lsb(Minuend) 
sbc lsb(Subtrahend)' 
sta lsb(Ergebnis) 

Ida msb(Minuend) 
sbc msb(Subtrahend) 
sta msb(Ergebnis) 

Umsetzung in Assembler 


Nun haben wir alle Assembler-Arithmetik-Grundlagen und 
beginnen mit der Umsetzung des Programmablaufplans: 

Zuerst müssen wir natürlich Speicherplatz für unsere Re¬ 
chenvariablen festlegen und berücksichtigen dabei, ob es 
sich um 8- oder 16-Bit-Werte handelt. Die Zuweisung der 
entsprechenden Labels im Listing sieht deswegen so aus: 


Speicheraufbau C 64 

Hex. 

Dez. 



$ FFFF 
$ E000 

65535 

57344 

Kernal-ROM 

Daten-RAM 

$ DFFF 

$ D000 

57343 

53248 

Zeichen¬ 

generator 

Ein- und 
Ausgabe¬ 
register 

(Daten-RAM) 

$ CFFF 

$ cooo 

53247 

49152 

Daten-RAM 


$ BFFF 
$ A000 

49151 

40960 

BASIC-Interpreter 

Daten-RAM 

S9FFF 
$ 0800 

40959 

2048 

BASIC-RAM 


$ 07FF 
$0400 

2047 

1024 

Bildschirmspeicher 


$ 03FF 
$0000 

1023 

0 

Systemspeicher 



9200x11 

.byte 

$00 

9210xlh 

.byte 

-es 

o 

o 

9230x21 

.byte 

$00 

9240x2h 

.byte 

$00 

9250y2 

.byte 

$00 

9260rest 

.byte 

$00,$00 

92701in 

.byte 

$00 

9280dx 

.byte 

$00,$00 

9290dy 

.byte 

$00,$00 

9300xadd 

.byte 

$00,$00 

9310yadd 

.byte 

-e# 

o 

o 


646R 


lsb(xl) 

Zwischenspeicher 
msb(xl) 

Zwischenspeicher 
lsb(x2) 
msn(x2) 
y2 
Rest 

Zeiger lin 

dx = x2 - xl 

dy = y2 - yl 

x step: +1/-1 

($0001/$ffff) 

y Step: +1/-1 ($01/$ff) 


Sie werden sich wundern, warum ist dy ein 16-Bit-Wert, 
wenn yl und y2 nur 8-Bit-Werte sind. Nun gut, die Frage ist 
berechtigt. Während der Routine vergleicht diese dx mit dy. 
Man erreicht aber nur dann ein korrektes Ergebnis, wenn 
beide Zahlen demselben Zahlenformat angehören, also 
16-Bit-Format. 

Aus Geschwindigkeitsgründen und wegen der Einfach¬ 
heit, werden wir auch in den Zeropage-Speicherstellen 
»XWERTL, XWERTH und YWERT« verwenden, die auch 
die Punktsetzroutine benützt. 

Mittels den Interpreterroutinen »CHKCOM« und »GET- 
PAR« werden die Koordinaten x1,y1, x2 und y2 eingelesen 
und in deren zugeordneten Speicherstellen abgelegt (Zeile 
7060 bis 7220). Nun kopieren wir die xl-Koordinate in die 
Zeropage (Zeile 7240 bis 7270); das muß deshalb nach dem 
Parametereinlesen geschehen, da die Interpreterroutinen 
auch die Zeropage-Speicherstellen »XWERTL« und 
»XWERTH« benützen. »CLD« schaltet sicherheitshalber in 
Zeile 7290 den Dezimalmodus aus, denn wenn dieser ge¬ 
setzt wäre, hätten unsere Berechnungen völlig falsche Er¬ 
gebnisse. 

Ab Zeile 7300 beginnt die strukturierte Umsetzung dieser 
Algorithmen. Der Linienstrich im Sourcecode signalisiert 


Bild 16. Der Speicheraufbau des C64 

Da dx negativ war, negiert der nächste Block dx (dx = 
Mx): Cizu bildet man zuerst das Einerkomplement, »EOR 
#$FF«. Das High-Byte befindet sich noch immer im Akku 
und wird sofort negiert und gespeichert (Zeile 7490 bis 
7500). Danach geschieht dasselbe mit dem Low-Byte (Zei¬ 
le 7510 bis 7520). Um das Negieren abzuschließen, addiert 
man »eins« zum Low-Byte (Zeile 7530 bis 7550) und berück¬ 
sichtigt dabei einen gegebenenfalls auftretenden Übertrag 
(Zeile 7570). Der nächste Schritt besteht darin, den 16-Bit- 
Wert »XADD« auf -1 ($FFFF) zu setzen (Zeile 7590 bis 7610). 
»JMP LINE2« überspringt nun den folgenden Block. 

Wenn bei Abfrage in Zeile 7450 dx positiv war, wird der 
x-Additionszeiger auf +1, $0001, gesetzt (Zeile 7660 bis 
7690). 


Geschwindigkeit ist Trumpf 


Sollte es sich um eine senkrechte Linie handeln, dann ist 
dx 0. In diesem Fall muß die xl-Koordinate unverändert blei¬ 
ben, das heißt »ZWEIG1« (siehe später) darf nicht duchlau- 
fen werden. Das erreicht man, indem der Rest auf 0 gesetzt 
und im »ZWEIG2« vom Rest (=0) dx (=0) abgezogen wird. 
Sollte dx nicht 0 sein, erhält der Rest die Vorbelegung -1 
($FFFF). Dazu prüft man zuerst, ob das Low-Byte gleich 0 
ist (Zeile 7730 bis 7740), und falls das nicht der Fall ist zum 
Label »LINE3« (Rest = -1) verzweigt. Ist das Low-Byte 0, muß 
nun auch noch das High-Byte 0 enthalten, damit der Rest 
den Inhalt -1 ($FFFF) zugewiesen bekommt (Prüfung in Zei¬ 
le 7750 bis 7760). Andernfalls verzweigt man wieder nach 
»LINE3«. Stellte sich bei dieser Abfrage heraus, daß dx = 
0 ist, bekommt der Rest in den Zeilen 7800 bis 7830 die Vor¬ 
belegung 0 ($0000) und der folgende Block wird übersprun¬ 
gen. Trifft das nicht zu, weist man beim Label »LINE3« Rest 
den Inhalt -1 ($FFFF) zu (Zeile 7870 bis 7890). 

Um dy zu berechnen, verwenden wir wieder die 16-Bit- 
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Subtraktion (Zeile 7930 bis 7990). Das Besondere hierbei 
ist, daß beim High-Byte des Ergebnisses 0 von 0 subtrahiert 
wird. Das hat natürlich auch einen Sinn, denn wie würden 
wir sonst eine 16-Bit-Zahl mit Berücksichtigung eines even¬ 
tuellen Übertrages als Ergebnis bekommen, wenn wir von 
zwei 8-Bit-Zahlen ausgehen. 

Anschließend prüft man, ob dy negativ ist (Zeile 8030) 
und führt gegebenenfalls das Zweierkomplement aus, um 
bei dy einen Vorzeichenwechsel zu vollbringen (Zeile 8070 
bis 8150). Danach setzt man den y-Additionszeiger yadd 


1 

2 6 3 1 

8 4 2 6 8 4 2 1 


$DA10 

$DA11 

$DA12 

$DA13 

$DA14 

$DA15 

$DA16 

$DA17 



Buchstabe »B«,Code 66 


Adresse 

im Zeichensatz—ROM 
ab$D800 


124 

102 

102 

124 

102 

102 

124 

0 


Bild 17. So sieht der Buchstabe »B« im Zeichensatz aus 


entweder auf -1 ($FF) oder +1 ($01) (hier ist es ein 8-Bit- 
Wert). 

Nun muß in einem 16-Bit-Vergleich (Zeile 8280 bis 8330) 
geprüft werden, ob dx > dy ist. Dazu vergleicht man zuerst 
die High-Bytes, und im Falle, daß das High-Byte von dx grö¬ 
ßer als das von dy ist, nach »LINE7« zu verzweigen. Der dor¬ 
tige Programmteil setzt den Zeiger »LIN« auf 1. Konnte man 
beim Vergleich der High-Bytes den Unterschied dx > dy 
noch nicht feststellen, wiederholt sich der Vergleich, nur 
jetzt auf der Low-Byte-Basis. Bei Isb(dx) > Isb(dy) (sprich 
»Isb von dx«) wird auch nach »LINE7« gesprungen; andern¬ 
falls bekommt »LIN« den Inhalt -1 ($FF). Bei »LIN« handelt 
es sich übrigens um einen 8-Bit-Wert, da dieser nur zwei 
Zustände anzunehmen braucht; +1 ($01) oder-1 ($FF). 

Nun wird der erste Punkt an xl, yl gesetzt. Dafür müssen 
wir nichts mehr vorbereiten, weil die Zeropage- 
Speicherstellen XWERTH, XWERTL und YWERT bereits 
die richtigen Koordinaten beinhalten. Da unsere Punktsetz¬ 
routine diese Inhalte nicht verändert, rechnen wir getrost 
mit ihnen weiter. 

Im Programmablaufplan beginnt nun der Schleifenteil. 
Der folgende Block prüft, ob die Zielkoordinaten schon er¬ 
reicht sind, und damit unsere Linie fertig gezeichnet ist. Da¬ 
zu werden erst die beiden y-Koordinaten miteinander ver¬ 
glichen (Zeile 8520 bis 8540). Stimmen diese nicht überein, 
kann die Routine schon mit dem nächsten Block (Rest < 
0 ?) weitermachen. Bei einer Gleichheit der y-Werte werden 
nun die x-Koordinaten auf ihre Identität geprüft. Dabei ist es 
offensichtlich, daß die beiden Low-Bytes viel öfter ungleich 
sind als die High-Bytes. Um also kostbare Rechenzeit zu 
sparen, vergleicht man zuerst die Low-Bytes (Zeile 8550 bis 
8570). Sind diese auch noch identisch, müssen nur noch 
die High-Bytes übereinstimmen (Vergleich in Zeile 8580 bis 
8600), um die Routine in der Zeile 8640 mit »RTS« zu verlas¬ 
sen. 


Wenn das nicht zutrifft, wird die Routine mit der Abfrage 
des 15. Bit des Rests fortgeführt. Dazu wird das High-Byte 

vom Rest in den Akku geladen und mit »BMI« das vorzei¬ 
chengebende Bit abgefragt und ausgewertet (Zeile 8680 
bis 8690). Daraus ergeben sich zwei Zweige: 

Zweigl, wenn Rest > 0 
Zweig2, wenn Rest < 0 

Der erste Zweig berechnet in einer klassischen 16-Bit- 
Subtraktion den Term »Rest = Rest - dx« (Zeile 8730 bis 
8790) und addiert danach den y-Additionszeiger zur augen¬ 
blicklichen y-Koordinate YWERT (Zeile 8810 bis 8840). Das 
ist nichts anderes als ein Inkrementieren oder Dekremen- 
tieren der y-Koordinate (YWERT + 1 ; YWERT-1). Der Zei¬ 
ger »LIN« gibt nun darüber Auskunft, ob ein Punkt gesetzt 
werden soll oder nicht. Die Auswertung dieses Zeigers erle¬ 
digt der Programmteil ab Zeile 8880 bis 8900. Je nachdem 
wird ein Punkt gesetzt oder zum neuen Berechnen der 
Koordinaten verzweigt. 

Beim Durchlaufen des zweiten Zweiges wird die Addition 
»Rest = Rest + dy« ausgeführt (Zeile 8940 bis 9000). Der 
Routinenteil von 9020 bis 9080 erledigt das Fortzählen der 
x-Koordinate XWERTH und XWERTL mittels dem x-Addi- 
tionszeiger XADD. 

Die letzten drei Befehle der Linienroutine übernehmen 
wieder die Abfrage, ob ein Punkt zu setzen ist, und verzwei¬ 
gen zum jeweiligen Einsprung in den Schleifenteil. 

So, das war die ganze Routine, um eine Linie zu ziehen. 
Wie Sie nun sehen, war die Umsetzung gar nicht einmal so 
schwer, wenn man das Prinzip der Additionen und Subtrak¬ 
tionen durchschaut hat. Außerdem ist dieser Algorithmus 
und dessen Umsetzung ziemlich schnell und zählt sogar zu 
den schnellsten Linienalgorithmen für den C64. Wenn Sie 
selbst einmal einen ähnlichen Algorithmus mit Additionen, 
Subtraktionen und Negationen erfolgreich programmiert 
habe n können Sie von sich ruhig behaupten, daß Sie As¬ 
sembleradditionen etc. aus dem »effeff« beherrschen. 

Texf und Grafik mischen 


Nachdem Ihnen nun einige Zeichenbefehle zur Verfügung 
stehen, benötigen Sie eine Funktion, um Ihre Grafiken zu 
beschriften. Das erledigt der CHAR-Befehl. Wie man in der 
Befehlsbeschreibung schon gesehen hat, umfaßt dieser 
Befehl vier Parameter und somit ergeben sich mehrere 
Möglichkeiten, einen Text in der Bitmap abzulegen. Der 
Text, den man als String übergibt, wird entweder waagrecht 
oder senkrecht geschrieben. Bei der Positionierung ergibt 
sich eine Einschränkung: das Zeichen kann nur an der Stel¬ 
le plaziert werden, wo es auch am normalen Textbildschirm 
stehen würde. Es beansprucht genau einen 8-Byte-Block. 
Würde diese Einschränkung wegfallen, beansprucht das 
Zeichen vier 8-Byte-Blöcke. Um aber die Routine etwas zu 
vereinfachen, verzichten wir auf diese übergenaue Positio¬ 
nierung und machen diese Einschränkung. 

Sehen wir uns zuerst einmal an, wo und wie die Zeichen 
im C64 gespeichert sind. Diese liegen im Zeichensatz, 
auch Zeichengenerator genannt, bei 53248 bis 57343 
($D000 bis $DFFF). In Bild 16 sehen Sie den Speicherauf¬ 
bau des C64. Wie die Zeichen im Zeichengenerator gespei¬ 
chert sind, verdeutlicht uns Bild 17 anhand des Buchstaben 
»B«. Jedes Bildschirmzeichen besteht aus einem 8x8 
Punkteraster. Für jede Zeile des Rasters steht ein Byte zur 
Verfügung; also 8 Byte für jedes Zeichen. Die Bit innerhalb 
des Bytes sind natürlich wie in Bild 9 aufgebaut. Nun er¬ 
kennt man, daß die Bildschirmzeichen denselben Aufbau 
besitzen wie ein 8-Byte-Block der Bitmap. Wir müssen also 
nur die betreffenden 8 Byte aus den Zeichensatz auslesen 
und in die Bitmap schreiben. Das könnte man so umsetzen, 
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wenn da nicht noch ein kleiner Haken wäre: die Doppelbe¬ 
legung des Bereiches von $D000 bis $DFFF. In diesem Be¬ 
reich finden wir zum einen die Ein- und Ausgaberegister 
(I/O Register), die den VIC-, SID-, CIA1- und CIA2-Chip ver¬ 
walten (Grafik, Tonerzeugung, Farbspeicherung, Interrupt, 
Zeit, Farbspeicher, Joystick-Steuerung,...), und zum ande¬ 
ren ist hier der Zeichensatz, der die Daten für den Bild¬ 
schirm beinhaltet, gespeichert (siehe Bild 16). Sowohl Ein- 
und Ausgaberegister als auch der Zeichensatz belegen 
den ganzen Bereich von $D000 bis $DFFF. Das ist nur da¬ 
durch möglich, daß das Betriebssystem abwechselnd zwi¬ 
schen Ein-/Ausgaberegistern und dem Zeichensatz um¬ 
schaltet. Wenn man aber mit PEEK oder POKE bezie¬ 
hungsweise »LDA« oder »STA« auf diesen Bereich zugreift, 
spricht man immer die Daten der Ein- und Ausgaberegister 
an. Es gibt aber trotzdem eine Möglichkeit, die Daten des 
Zeichensatzes auszulesen. 


Tabelle 2. Diese 
Incrementwerte 
bewirken die 
jeweilige 
Schreibrichtung 

Der C64 besitzt in der Zeropage zwei Speicherstellen, 
$00 und $01, die die Umschaltung der Bereiche bewerkstel¬ 
ligen. In Bild 18 sehen Sie die Belegung dieser beiden Regi¬ 
ster. $00 ist das 6510 Daten-Richtungsregister; $01 ist das 
6510 Prozessorport-Ausgaberegister. Letzteres bewirkt die 
Umschaltung: Die Bits 0 bis 2 schalten zwischen den dop¬ 
pelt belegten Speicherbereichen des C64 um. Bit 2 ist für 
den Bereich $D000 bis $DFFF zuständig. In der normalen 
Prozessorportkonfiguration ist das dritte Bit gesetzt, und 
darum sind die Ein- und Ausgaberegister eingeblendet. Ein 
Löschen dieses Bit bewirkt eine Umblendung auf den Zei¬ 
chensatz. Allerdings muß dabei der Interrupt ausgeschaltet 
werden, da dieser für seine Funktionstätigkeit die Ein- und 
Ausgaberegister benötigt. Um einen Absturz zu vermei¬ 
den, schalten wir vor der Datenübertragung zwischen Zei¬ 
chensatz und Bitmap den Interrupt aus und lassen ihn da¬ 
nach sofort wieder zu. Es stellt sich nun die berechtigte Fra¬ 
ge: Wie verträgt sich das mit dem geteilten Bildschirm, der 
nur durch den Interrupt realisiert wird? Theoretisch müßte 
der Bildschirm flackern und falsche Bereiche anzeigen. In 
der Regel tritt dies nicht ein, da der Interrupt nur für zirka 
120 Mikrosekunden (= 0,12 Millisekunden = 0,00012 Se¬ 
kunden) ausgeschaltet wird. Der Interrupt wird dagegen 
nur lOOmal in der Sekunde aufgerufen. So verbleiben 10 
Millisekunden zwischen den Interruptaufrufen. Die Wahr¬ 
scheinlichkeit, daß die Datenübertragung mit dem Interrupt 
zeitlich zusammenfällt, ist also nur 1,2 Prozent. Sollte aber 
trotzdem einmal dieser unglückliche Zustand eintreffen, 


Schreibrichtung 

Inkrementwert 

nach rechts: 

$0008 

nach unten: 

$0140 

nach links: 

$fff8 

nach oben: 

$fec0 

nach schräg unten rechts:. 

$0148 

nach schräg unten links: 

$0138 

nach schräg oben rechts: 

$ffc8 

nach schräg oben links: 

$ffb8 


Prozessor I/O Port (6510) 



128 

64 

32 

16 

8 

4 

2 

1 

$0000 

IN 

IN 

OUT 

IN 

OUT 

OUT 

OUT 

OUT 

$0001 



TAP. 

TAP. 

TAP. 

ROM 

ROM 

ROM 


Mot. Sen. Wr. $D0 $EF SAB 
I _I 


Switch 


Bild 18. Die Belegung des 6510-Prozessorport- 
Ausgaberegisters 


Blldschirmcode 
Bereich binär 

ASCII-Code 
Bereich binär 

Zeichentyp 


0-31 

°A 000 x xxxx 

Steuerzeichen 

32 %0010 0000 

32 

%0010 0000 

<Space> 

33- 63 %001x xxxx 

33- 63 

% 001 x xxxx 

Sonderzeichen 

0- 31 %001x XXXX 

64- 95 

% 010 x xxxx 

Kleinbuchstaben 

64- 95 %010x xxxx 

96 - 127 

% 011 x xxxx 

Großbuchstaben 


128-159 

%100x xxxx 

Steuerzeichen 

160 %1010 0000 

160 

%1010 0000 

reverses < Space > 

97-127%011XXXXX 

161 - 191 

%110X xxxx 

Grafikzeichen 

64- 95%010xxxxx 

192-223 

%110X xxxx 

Großbuchstaben 

Doppelbelegung 

32 %0010 0000 

224 

%1110 0000 

< Space > 

97- 127 %01 Ix xxxx 

225 - 254 

% 111 x xxxx 

Grafikzeichen 

Doppelbelegung 

94%0101 1110 

255 

o/ollll 1111 

Grafikzeichen 


Tabelle 3. So sieht die Zuweisungstabelle von ASCII-Codes 
zu Bildschirmcodes aus 


flackert der Bildschirm einmal auf. Da dieses Flackern nur 
Vso Sekunde (V50 Sekunde = 0,02 Sekunden = 20 Millise¬ 
kunden) andauert, wird das vom menschlichen Auge kaum 
wahrgenommen. Sollte Sie dieser Umstand dann trotzdem 
noch stören, müssen Sie vor dem CHAR-Befehl den geteil¬ 
ten Bildschirm ausschalten. 

Bevor wir mit dem Programmieren beginnen, fertigen wir 
erst einen Programmablaufplan an (Bild 19). 

Dieser besagt, daß zuerst alle Parameter eingelesen, 
überprüft und dann ausgewertet werden müssen. Bei einer 
Bereichsüberschreitung wird die Fehlermeldung »Illegal 
Quantity Error in [Zeilennummer]« ausgegeben. Danach 
soll anhand der Zeilen- und Spaltenangabe die Adresse 
des ersten 8-Byte-Blocks in der Bitmap errechnet werden. 
Hier gilt folgender Algorithmus: 

HPOINT = Zeile * 320 + Spalte * 8 

»HPC'NT« (HiresPOINTer, zu deutsch Grafikzeiger) zeigt 
immer auf das erste Byte des momentan adressierten 
8-Byte-Blocks. Nun gibt es einen merkwürdigen 16-Bit- 
Zeiger namens »Increment« (zu deutsch Erhöhung). Dieser 
wird zu »HPOINT« addiert, um das erste Byte des nächsten 
8-Byte-Blocks anzusprechen. Soll waagrecht (Richtung = 
0) geschrieben werden, muß »Increment« den Wert $0008 
besitzen, damit »HPOINT« auf den danebenliegenden 
8-Byte-Block zeigt. Bei einer senkrechten Schreibweise 
(Richtung < > 0) besitzt »Increment« den Inhalt $0140 
(=320), damit »HPOINT« nach der Fortzählungsaddition 
auf den darunterliegenden Block weist. 

In verschiedene Richtungen schreiben 


Natürlich könnte man sich noch andere Richtungen den¬ 
ken, in denen man schreibt, zum Beispiel nach links, nach 
oben oder schräg). Je nachdem müßte »Increment« einen 
anderen Wert besitzen (siehe Tabelle 2). In unserer Routine 
wurden nur die ersten zwei Fälle berücksichtigt; aber Sie 
können die Routine so verändern, daß in sämtliche acht 
Richtungen geschrieben wird. Hierzu noch ein kleiner 
Trick: Multiplizieren Sie die Richtungsnummer mit 2 und 
verwenden Sie diese dann als Index; legen Sie eine Tabelle 
mit den Incrementwerten an und weisen »Increment« nun 
mit Hilfe des zuvor berechneten Index den entsprechenden 
Inkrementwert aus der Tabelle zu: 


lda Richtungsnummer 

asl 

tax 

lda inctab,x 
sta increm 
lda inctab+l,x 
sta increm+1 


mal 2 

als Index in X 
lsb 

msb 
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inctab .byte $00,$08,$40,$01 ; so müßte die 

Tabelle aussehen 

.byte $f8,$ff,$c0,$fe 


Wir werden aber einen anderen Weg wählen, da wir nur 
zwei Richtungen zur Verfügung stellen. 

Sehr schnelle ASCII/Bildschirmcode- 
Wandlung 

Nun wird in einer Schleife ein Zeichen nach dem andern 
aus dem String ausgelesen, in Bildschirmcode gewandelt, 
die Zeichensatzadresse berechnet und in die Bitmap ge¬ 
schrieben. Die beiden Sprungmarken »1« und »2« werden 
für die Wandlung von ASCII-Codes in das Bildschirmcode¬ 
format benötigt. In Tabelle 3 sehen Sie die Umrechnung 
dieser beiden Codearten. Um diese Umrechnung zu reali¬ 
sieren, gibt es zwei verschiedene Wege: 

1. Möglichkeit 

Man kann eine Tabelle mit 256 Werten innerhalb des Pro¬ 
gramms so anlegen, daß jedem ASCII-Code ein Bild¬ 
schirmcode zugeordnet wird. Der ASCII-Code wird als In¬ 
dex in einem Register verwendet. Danach wird mit Hilfe des 
Index der entsprechende Bildschirmcode zugeordnet. Den 
Undefinierten ASCII-Codes (Steuercodes) weist man Code 
255 zu und fragt diesen vor der Berechnung der Bild¬ 
schirmzeichenadresse im Zeichensatz ab. Handelt es sich 
dann um einen nicht definierten Code, wird zu Sprungmar¬ 
ke »2« gesprungen und mit dem nächsten Zeichen des 
Strings weitergemacht. 

Vorteil: sehr schnell (die schnellste ASCII-Wandlung für 
den C 64) g ' sf ont|. 

Nachteil: hoher Speicherplatzverbrauch, wegen der Ta¬ 
belle. 256 Byte zusätzlich. 

2. Möglichkeit 

Der zweite Weg ist, daß die ASCII/Bildschirmcode- 
Wandlung nicht tabellarisch, sondern arithmetisch vollzo¬ 
gen wird. Es wird so eine Routine nach dem Programmab¬ 
laufplan in Bild 20 programmiert. Bei dieser Routine wer¬ 
den die einzelnen Bereiche abgefragt und je nachdem auf 
logischem Weg einige Bits verändert. 

Vorteil: sehr platzsparend und relativ schnell 

Wir entscheiden uns für den zweiten Weg. Dieser ist zwar 
nicht ganz so schnell wie der tabellarische Weg, aber 
schnell genug (6 bis 27 Mikrosekunden = 0,006 bis 0,027 
Millisekunden) 

Nun steht dem Programmieren nichts mehr im Wege. Als 
erstes legen wir wieder unsere Programmvariablen fest: 


11930zeile 

11940spalte 


.byte $00 
.byte $00 


11950strlen .byte $00 


11960index 

11970increra 

11980processor 


•byte $00 
.byte $00,$00 
.byte $00 


Variable für Zeile 
Variable für 
Spalte 

Variable für 

Stringlänge 

Index 

Increraent 

Variable für 

Prozessorport- 

Zustand 


Wie Sie aus dem Programmablaufplan schon gesehen 
haben, wird mehrmals ein »Illegal Quantity Error« ausgege¬ 
ben und der READY-Status aktiviert. Dabei wird das Pro¬ 
gramm abgebrochen. Um diese Fehlermeldung auszuge¬ 
ben ruft man die Routine »ERROR« ($A437 = 42039). Zu¬ 
vor muß im X-Register die Fehlernummer enthalten sein. 
Eine Übersicht der Fehlernummern finden Sie in Tabelle 4. 


/ Zelle 


aus Basie-Tevt holen 


/ Spnllo au» Baslc-Toxt holen / 



Illegal Quantity Error j 


lllopnt Quantity Error ) 


/ String hu« Basic-Text holen J 


Illegal Quantity Error J 


String-Parameter speichern 

. i 

/ Richtung aus Basic-Text holen / 


Tnein 



Increment = $0140 = 320 


Increment = $0008=8 


hpoint » Zeile x 320 


hpolnt ■ hpoint * Bitmap 

i 


hpolnt = hpolnt ♦ Spalte x 8 

♦ Z 


Index = 0; in y-Register 

t 


Y-tos Zeichen aus String holen 

f ' 


G> 


Zeichen wandeln:ASCII - Bildschirmcode 

\ 


mvchar - Zeichencode x 8 

i 


mvchor a mvchar + ZSA-ROM 

. z 


t-Konllguratlon: ZSA-ROM 


Zeichen (8 Byte) In Bitmap schreiben 
* - 


alte Prozessorport-Konflguratlon hersteilen 


G> 


hpolnt ■ hpolnt + Incremont 

=EZ 


Index fortzflhlon 



Indox- \ nein 
Strlnglfinge ?. 


( Ende ) 


Bild 19. Der Programmablaufplan der Grafikroutine CHAR 
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Für einen »Illegal Quanlity Error« benötigt man die Fehler¬ 
nummer 14 im X-Register: 

10l40illerr ldx #14 ; Fehlernummer in X 

10150 jrap error ; Fehlermeldung ausgeben 

Jedesmal, wenn diese Fehlermeldung ausgegeben wer¬ 
den soll, wird zum Label »ILLERR« verzweigt. 

Die Interpreterroutinen »CHKCOM« und »GETBYT« ho¬ 
len die Zeilenposition aus dem Basic-Text (Zeile 10210 bis 
10220). Anschließend wird geprüft, ob die Zeilenposition 
größer gleich 13 ist. In diesem Fall wird die Fehlermeldung 
ausgegeben (Zeile 10230 bis 10240). Danach muß man die 
Zeilenposition speichern. Wer mit den Vergleichsbefehlen 
nicht so vertraut ist, sollte den Textkasten 3 durchlesen, 
denn diesen Befehl müssen Sie zum Verständnis dieser 
Routine beherrschen. 

Ganz analog wird die Spaltenposition als Befehlspara¬ 
meter eingelesen (Zeile 10290 bis 10330). 

Um einen String als Befehlsparameter einzulesen, be¬ 
nützt man folgende zwei Routinen »FRMEVL« ($AD9E) und 
»ERESTR« ($B6A3). »FRMEVL« liest einen alphanumeri¬ 
schen Basic-Formelausdruck ein (Zeile 10380). Nun muß 
dieser String durch »ERESTR« »verworfen« werden, das 
heißt dem String wird Speicherplatz zugeordnet und ver¬ 
waltet. Danach ist die Stringlänge im Akku, die Stringadres¬ 
se in den Zeropagespeicherstellen $22/$23 enthalten. Die 
Stringlänge prüft man auf 0, ob ein String vorhanden ist. Ist 
das nicht der Fall, gibt man wieder einen »Illegal Quantity 
Error« aus. Danach wird die Länge in der Speichervariable 
»STRLEN« gespeichert (Zeile 10395 bis 10400). Das Ausle¬ 
sen der einzelnen Zeichen des Strings wird absolut y- 
indiziert vorgenommen. Der Operand dieses Befehls ist die 
Stringadresse. Sie muß aus der Zeropage ausgelesen und 
dann als Operand kopiert werden (Zeile 10410 bis 10440). 

Komfortable String-Verwaltung 


Nun muß noch die Schreibrichtung eingelesen werden 
(Zeile 10480 bis 10490). Die Zeile 15030 bis 10540 fragen 
ab, ob die Richtung 0 ist oder nicht. Je nachdem erhält »In- 
crement« den richtigen Inhalt (Zeile 10560 bis 10640). Et¬ 
was Besonderes ist noch erwähnenswert: Ist die Schreib¬ 
richtung, die im X-Register enthalten ist, gleich 0, dann wird 
sofort ein Speichern des High-Bytes ausgeführt, denn die¬ 
ses ist ja auch 0 (Zeile 10620). 

Jetzt haben wir alle Parameter eingelesen und beginnen 
deshalb mit der Arithmetik. Um die Position des ersten 
8-Byte-Blocks in der Bitmap zu berechnen, multipliziert 
man die Zeilenangabe mit 320 und addiert dazu das Pro¬ 
dukt Spalte mal 8. Man darf keinesfalls vergessen, die 
Startadresse der Bitmap hinzuzuaddieren. Beginnen wir 
mit der Multiplikation Zeile mal 320. Hatten wir nicht schon 
mal so einen ähnlichen Fall? 

Ja, bei der Punktsetzroutine mußte [y/8] * 320 berechnet 
werden. Damals konnten wir einen trickreichen Weg fin¬ 
den, dieses Produkt zu berechnen, da wir als Ausgangs¬ 
wert eine 8-Bit-Zahl vorliegen hatten. Wir haben auch jetzt 
wieder einen 8-Bit-Wert als ersten Faktor, denn (Zeile * 5) 
liegt im geschlossenen Intervall von 0 bis 60 und dieses 
Zahlen werden durch 8-Bit-Werte repräsentiert. Nun bedie¬ 
nen wir uns wieder der zuvor angewandten algebraischen 
Umformung: 

Zeile * 320 = Zeile * 5 * 64 = (Zeile * 4 + Zeile) * 64 = 
(Zeile * 4 + Zeile) * 256/4 

Das mag zwar etwas komplizierter aussehen, jedoch 
wissen wir, daß sich Multiplikationen und Divisionen mit 
Zweier-Potenzen durch einfaches Verschieben ausführen 
lassen. Die Multiplikation mit 256 entfällt ganz, da sie nichts 
anderes darstellt als ein Übertragen des Low-Bytes in das 


Fehler- Fehlermeldung 

nummer 

Fehler- Fehlermeldung 
nummer 

i 

Too many Flies 

16 

Out of Memory 

2 

File open 

17 

Undef'd Statement 

3 

File not open 

18 

Bad Subscript 

4 

File not lound 

19 

Redim'd Array 

5 

Device not present 

20 

Division by Zero 

6 

Not Input File 

21 

Illegal Direct 

7 

Not Output File 

22 

Type Mismatch 

8 

Mlssing Fllename 

23 

String too long 

9 

Illegal Devicenumber 

24 

File Data 

10 

Next wlthout For 

25 

Formula too complex 

11 

Syntax 

26 

Can't continue 

12 

Return without Gosub 

27 

Undef’d Function 

13 

Out of Data 

28 

Verify 

14 

Illegal Quantity 

29 

Load 

15 

Overflow 




Tabelle 4. Die Zuweisungstabelle der Fehlernummern zur 
jeweiligen Meldung 


High-Byte. Anschließend wird das Low-Byte auf 0 gesetzt. 
Als erstes setzen wir das Low-Byte von »HPOINT« auf 0. Sie 
werden sich vielleicht wundern, warum das jetzt mit »STA 
HPOINT + 1« geschieht. Damit ist doch eigentlich das 
High-Byte gemeint? Dazu sollte man sich einmal die Zeile 
ansehen, in der das Label »HPOINT« enthalten ist: 

ll650hpoint sta $ffff,y ; Byte in Bitmap 

schreiben 

Wie Sie hier sehen, zeigt »HPOINT« Assembler-Befehle, 
dessen Operanden die Adressen »HPOINT + 1«(= Low- 
Byte) und bei »HPOINT + 2« (= High-Byte) besitzen. Die¬ 
ser Trick der Selbstmodifikation wird auch bei den Zeigern 
»MVCHAR« und »CHAR3« angewendet. 

Be; d°r Multiplikation mit 5 wird die Zeilenangabe in den 
Akku geladen und zweimal nach links verschoben, was ei¬ 
ner Multiplikation mit 4 entspricht. Da beim letzten »ASL« 
das Carry-Flag gelöscht wurde, wird sofort zum Akkuinhalt 
die Zeilenangabe addiert. Da nun im Akku das Produkt 
(Zeile * 5) enthalten ist, folgt die 16-Bit-Division durch 4. Da¬ 
bei ist das High-Byte im Akku enthalten und das Low-Byte 
wird im Speicher »verschoben« dividiert. Da der letzte Ver¬ 
schiebebefehl das Carry-Flag löscht, wird die Startadresse 
der Bitmap addiert. Die ganze Multiplikation mit 320 ist 
nicht einmal zusammengefaßt: 


10700charl 

lda 

# $00 

i 

lsb(hpoint) = 0 

10710 

sta 

hpoint+1 

i 

speichern 

10720; 

10730 

lda 

zelle 

J 

Zeile in Akku; 

10740 

asl 



Akku(Zeile)*5 = 
Akku+4+Zeile 
* 2 

10750 

asl 


> 

# 2 und Carry-Flag 

10760 

ade 

zelle 

; 

löschen 
+ Zeile 

10770; 

10780 

lsr 


J 

Akku(Zeile*5)*64 = 

10790 

ror 

hpoint+1 

> 

Akku*256/4 
= >lsb ->msb und 

10800 

10810 

lsr 

ror 

hpoint+1 

) 

16-Bit Div. mit 4 

gleichzeitig Carry- 

10820 

ade 

Flag löschen 

# > (Bitmap); Akku( 320 *Zeile)+Bitinap 

10830 

sta 

hpoint+2 

f 

High-Byte speichern 


Das Produkt Spalte mal 8 wird vorläufig auf der 8-Bit- 
Basis durchgeführt: 

Spalte * 8 = Spalte * 2 * 2 * 2 
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Für einen maximalen Spaltenwert von 39 erhält man 
schrittweise: 

39 * 2 * 2 * 2 = 78 * 2 * 2 = 156 * 2 = 312 
Man sieht, bei der letzten Verschiebung kann ein Über¬ 
trag auftreten. Dieser kann aber durch »BCC« abgefragt 
und berücksichtigt werden. Wenn dieser auftrat, erhöht 
man einfach das High-Byte um eins. Danach wird das Low- 
Byte des Produktes zu »HPOINT« addiert und anschließend 
eine eventueller Übertrag abgefragt und berücksichtigt. 


10925 clc ; 

10930addspalte ade hpoint+1 ; 


10940 

10950 

10960 

llOOOchangestr 


sta hpoint+1 ; 
bcc changestr ; 
ine hpoint+2 ; 


Übertrag löschen 
lsb(hpoint) = 
lsb(hpoint) + 
lsb(Spalte#8) 
speichern 
Übertrag abfragen 
da Übertrag => 
msb(hpoint) + 1 


10870 

lda spalte ; Spalte ln Akku 

holen 

10880 

asl ; * 2 

10890 

asl ; # 2 

10900 

asl ; # 2 

10910 

bcc addspalte ; Übertrag abfrage 

10920 

inc hpoint+2 ; da Übertrag => 
msb^hpoint) + 1 


Das Carry-Flag wird vor der Addition nur dann gelöscht, 
wenn es bei »BCC ADDSPALTE« gesetzt war. 

Im Programmablaufplan sehen Sie, daß nun der Schlei¬ 
fenteil beginnt, in dem der String abgearbeitet wird. Zuvor 
wird der Schleifenzähler, der auch als Index im Y-Register 
verwendet wird, auf 0 gesetzt (Zeile 11000 bis 11010). Jetzt 
wird das Zeichen aus dem String gelesen, auf das der Index 
Y weist, Der Zeiger auf dem String selbst, »CHAR3«, besitzt 


Zeichen wandeln ASCII - BS-Code 



Bild 20. Der Programmablaufplan, um ASCII-Zeichen in Bildschirmcode-Zeichen umzuwandeln 
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schon die Anfangsadresse des Strings. Danach muß das 
Zeichen des Strings vom ASCII-Format ins Bildschirmco- 
de-Format gewandelt werden. Dazu setzt man den Pro- 
grammablaufplan in Bild 20 in Assembler um. Als erstes 
prüft man mit »BMI« ob das 7. Bit gesetzt ist. Somit ergeben 
sich zwei Zweige, die man unabhängig voneinander pro¬ 
grammiert. Den ersten Zweig erreichen nur Werte zwi¬ 
schen 0 und 127, die übrigen Werte passieren den zweiten 
Zweig. Der erste Schritt ist bei beiden Zweigen analog. Es 
wird geprüft, ob das Zeichen kleiner, gleich oder größer als 


' ?P ab c 

GHI JK 


11160 

and #1510111111 ; 6. Bit löschen, 
da Kleinbuchstabe 

11170 

jmp charö ; weitermachen 

11180char4 

and #1511011111 ; 5. Bit löschen, 
da Großbuchstabe 

11190 

jmp char6 ; weitermachen 

11200char5 

cmp #160 ; <160 ? 

Steuerzeichen ? 

11210 

bcc nexty ; Steuerzeichen 


überspringen 



STfc>- 



L 


OPEN 4,4,1 :CMD1 


7 


L 


I 


ESC l;inlt 


7 


/ 


ESC 3 n=24;Zeilenabstand 


7 


L 


ESC I n=12;linker Rand 


7 


Bild 21. Diese Codes kann der CHAR-Befehl darstellen 

32 oder 160 (= 128 + 32) ist. Ist das Zeichen kleiner als der 
Vergleichswert, handelt es sich um ein Steuerzeichen, das 
nicht dargestellt werden kann. Deshalb werden die näch¬ 
sten sechs Blöcke überprungen und mit dem Fortzählen 
des Index weiterverfahren. 

Sollte das Zeichen gleich dem Operandenwert sein, han¬ 
delt es sich um irgendeine Form des < SPACE > (normal 
oder invertiert) und bleibt deshalb unverändert. Danach 
prüft man, ob ein Sonderzeichen vorliegt, und läßt es gege¬ 
benenfalls unverändert. Nun kann es sich nur noch um 
Klein- oder Großbuchstaben handeln. Je nachdem wird 
entweder das 6. oder 5. Bit gelöscht. 

Im zweiten Zweig prüft man nach der Steuerzeichenab¬ 
frage, ob ein Grafizeichen vorliegt und invertiert in diesem 
Falle die Bits 6 und 7. Anschließend wird geprüft, ob ein 
Großbuchstabe, das dritte Space oder ein Grafikzeichen 
vorliegt. Handelt es sich um das dritte Space, bekommt das 
Zeichen den Code 32. Bei Großbuchstaben und Grafikzei¬ 
chen wird nur das 7. Bit gelöscht. Sollte nun das Grafikzei¬ 
chen mit dem ASCII-Code 255 vorliegen (im Akku ist nun 
127, weil das 7. Bit gelöscht wurde), bekommt dieses den 
Bildschirmcode 94 zugewiesen. Es ergibt sich also folgen¬ 
de Befehlsfolge: 


L 


Dummy fallen;Llne=25 

I. 

ESC L n1n2;Grafik ein 




Block=40 


Block spiegeln 


1 

/ Block drucken 

/ 

1 

Dummy erhöhen 


1 

Block=Block-1 


^ Nein 

< 3lock=0 ? >- 


11070 

11080 

11090 

11110 

11120charll 

11130 

11140 

11150 


bmi char5 
cmp #32 

beq char6 

bcc nexty 

cmp #64 

bcc char6 

cmp # 96 
bcs char4 


Zeichen >128 
; <32 ? oder = 

< Space >? 

< Space>->bleibt 
unverändert 
Steuerzeichen 
überspringen 

> <64 ; 

Sonderzeichen ? 
Sonderzeichen 
bleiben 
unverändert 
J <96 ; 

Kleinbuchstabe ? 

96 = < Zeichen < 

128 =>5. Bit 
loeschen 


/ CR;Carriage Return / 
1 --1 


Line=Line-1 


L 



Nein 


ESC O 


7 


not (CMD1) 


I 


7 


CLOSE 


7 


( rts ) 


Bild 22. Der Programmablaufplan für die Hardcopy 
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11220 beq charö 


11230 crap # 192 


11240 

11250 

11260 

11270char7 


11280 

11300 

11320 

11330 

11340 

11350 


bcs 

eor 

jmp 

cmp 


beq 

and 

crap 

bne 

lda 

jmp 


char7 

#5511000000 

charö 

#224 


char9 

#5501111111 

#127 


charö 

#94 

charö 


(< 


< 2. Space>-> 
bleibt unver¬ 
ändert 

<192 ? 

Grafikzeichen ? 
Doppelbelegung 

6. und 7. Bit 
umkehren 
weitermachen 

= <224 ? Groß¬ 
buchstaben (Dop¬ 
pelbelegung) 

< 3. Space> 

7. Bit löschen 
; Code = 255 

127 da 7. Bit gelöscht) 
; weiter 
; 2^5 ->94 
; Grafikzeichen, 
weitermachen 
; < 3- Space> 


llööOhpoint sta $ffff,y 


11660 

11670 


11680; 

11690 


dey 

bpi mvchar 


lda processor 


Byte in Bitmap 
schreiben 
Index erniedrigen 
schon fertig ? => 
Nein, Sprung nach 
mvchar 

alten Prozessor¬ 
port-Zustand wieder 
holen 


11360char9 lda #32 
11385; 

Da der Bildschirmcode nun im Akku steht, kann ganz ein¬ 
fach die Adresse dieses Bildschirmcodes im Zeichensatz 
berechnet werden: 

Adresse = Code * 8 + $D800 

Dazu setzt man das High-Byte des Zeigers »MVCHAR« 
(MoVe CHARacter: verschiebe Zeichen) auf 0. In einer 
16-Bit-Multiplikation wird Code * 8 berechnet. Da beim letz¬ 
ten »ROR« in Zeile 11490 gleichzeitig das Carry-Flag ge¬ 
löscht wurde, entfällt vor der Addition des High-Bytes der 
Adresse des Zeichengenerators der »CLC«-Befehl. Zuvor 
muß aber noch das Low-Byte gespeichert werden. 


Il4l0char6 

ldx 

64SR 

#$00 ; msb(mvchar) = 0 

11420 

stx 

mvehar+2 ; speichern 

11430; 



11440 

asl 

; mvchar * 8 

11450 

rol 

mvchar+2 

11460 

asl 


11470 

rol 

mvchar+2 

11480 

asl 


11490 

rol 

mvchar+2 ; gleichzeitig Carry- 



Flag löschen 

11500 

sta 

mvchar+1 ; lsb speichern 

11510 

lda 

#charhi ; msb von Character-ROM 

11520 

ade 

mvchar+2 ; addieren 

1530 

sta 

mvchar+2 ; msb speichern 


oni 1, 



Voktor igon« 
roataurioron 


Qntorp'OtoracNoiftM 


9 


Nächsten Zotchon 


Vergleich Belehls- 

hölon CHRGET 


tabollo mit Barne- 



toxt 


0 


X-Registor 

orhöhon 



Zeichen aun 
Befohlstabollo 
holen 



© 


X-Register 

erhöhen 




Bild 23. Der Programmablaufplan der Basic-Erweiterung 


Nun schaltet man den Interrupt aus und rettet den Pro- 
zessorport-Zustand. Dieser wird dann durch Löschen des 
2. Bit auf die Konfiguration Zeichensatz-ROM geschalten. 
In einer Schleife wird achtmal jeweils ein Byte aus dem Zei¬ 
chensatz ausgelesen und in die Bitmap geschrieben. An¬ 
schließend stellt man den vorherigen Prozessorport-Zu¬ 
stand wieder her und gibt den Interrupt frei: 


11700 

11710 


sta $01 
eil 


speichern 
Interrupt wieder 
freigeben 


11570 

11580 

11590 

11600 


sei 

lda 

sta 

and 


11610 

11620; 

11630 


sta 
ldy 

ll640mvchar lda 


$01 

processor 

#5511111011 

$01 

#$07 

$ffff,y 


; Interrupt sperren 
; Prozessorport 
auslesen 
; Inhalt sichern 
; ZSA-ROM zum Lesen 
freigeben 
zurückschreiben 

Index für 8 
Schleifendurchläufe 
Byte aus ZSA-ROM 
auslesen 


In einer 16-Bit-Addition erhöht man »HPOINT« um den In- 
crementwert (Zeile 11750 bis 11810). 

Im nächsten Abschnitt wird der Index ins Y-Register ge¬ 
laden und um eins inkrementiert. Genau zu Anfang dieses 
Blocks wird verzweigt, wenn bei der ASCII/Bildschirm- 
code-Wandlung ein Steuerzeichen vorliegt. Als letztes wird 
geprüft, ob der Index schon die Stringlänge erreicht hat. Je 
nachdem springt die Routine zum Anfang des Schleifen¬ 
teils oder beendet sich mit einem »RTS«. 


11830nexty 

11840 

11850 

11860 


ldy index 
iny 

cpy strlen 
beq charend 


Index in Y 
+ 1 

ist Index schon 
Stringlänge ? 

Index = Stringlänge => 
Routinenende 
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11870 jmp strloop ; =>Index <Stringlänge 

11890charend rts ; Index = Stringlänge => 

Routinenende 

Das war nun die ganze CHAR-Routine. Man kann diese 
nun auf pixelgenaue Plazierung erweitern, aber das würde 
den Rahmen unseres Kurses sprengen. 

In Bild 21 sehen Sie, welche Zeichen mit dem CHAR- 
Befehl dargestellt werden können. 

Die Lade- und Speicherroutine kann hier nicht mehr er¬ 
klärt werden, da sie genauere Kenntnisse über die Pro¬ 
grammierung des seriellen Bus voraussetzt und den Rah¬ 
men dieses Artikels sprengen würde. Interessierte sollen 
deshalb den Artikel »In die Geheimnisse der Floppy einge¬ 
taucht« aus dem Sonderheft 25 lesen. 

Den Programmablaufplan für die Hardcopy-Routine fin¬ 
den Sie in Bild 22. Diese kann ebenso aus Platzgründen 
nicht mehr genauer beschrieben werden. Außerdem erge¬ 
ben sich hier die Probleme der Druckeranpassung. Lesen 
Sie dazu bitte den Artikel »So werden Hardcopys program¬ 
miert« aus dem Sonderheft 23. Das Bild 23 zeigt Ihnen den 
Programmablaufplan für die Basic-Erweiterung. Diese ist 
im Sonderheft 21 im Artikel »Von Basic zu Assembler« ge- 
nauestens beschrieben. 


Wir wünschen Ihnen nun viel Erfolg mit dem Neuerlern¬ 
ten. Falls Sie Geschmack an diesem - zugegeben nicht 
ganz leichten - Stoff gefunden haben, finden Sie in weite¬ 
ren Ausgaben der Sonderhefte sicher noch weitere Infor¬ 
mationen. (Thomas Lipp/sk) 


Textkasten 3 

Um eine Zahl mit einer anderen zu vergleichen, müssen folgende 
Befehle ausgeführt werden: 
lda Registerinhalt 
cmp Operand 

Dabei werden die Flags so gesetzt: 

Das Carryflag ist gesetzt, wenn: 

Register = > Operand 

Das Carryflag ist gelöscht, wenn: 

Register < Operand 

Das Zeroflag ist gesetzt, wenn: 

Register = Operand 

Das Zeroflag ist gelöscht, wenn: 

Register < > Operand 

Bei einer Abfrage auf »größer« müssen immer zwei Flags (Carry 
und Zero) überprüft werden. 


100 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
110;»x* *** 

120; xxx xxx 

130;xxx Zaubereien mit Grafik und xxx 
l40;xxx Assembler xxx 

150;xxx *** 

l 60 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

170;xxx *** 

180;xxx Basic-Erweiterung xxx 

190;xxx Split-Screen xxx 

200;xxx *** 

210;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

220;xxx *** 

230;xxx 1988 by Thomas Lipp xxx 

240;xxx 8000 Muenchen 82 xxx 

250;xxx *** 

260;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
270; 

280.base $c000 
290.Start $c000 
300; 

310;xxxxxxxxxxxxxx»xxxxxxxxxxxxxxxxxx 
320;xxx Basic-Erweiterung xxx 

330;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
340; 

350;xxx Labels xxx 
360; 

370.global chrget=$0073 ; chrget-Routine 

380.global chrgot=$0079 ; chrgot-Routine 

390.global txtptr=$007a ; chrget-Zeiger 

400; 

410.global igone=$0308 
420.global gonel=$a7e4 
430.global Intend=$a7e7 


6*6R 


440; 
450;xxx 
460; 

470 

480 

490 

500 

510; 

520 

530 

540 

550 

560; 

570 


Vektor zum Routinenaufruf 
alter Inhalt von IG0NE 
Ende der 

Interpreterschleife 


Erweiterung einschalten xxx 
lda #$ff 


sta $37 
lda #$7f 
sta $38 

lda # < (start) 
sta igone ; 
lda #> (start) 
sta igone+1 ; 

rts 


; Speichergrenze auf $7fff 
herabsetzen 
lsb Speicherende 

msb Speicherende 

; lsb der eigenen Routine 
in Vektor schreiben 
; msb der eigenen Routine 
in Vektor schreiben 

Rücksprung ins Basic 


580; 
590;xxx 
600; 
6l0aus 


Erweiterung ausschalten xxx 

lda # <(gonel) ; Vektor auf Normalwert 
zurückstellen 


620 

sta igone 

& 

OT 

i—1 

630 

lda #> (gonel) 

640 

sta igone+1 

;msb 

650; 



660 

rts 

; Routinenende 

67 n - 



680;xxx 

erweiterte Interpreterschleife xxx 

690; 



700start 

jsr chrget . 

; Zeichen holen 

710; 



720 

cmp # $60 

; Buchstabe ? 

730 

bcs ende 

; => Basic-Code 

740 

cmp # $4l 

; Buchstabe A ? 

750 

bcc ende 

; => Sonderzeichen 

760; 



770 

sta akku 

; Akku sichern 

780; 



790 

ldx #$00 


800 

stx befnr 

; Befehlsnummer auf 0 



setzen 

810; 

820 erwl 

ldy #$00 

; Basictextindex auf 0 



setzen 

830 

inc befnr 

; Befehlsnummer +1 

840 

lda beftab,x 

; Zeichen aus 



Befehlstabelle holen 

850 

bne erw2 

; kein Trennzeichen 

860 

lda akku 

; Akku holen 

870ende 

Jsr chrgot 

; chrgot aufrufen 

880 

Jmp intend 

; zurück ins normale Basic 

890; 



900;xxx 

Adresse suchen xxx 

910; 

920 erw 2 

cmp (txtptr),y; Vergleich mit Baslctext 

930 

bne ovrd 

; ungleich -> Rest 



überlesen 

940 

iny 

; Basictextindex + 1 

950 

inx 

; Befehlstab.-Index + 1 

960 

lda beftab,x 

; nächstes Zeichen holen 

970 

bne erw2 

; => prüfen 

980; 



990; 



1000 

clc 


1010 

tya 

; Befehlsindex um 



Befehlslänge erhöhen 
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1020 


ade txtptr 


2030; 



1030 


sta txtptr 


2040;*** Labels: Grafik *** 

1040 


bec erw3 ; 

Übertrag ? 

2050; 



1050 


ine txtptr+1 ; 

msb erhöhen 

2060.global 

vl=$d011 

; Adr. Grafikmodus 

1060; 




2070.global 

v2=$d018 

; Adr. Videoram 

1070erw3 


lda befnr ; 

Befehlsnummer verdoppeln 

2080.global 

cia=$dd00 

; 16K-Selection 

1080 


asl 


2090.global 

clrser=$e544 

; Textbildschirm löschen 

1090 


tax ; 

als Index in 

2100.global 

cursor=$e510 

; Cursor setzen 




Sprungtabelle 

2110.global 

xcur=$00d3 

; x-Koordinate des Cursor 

1100 


lda sprtabl,x ; 

lsb lesen 

2120.global 

ycur=$00d6 

; y-Koordinate des Cursor 

1110 


sta sprung+1 ; 

lsb schreiben 

2130.global 

helpl=$00fa 

; Zeropage-Speicherstelle 

1120 


lda sprtab2,x ; 

msb lesen 

2140.global 

help2=$00fb 

; Zeropage-Speicherstelle 

1130 


sta sprung+2 ; 

msb schreiben 

2150.global 

bitmap=$8000 

; Bitmap-Adresse 

1140; 




2160.global 

videoram=$a000 

; Video-RAM-Adresse 

1150sprung 

Jsr $ffff ; 

Dummy 

2170; 



1160; 




2180;*** Makros: Grafik ein/aus, Videoram löschen, 

1170 


jmp ende ; 

zurück ins Basic 

Cursor setzen *** 

1180; 




2190; 



1190;*** 

restl. Befehlstext 

aberlesen *** 

2200.macro 

gra 

; Grafik einschalten 

1200; 




2210 

lda #$3b 

; Bitmapmodus einschalten 

1210ovrd 


inx ; 

Befehlstab.-Index + 1 

2220 

sta vl 


1220 


lda beftab.x ; 

nächstes Zeichen holen 

2230 

lda #$80 

; Videoram selectieren 

1230 


bne ovrd ; 

= > kein Trennzeichen 

2240 

sta v2 


1240 


inx > 

Befehlstab.-lndex+1 

2250 

lda #$01 

; 16K-Bereich selectieren 

1250 


jmp erwl ; 

nächster Befehl 

2260 

sta cia 


1260; 




2270.endmacro 


1270;*** 

Tabellen für Erweiterung *** 

2280; 



1280; 




2290.macro 

txt 

; Grafik ausschalten 

1290;*** 

Sprungtabelle *** 


2300 

lda # $lb 

; Bitmapmodus ausschalten 

1300; 




2310 

sta vl 


1310sprtabl 

.byte $e7 


2320 

lda #$15 

; Videoram zurücksetzen 

1320sprtab2 

.byte $a7 


2330 

sta v2 


1330 


.Word aus 


2340 

lda #$03 

; 16K-Bereich selectieren 

1340 


.word ir 


2350 

sta cia 


1350 


.word ia 


2360.endmacro 


1360 


.word gl 


2370; 



1370 


.word sp 


2380.macro 

zram 

; Videoram löschen 

1380 


.word ep 


2390 

lda #208 

; Videoramwert 

1390 


.word ln 

S4ER or 

IUT 2ewo, 



1400 


■word ep 


2410 

ldy #> (videoram); Startadresse des 

1410 


•word he 




Videorams in ZP 

1420 


■word sa 




schreiben 

1430 


•word lo 


2420 

sty help2 

; msb 

1440 


.byte $00,$00 


2430 

ldy # <(videoram) 

1450; 




2440 

sty helpl 

; lsb 

1460;*** 

Befehlstabelle *** 

2450 

ldx #$04 

; Index für äußere 

1470; 






Schleife 

l480beftab 

.text <Jff 


2460vll 

sta (helpl),y 

; Byte im Videoram mit 208 

1490 


.byte $00 




überschreiben 

1500 


.text"irq 


2470 

iny 

; Y + 1 ; innere Schleife 

1510 


.byte $00 




256 mal 

1520 


.text"text 


2480 

bne vll 

; => Y< >0 

1530 


•byte $00 


2490 

inc help2 

; msb der Video-RAM- 

1540 


■ text"gel 




Position + 1 

1550 


.byte $00 


2500 

dex 

; äußerer 

1560 


• text"set 




Schleifenzähler - 1 

1570 


.byte $00 


2510 

bne vll 

; => XOO 

1580 


.text"erase 


2520.endmacro 


1590 


.byte $00 


2530; 



1600 


.text"1ine 


2540-macro 

cur 


1610 


.byte $00 


2550 

lda #12 

; 12. Zeile 

1620 


.text"char 


2560 

sta ycur 

; in ZP schreiben 

1630 


■byte $00 


2570 

lda #$00 

; 0. Spalte 

1640 


.text"ho 


2580 

sta xcur 

; ln ZP schreiben 

1650 


.byte $00 


2590 

jmp Cursor 

; Cursor setzen und 

1660 


• text"sa 




Routinenende 

1670 


.byte $00 


2600.endmacro 


1680 


.text"lo 


2610; 



1690 


.byte $00,-$00 


2620;*** Label: Rasterzeileninterrupt *** 

1700} 




2630; 



1710;*** 

Hilfszellen *** 


2640.global irq=$03l4 

; IRQ-Vektor 

1720; 




2650.global raster=$d012 

; Rasterzeilen Register; 

1730akku 


.byte $00 




msb (7.Bit) = raster-1 

1740befnr 


.byte $00 


2660.global rirqen=$d01a 

; VIC-IRQ Enable Register 

1750; 




2670.global reqirq=$d019 

; VIC-IRQ Request Register 

2000;********************************* 




2010;*** 

Rasterzeileninterrupt *** 

Listing 1. Der Sourcetext der Basic-Erweiterung 

2020;********************************* 

»SPLIT-SCREEN.SRC« im Giga-Ass-Format. 
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2680.global ciairq=$de0d 

; CIA1 IRQ Kontroll 

3330 

bne irqwait 




Register 

3340; 



2690.global entirq=$ea31 

; CIA IRQ Routine 

3350 

txt 

; Grafik aus- Textbild- 

2700.global endirq=$ea81 

; Ende der normalen IRQ- 



schirm einschalten 



Routine 

3360; 



2710; 



3370 

lda #$00 

; 0. Zeile, Umschaltung 

2720;*** 

Init: Vektoren verbiegen, IRQ zulassen *** 



auf Grafik 

2730; 



3380 

sta raster 

; in Register schreiben 

2740Ir 

sei 

; Interrupt sperren 

3390 

lda raster-1 

; msb (7.Bit) löschen 

2750; 



3400 

and #$7f 


2760 

lda # < (mainirq); IRQ-Vektor auf eigene 

3410 

sta raster-1 




IRQ Routine verbiegen 

3420; 



2770 

sta irq 

; lsb 

3430 

cli 

; Interrupt wieder 

2780 

lda # >(mainirq) 



zulassen 

2790 

sta irq+1 

; msb 

3440 

Jmp endirq 

; zum Ende der IRQ-Routine 

2800; 



3450; 



2810 

lda #$00 

; Rasterzeile 0 (oberhalb 

3460; *** 

Rasterzeileninterrupt wieder ausschalten *** 



des Bildschirmfensters) 

3470; 



2820 

sta raster 

; in Register schreiben 

34801a 

sei 

; Interrupt sperren 

2830 

lda raster- 

1 ; msb (7.Bit) löschen 

3485; 



2840 

and #$7f 


3490 

lda #$00 

; Raster IRQ ausschalten 

2850 

sta raster- 

1 

3500 

sta rirqen 

; in Register schreiben 

2860; 



3510; 



2870 

lda #«10000001; RoGtor IRQ zulassen 

3520 

lda # <(entirq); IRQ-Vektor wieder 

2880 

sta rirqen 




hersteilen 

2890; 



3530 

sta irq 

; lsb 

2900 

lda #128 

; timer-irq aus 

3540 

lda # > (entirq) 

2910 

sta $dc0e 


3550 

Sta irq+1 

; msb 

2920; 



3560; 



2940 

cli 

; Interrupt wieder 

3570 

lda #1 

; timer-irq ein 



zulassen 

3580 

sta $dc0e 


2950; 



3590; 



2960;*** 

Bildschirm und Video-RAM löschen, Cursor 

3600 

txt 

; Grafik aus-, Text- 


setzen *** 




bildschirm einschalten 

2970; 



3610; 



2980 

jsr clrscr 

; Textbildschirm löschen 

3620 

cli 

; Interrupt wieder 

2990 

vram 

; Videoram löschen 



zulassen 

3000 

cur 

; Cursor setzen 

3630 

rts 

; Routinenende 

3010; 


S<*£R Ol 

1LI !38w*. 



3020;*** 

veränderte IRQ-Routine *## 

4000;********************************* 

3030; 



4010;*** 

Grafik löschen 

*** 

3040mainirq sei 

; Interrupt sperren 

4020;###*xx###*****x#x***x#*#####*x#** 

3050 

lda reqirq 

; IRQ von Rasterstrahl- 

4030; 



3060 

sta reqirq 

; Register 

Kon unrl 

4040gl 

lda # >(bitmap); Bitmapadresse in ZP 


löschen 

2070 bmi rasterirq ; zur Raster IRQ Routine 

3080 lda ciairq ; löschen des CIA1 

Kontroll Register 
3090 cli ; Interrupt Mieder 

zulassen 

3100 jmp endirq ; zum Ende der normalen 

IRQ Routine 

3110; 

3120;**» Raster IRQ Routine *** 


3130; 
3l40rasterirq sei 


3150 

lda 

raster 

3170 

bne 

textfe 

3180; 



3190 

gra 


3200; 



3210 

lda 

#$91 

3220 

sta 

raster 

3230 

lda 

raster-1 

3240 

and 

#$7f 

3250 

sta 

raster-1 

3260; 



3270 

cli 


3280 

jmp 

entirq 

3290; 



3300textfe 

ldx 

#$07 

33101rqwait 

nop 


3320 

dex 



Interrupt sperren 
Rasterzeilen-Register 
auslesen 
= > raster = $91 

Grafik einschalten 

; 145. Rasterzeile, 
Umschaltung auf Text 
ln Register schreiben 
msb (7.Bit)löschen 


Interrupt wieder 
zulassen 

zur CIA IRQ Routine 

; Wartesehleife, bis der 
Rasterstrahl im Rand ist 


schreiben 


4050 

sta help2 

; msb 

4060 

lda # <(bitmap) 

4070 

4080; 

sta helpl 

; lsb 

4090 

ldx #$20 

; äußerer Sehleifen- 
index, 32 mal 

4l00gl2 

tay 

; innerer Schleifenindex Y 
auf 0 setzen 

4ll0gll 

sta (helpl),y 

; Nullbyte in Bitmap 
schreiben 

4120 

lny 

; Y + 1, innere Schleife 

4130 

bne gll 

; => Y< >0 

4l40 

lnc help2 

; msb der Bitmapposition 
erhöhen 

4150 

dex 

; X - 1, 'äußere Schleife 

4160 

4170; 

bne gl2 

; => XOO 

4180 

rts 

; => X=0, 32*256 

Sohleifendurchlfiu fe, 

4190; 


Routinenende 


4200; 

5000;********************************* 
5010;*** Set Point, Erase Point *** 
5020;********************************* 
5030; 

5040;*** Labels *** 

5050; 

5060.global bal=$f9 
5070.global bah=$fa 
5080.global ywert=$fb 
5090.global xwertl=$l4 
5100.global xwerth=$15 


Byte-Adresse low 
Byte-Adresse high 
y-Koordinate 
x-Koordinate low 
x-Koordinate high 
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5110.global chkcom=$aefd 

; auf Komma im Basictext 

5740; 





prüfen 

5750potl 

.byte $80,$40,$20,$10 

5120.global getpar=$b7eb 

; holt 16-Bit integer Wert 

5760 

.byte $08,$04,$02,$01 



in $14/$15 

5770; 



5130; 


und 8-Blt integer Wert 

5780; 





in X-Register 

5790;*** 

Erase Point *** 


5140; 



5800; 



5150;*** 

Makro: Berechnung 

#*# 

5810ep 

jsr chkcom 

; auf Komma prüfen 

5160; 



5820 

jsr getpar 

; x und y holen 

5170.macro 

calc 

; Bereohnungsteil für Set 

5830 

stx ywert 

; X(x) in ZP schreiben 



Point und Erase 

5840; 





Point 

5850 

calc 

; Byte und Bit errechnen 

5180 

lda #$00 

; bal löschen 

5860; 



5190 

sta bal 


5870 

lda pot2,x 

; Byte aus Tabelle lesen 

5200; 



5880 

and (bal),y 

; Byte mit Grafikbyte 

5210 

lda yuert 

; y in Akku 



verknüpfen 

5220 

lsr 

; [y/8] 

5890 

sta (bal),y 

; verknüpftes Byte 

5230 

lsr 




zurückschreiben 

5240 

lsr 


5900; 


* 

5250; 



5910 

rts 

; Routinenende 

5260 

sta bah 

; Akku([y/8])*5 = 

5920; 





Akku*4 + Akku 

5930;»** 

Tabelle mit den 

invertierten 2er Potenzen 

5270 

asl 


5940; 



5280 

asl 


5950pot2 

•byte $7f,$bf,$df,$ef 

5290 

ade bah 


5960 

.byte $f7,$fb,$fd,$fe 

5300; 



5970; 



5310 

lsr 

; Akku(5*[y/8])*64 = 

7000;********************************* 



Akku*256/4 

7010;*** 

Line-Routine 

*** 

5320 

ror bal 

; => msb -> lsb und 16-Bit 

7020;********************************* 



Division mit 4 

7030; 



5330 

lsr 


7040;*** 

Parameter holen 

*** 

5340 

ror bal 


7050; 



5350; 



70601n 

jsr chkcom 

; auf Komma prüfen 

5360 

ade # >(bitraap); Bitmap hinzuaddieren 

7070 

jsr getpar 

; xl und yl holen 

5370 

sta bah 

; Akku(320*[y/8]+$8000) 

7080; 





speichern 

7090 

stx ywert 

; yl ln ZP ablegen 

5380; 



7100 

lda $14 

; lsb(xl) 

5390 

lda xwertl 

; lsb(x) 

7110 

sta xll 

; Zwischenspeichern 

5400 

and #$f8 

; [x/8]*8 

.11- 

lda $15 

; msb(xl) 

5410; 



7130 

sta xlh 

; Zwischenspeichern 

5420 

ade bal 

; 16-Bit Addition: 

7140; 



5430 

sta bal 

; Akku([x/8]*8) + bal/bah 

7150 

jsr chkcom 

; auf Komma prüfen 

5440 

lda xwerth 

; msb(x) 

7160 

jsr getpar 

; x2 und y2 holen 

5450 

ade bah 

; wird unverändert 

7170; 





hinzuaddiert 

7180 

stx y2 

; y2 speichern 

5460 

sta bah 


7190 

lda $14 

; lsb(x2) 

5470; 



7200 

sta x21 

; speichern 

5480 

lda yuert 

; y-[y/8.]*8, Rest der 

7210 

lda $15 

; msb(x2) 

Division y/8 


7220 

sta x2h 

; speichern 

5490 

and #$07 


7230; 



5500; 



7240 

lda xll 

; zwischengespeicherter 

5510 

tay 

; als Index in Y verwenden 



xl-Wert in ZP ablegen 

5520; 



7250 

sta xwertl 

; lsb 

5530 

lda xwertl 

; lsb(x) 

7260 

lda xlh 


5540 

and #$07 

; x-[x/8]*8, ergibt 

7270 

sta xwerth 

; msb 



Bit-Nummer 

7280; 



5550; 



7290 

cid 

; Dezimalmodus löschen 

5560 

tax 

; als Index in X verwenden 

7300; 



5570.endmaoro 


7310;*** 

Beginn der Strukturierung *** 

5580; 



7320; 



5590;*** 

Set Point *** 


7330;— 



5600; 



7340; 



56l0sp 

jsr chkcom 

; auf Komma prüfen 

7350 

sec 

; dx ■ x2 - xl 

5620 

jsr getpar 

; x und y holen 

7360 

lda x21 

; lsb(x2) 

5630 

stx yuert 

; X(x) in ZP schreiben 

7370 

sbc xwertl 

; minus lsb(xl) 

5640; 



7380 

sta dx 

; Ergebnis in dx 

5650set 

oalo 

; Byte und Bit errechnen 

7390 

lda x2h 

; msb(x2) 

5660; 



7400 

sbc xwerth 

; minus msb(xl) 

5670 

lda potl,x 

; Byte aus Tabelle lesen 

7410 

sta dx+1 

; Ergebnis in dx+1 

5680 

ora (bal),y 

; Byte mit Grafikbyte 



(Hlgh-Byte) 



verknüpfen 

7420; 


, 

5690 

sta (bal),y 

; verknüpftes Byte 

7430;— 





zurückschreiben 

7440; 



5700; 






5710 

rts 

; Routinenende 




5720; 






5730;*** 

Tabelle der 2er Potenzen *** 
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7450 

7460; 

bpi linel 

; => dx > 0, 7. Bit des 

msb ist entscheidend 

8180 

8190 

8200; 
n•r- 

sta yadd 
jmp line6 

; speichern 
; zum nächsten Block 

/ u;- 






7480; 



8220; 



7490 

eor #$ff 

; dx = -dx = not(dx) + 1 

82301ine5 

lda #$01 

; yadd « +1 

7500 

sta dx+1 

; not(msb(dx)), speichern 

8240 

sta yadd 

jabpeichern 

7510 

lda dx 


8250; 






R?60;_ 



7530 

olc 

; 1 addieren 

8270; 



7540 

ade #$01 

; lsb(dx) = lsb(dx) + 1 

82801ine6 

lda dy+1 

; ist dx > dy ? 

7550 

sta dx 


8290 

emp dx+1 

; msb Vergleich 

7560 

bcc notincl 

; => kein Übertrag 

8300 

bcc line7 

; => dx > dy 

7570 

inc dx+1 

; bei Übertrag: msb(dx) = 

8310 

lda dy 




msb(dx) +1 

8320 

emp dx 

; lsb Vergleich 

7580; 



8330 

bcc llne7 

; => dx > dy 

7590notinel 

lda #$ff 

; xadd = -1 = $ffff 

8340; 



7600 

sta xadd 

; lsb 

8350;. 



7610 

sta xadd+1 

; msb 

8360; 



7620 

jmp line2 

; zum nächsten Block 

8370 

lda #$ff 

; lin = -1 = $ff 

7630; 



8380 

sta lin 

; speichern 

7640;. 



8390 

Jmp line8 

; zum nächsten Block 

7650; 



8400; 



76601inel 

lda #$01 

; xadd = +1 = $0001 

8410;. 



7670 

sta xadd 

; lsb 

8420; 



7680 

lda #$00 


843011ne7 

lda #$01 

; lin = +1 = $01 

7690 

sta xadd+1 

; msb 

8440 

sta lin 

; speichern 

7700; 



8450; 



•7r/i n • _ 



P.Z.6n • 



( ( -LU i - 






7720; 



8470; 



77301lne2 

lda dx+1 

; ist dx = 0 ? 

84801ine8 

jsr set 

; Punkt setzen 

7740 

bne line3 

; => dx <> 0 

8490; 



7750 

lda dx 


8500;- 



7760 

bne line3 

; = > dx < > 0 

8510; 



7770; 



85201ine9 

lda ywert 

; ist yl = y2 ? 

7780;- 



8530 

emp y2 

; vergleichen 

7790; 



8540 

bne linelO 

; => yl <> y2 

7800 

lda #$00 

; rest = 0 = $00 


lda xwertl 

; ist xl = x2 ? 

7810 

sta rest 

; lsb 


emp x21 

; lsb(xl) mit lsb(x2) 

7820 

sta rest+1 

; msb 



vergleichen 

7830 

jmp line4 

; zum nächsten Block 

8570 

bne linelO 

; = > xl < > x2 

7840; 



8580 

lda xwerth 


7850;- 



8590 

emp x2h 

; msb(xl) mit msb(x2) 

7860; 





vergleichen 

78701lne3 

lda #$ff 

; rest = -1 = $ffff 

8600 

bne linelO 

; => xl < > x2 

7880 

sta rest 

; lsb 

8610; 



7890 

sta rest+1 

; msb 

8620;- 



7900; 



8630; 



7910;. 



8640 

rts 

; yl = y2 und xl = 

7920; 





x2 = > Ende 

79301ine4 

sec 

; dy = y2 - yl 

8650; 



7940 

lda y2 

; lsb(y2) 

8660;. 



7950 

sbc ywert 

; minus ywert 

8670; 



7960 

sta dy' 

; speichern 

86801inel0 

lda rest+1 

; msb(rest), ist rest < 0 

7970 

lda #$00 

, ; msb(y2) = 0 

8690 

bmi zweigl 

; => 7.Bit des msb gesetzt 

7980 

sbc #$00 

; minus 0 



= > rest < 0 

7990 

sta dy+1 

; speichern 

8700; 



8000; 



8710;. 



8010;- 



8720; 



8020; 



8730zweig2 

sec 

; rest >= 0 =>rcst = 

8030 

bpi llne5 

; => dy > 0 ; 7.Bit des 



rest - dx 



msb ist entscheidend 

8740 

lda rest 

; lsb(rest) 

8040; 



8750 

sbc dx 

; minus lsb(dx) 

8050;. 



8760 

sta rest 

; speichern 

8060; 



8770 

lda rest+1 

; msb(rest) 

8070 

eor #$ff 

; dy ■ -dy ■ not(dy) + 1 

8780 

sbc dx+1 

; minus msb(dx) 

8080 

sta dy+1 

; not(msb(dy)), speichern 

8790 

sta rest+1 

; speichern 

8090 

lda dy 


8800; 



8100 

eor #$ff 

; not(lsb(dy)) 

8810 

clc 

; yl = yl + yadd 

8110 

clc 

; 1 addieren 

8820 

lda ywert 

; yi 

8120 

ade #$01 

> 

8830 

ade yadd 

; yadd addieren 

8130 

sta dy 

; speichern 

8840 

sta ywert 

; speichern 

8140 

bcc notinc2 

; => kein Übertrag 

8850; 



8150 

Inc dy+1 

; Übertrag => msb(dy) = 

8860;. 





msb(dy) + 1 

8870; 



8160; 



8880 

lda lin 

; ist lin > 0 ? 

8170notlnc2 

lda #$ff 

; yadd = -1 = $ff 

8890 

bmi line8 

; => lin < 0 => Punkt 


. 
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setzen 

10300 

jsr getbyt 

j Spalte nach X holen 

8900 

jmp line9 

; => line => 0 

10310 

cpx #40 

; auf Zulässigkeit 

8910; 





prüfen 

8920;- 



10320 

bcs illerr 

; => Spalte >= 40 => Err- 

8930; 



or 



8940zweigl 

clc 

; rest = rest + dy 

10330 

stx spalte 

; speichern 

8950 

Ida rest 

; lsb(rest) 

10340; 



8960 

ade dy 

; lsb(dy) addieren 

10350;*** 

String auf Basictext holen *** 

8970 

sta rest 

; speichern 

10360; 



8980 

lda rest+1 

; msb(rest) 

10370 

jsr chkcom 

; auf Komma prüfen 

8990 

ade dy+1 

; msb(dy) addieren 

10380 

jsr frmevl 

; String aus Basictext 

9000 

sta rest+1 

; speichern 



holen 

9010; 



10390 

jsr erestr 

; Stringverwaltung 

9020 

clc 

; xl = xl + xadd 

10395 

beq illerr 

; Stringlänge = 0 ? => 

9030 

lda xwertl 

; lsb(xl) 



Error 

9040 

ade xadd 

; lsb(xadd) addieren 

10400 

sta strlen 

; Stringlänge speichern 

9050 

sta xwertl 

; speichern 

10410 

lda $22 

; lsb der Stringadresse 

9060 

lda xwerth 

; msb(xl) 

10420 

sta char3+l 

; speichern 

9070 

ade xadd+1 

; msb(xadd) addieren 

10430 

lda $23 

; msb der Stringadresse 

9080 

sta xwerth 

; speichern 

10440 

sta char3+2 

; speichern 

9090; 



10450; 



9100;- 



10460;*** 

Richtung aus Basictext holen *** 

9110; 



10470; 



9120 

lda lin 

; ist lin < 0 ? 

10480 

jsr chKcom 

; auf Komma prüfen 

9130 

bmi line9 

; => lin < 0 

10490 

jsr getbyt 

; Rlchung in X holen 

9140 

jmp line8 

; =>: = 0 => set point 

10500; 



9150; 



10510;*** 

Richtung auswerten *** 

9160;- 






9170; 



10520.; 



9180;*** 

Speicheradressen 

#*# 

10530 

cpx #$00 

; ist Richtung = 0 1 

9190; 



10540 

beq waagrecht 

; => Richtung = 0 

9200x11 

.byte $00 

; lsb(xl) Zwischenspeicher 

10550; 



9210xlh 

.byte $00 

; msb(xl) Zwischenspeicher 

10560 

lda #$40 

; Richtung senkrecht: 

9220yl 

.byte $00 

; yl Zwischenspeicher 



Inkrement ist 

9230x21 

.byte $00 

; lsb(x2) 



$0140 = 320 

9240x2h 

.byte $00 

; msb(x2) 

10570 

sta increm 

; lsb speichern 

9250y2 

■byte $00 

; y2 

10580 

lda #$01 


9260rest 

•byte $00,$00 

; Rest 

10590 

sta increm+1 

; msb speichern 

92701in 

.byte $00,$00 

; Zeiger lin 

1060C- 

jmp charl 

; weiter zur Berechnung 

9280dx 

•byte $00,$00 

; dx = x2 - xl 

10610; 



9290dy 

.byte $00,$00 

; dy = y2 - yl 

10620waagrecht stx increm+1 

; Richtung waagrecht: 

9300xadd 

•byte $00,$00 

; x Step: +1/-1 



Inkrement = 

9310yadd 

.byte $00,$00 

; y Step: +1/-1 



$0008 = 8; msb 

9320; 



10630 

lda #$08 

; lsb 

10000;********************************* 

10640 

sta increm 

; speichern 

10010;*** 

Char 

### 

10650; 

4 


10020;********************************* 

10660;*** 

Position in der Bitmap berechnen *** 

10030; 



10670; 



10040;»** 

Labels *»* 


10680;*** 

Zeile * 320 *** 


10050; 



10690; 



10060.global error=$a437 

; Fehlermeldung ausgeben 

10700charl 

lda #$00 

; lsb(hpoint) = 0 

10070.global frmevl=$ad9e 

; Basicausdruck holen 

10710 

sta hpoint+1 

; speichern 

10080.global erestr=$b6a3 

; Stringverwaltung 

10720; 



10090.global getbyt=$b79e 

; liest 8-Bit integer Wert 

10730 

lda zeile 

; Zelle in Akku; 

von Basiotext ein 




Akku(zeile)*5 « 

10100.global charhi=$d8 

; Hlgh-Byte des 



Akku*4 + Zelle 



Zeichensatzspeicher 

10740 

asl 

; * 2 

10110; 



10750 

asl 

; * 2 

10120;*** 

Fehlermeldung ausgeben *** 

10760 

ade zeile 

; + Zeile 

10130; 



10770; 



10l40illerr ldx #14 

; Fehlernummer in X 

10780 

lsr 

; Akku(5*Zeile)*64 = 

10150 

Jmp error 

; Fehlermeldung ausgeben: 



Akku*256/4 



Illegal Quantlty Error 

10790 

ror hpoint+1 

; => lsb -> msb und 16- 

10160; 





Bit Division mit 4 

10170;*** 

Parameter holen 

#** 

10800 

lsr 


10180; 



10810 

ror hpoint+1 


10190;*** 

Zeile aus Basictext holen *** 

10820 

ade #>(bitmap); Akku(320*Zeile)+Bitmap 

10200; 



10830 

sta hpoint+2 


10210cp 

Jsr chkcom 

; auf Komma prüfen 

10840; 



10220 

jsr getbyt 

; Zelle nach X holen 

10850;*** 

Spalte * 8 + Hpoint *** 

10230 

cpx #13 

; auf Zulässigkeit prüfen 

10860; 



10240 

bcs lllerr 

; => Zeile >= 13 => Error 

10870 

lda spalte 

; Spalte in Akku holen 

10250 

stx zeile 

; speichern 

10880 

asl 

; * 2 

10260; 



10890 

asl 

; X 2 

10270;*** 

Spalte aus Basictext holen *** 




10280; 






10290 

jsr chkcom 

; auf Komma prüfen 
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10900 

asl 

; * 2 

11530 

sta mvchar+2 

; msb speichern 

10910 

bcc addspalte 

; Übertrag ? 

11540; 



10920 

ine hpoint+2 

; msb(hpoint) + 1 

11550;**# Zeichen aus ZSA in Bitmap schreiben ### 

10925 

clc 

; Übertrag löschen 

11560; 



10930addspalte 

ado hpoint+1 

; lsb(hpoint) = 

11570 

sei 

; Interrupt sperren 



lsb(hpoint) + 

11580 

lda $01 

; Prozessorport auslesen 



Spalte # 8 

11590 

sta processor 

; Inhalt sichern 

10940 

sta hpoint+1 

; speichern 

11600 

and #$11111011; ZSA-R0M zum Lesen 

10950 

boo changestr 

; Übertrag ? 



freigeben 

10960 

inc hpoint+2 

; msb(hpolnt) + 1 

11610 

sta $01 

; zurückschreiben 

10970; 



11620; 



10980;*#* String auslesen und wandeln #»* 

11630 

ldy #$07 

; Index für 8 Schleifen- 

10990; 





durchlaufe 

llOOOchangestr ldy #$00 

; Index = 0 

ll640mvchar 

lda $ffff,y 

; Byte aus ZSA-R0M 

HOlOstrloop 

sty Index 

; speichern 



auslesen 

11020; 



H650hpoint 

sta $ffff,y 

; Byte in Bitmap 

11030ohar3 

lda $ffff,y 

; y-tes Zeichen von 



schreiben 



String auslesen 

11660 

dey 

; Index erniedriegen 

11040; 



11670 

bpi mvchar 

; schon fertig ? => Nein, 

11050;#** String wandeln #*# 



Sprung nach mvchar 

11060; 



11680; 



11070 

bmi char5 

; Zeichen > 128 

11690 

lda processor 

; alten Prozessorport- 

11080 

omp #32 

; < 32 ? oder = <Space> 



Zustand wieder holen 

? 



11700 

sta $01 

; speichern 

11090 

beq char6 

; <Space> -> bleibt 

11710 

cli 

; Interrupt wieder 



unverändert 



freigeben 

11110 

bcc nexty 

; Steuerzeichen 

11720; 





überspringen 

11730;##* Bitmap um Inkrement erhöhen ### 

11120charll 

emp #64 

; < 64 ; SonderZeichen ? 

11740; 



11130 

bcc char6 

; Sonderzeichen bleiben 

11750 

clc 

; hpoint + increment 



unverändert 

11760 

lda hpoint+1 

; lsb 

11140 

emp #96 

; < 96 ; Kleinbuchstabe ? 

11770 

ade increm 

; addieren 

11150 

bcs char4 

; 96 =< Zeichen < 128 => 

11780 

sta hpoint+1 

; speichern 



5. Bit löschen 

11790 

lda hpoint+2 

; msb 

11160 

and #$10111111; 6. Bit löschen, da 

11800 

ade lncrem+1 

; addieren 



Kleinbuchstabe 

11810 

sta hpoint+2 

; speichern 

11170 

jmp char6 

; weitermachen 

11820; 



11180char4 

and #$11011111; 5. Bit löschen, da 
Großbuchstabe 


ldy Index 
iny 

; Index in Y 
; + l 

11190 

jmp charö 

; weitermachen 

11850 

cpy Strien 

; ist Index schon 

11200char5 

emp #160 

; < 160 ? Steuerzeichen ? 



Stringlänge ? 

11210 

bcc nexty 

; Steuerzeichen 

11860 

beq eharend 

; Index = Stringlänge => 



überspringen 



Routinenende 

11220 

beq charö 

; <2. Space> -> bleibt 

11870 

jmp strloop 

; => Index < Stringlänge 



unverändert 

11880; 

11890charend 

rts 

; Index = Stringlänge => 

11230 

emp #192 

; < 192 ? Grafikzeichen ? 



Routinenende 

11240 

bcs char7 

; Doppelbelegung 

11900; 



11250 

eor #$11000000; 6. und 7. Bit umkehren 

11910;*## Hilfszellen **# 


11260 

jmp char6 

; weitermachen 

11920; 



11270ehar7 

emp #224 

; =< 224 ? Großbuch- 

11930zeile 

.byte $00 

; Zeile 



staben (Doppelbelegung) 

11940spalte 

.byte $00 

; Spalte 

11280 

beq char9 

; <3. Space> 

11950strlen 

.byte $00 

; Stringlänge 

11300 

and #$01111111; 7. Bit löschen 

11960index 

.byte $00 

; Index 

11320 

emp #127 

; Code = 255 (=127 da 7. 

11970increm 

.byte $00,$00 

; Increment 



Bit gelöscht) 

11980processor .byte $00 

; Prozessorportzustand 

11330 

bne charö 

; weiter 

11990; 



11340 

lda #94 

; 255 -> 94 

12000;#**##**#########*# 


11350 

jmp char6 

; Grafikzeichen, 

12010;### Hardcopy ### 




weitermachen 

12020;*###*#######*#**## 


11360char9 

lda #32 

; < 3. Space > 

12030; 



11385; 



12040;#*# Labels *#* 


11390;#** Char pointer im ZSA berechenen *## 

12050; 



11400; 



12060.global setfls=$ffba 

; Fileparameter setzen 

Il4l0char6 

ldx #$00 

; msb(mvchar) = 0 

12070.global open=$ffc0 

; File eröffnen 

11420 

stx mvchar+2 

; speichern 

12080.global close=$ffc3 

; File schliessen 

11430; 



12090.global chkout=$ffc9 

; CMD-Modus ein 

11440 

asl 

; mvchar *-8 

12100.global clrch=$ffcc 

; CMD-Modus aus 

11450 

rol mvchar+2 


12110.global print=$ffd2 

; Zeichen ausgeben 

11460 

asl 


12120; 



11470 

rol mvchar+2 


12130;**# Makros *** 


11480 

asl 


12140; 



11490 

rol mvchar+2 

; gleichzeitig Carry-Flag 

12150.macro 

esc 

; ESC-Sequenz 



löschen 



übermitteln 

11500 

sta mvchar+1 

; lsb speichern 

12160 

lda # $lb 

; ESC-Sequenz 

11510 

lda #charhi’ 

; msb von Character-ROM 

12170 

Jsr prlnt 

; Zeichen zum Drucker 

11520 

ade mvchar+2 

; addieren 



senden 
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12180.endmacro 


12780 

jsr print 

; CHR$(2)zum Drucker 

12190; 





senden 

12200.macro 

er 

; CR-Sequenz übermitteln 

12790; 



12210 

lda #$0d 

; CR-Sequenz 

12800;*** 

Block Index *** 


12220 

jsr print 

; Zeichen zum Drucker 

12810; 





senden 

12820 

lda #40 

; 40 Blöcke 

12230.endmacro 


12830 

sta block 

; speichern 

12240; 



12840; 



12250.macro 

init 

; Drucker initialisieren 

12850;*** 

ein 8-Byte Block spelgeln «** 

12260 

esc 

; ESC © ; 27 64 ; $lb $40 

12860; 



12270 

lda #$40 

; @ 

12870bkloop ldy #$00 

; Blockschleife 

12280 

jsr print 

; Zeichen zum Drucker 

12880turnl 

ldx #$00 




senden 

12890dummy 

lda $ffff,y 

; Bitmapbyte in Akku 

12290 

er 




einiesen 

12300.endmacro 


12900turn2 

asl 

; Bit aus Bitmapbyte 

12310; 





auslesen 

12320;*** 

OPEN 4,4,1 : CMD 4 

*** 

12910 

rol chr,x 

; Bit in Druckerbyte 

12330; 





reinschieben 

12340hc 

lda #$04 

; logische Filenummer 

12920 

inx 


12350 

ldäc #$04 

; Qeräteadresse 4 für 

12930 

cpx #$08 

; ist X schon 8 ? 



Drucker 

12940 

bne turn2 

; => X <> 8 => Bitmap- 

12360 

ldy #$01 

; Sekundäradresse 1 für 



bytes noch nicht 



Linearkanal 



abgearbeitet 

12370 

jsr aetfls 

; Fileparameter setzen 

12950 

iny 


12380 

jsr open 

; File eröffnen 

12960 

cpy #$08 

; ist Y schon 8 ? 

12390 

ldx #$04 

; logische Filenummer 

12970 

bne turnl 

; => Y<> 8 => Drucker- 

12400 

Jsr chkout 

; Communicatlonn direct 



bytes noch nicht fertig 



(CMD) ein 

12980; 



12410; 



12990;*** 

8-Byte Block drucken *** 

12420;*** ESC @, ESC 3 n, ESC 1 n *** 

13000; 



12430; 



13010 

ldx #$00 

; Index auf 0 setzen 

12440 

init 

; ESC @, Drucker 

13020prnt 

lda chr,x 

; x-tes Druckerbyte in 



initialisieren 



Akku 

12450; 



13030 

jsr print 

; Byte drucken 

12460 

esc 

; ESC 3 n (n = 24), 

13040 

jsr print 

; Byte drucken 



Zeilenvorschub auf 

13050 

inx 

; Index erhöhen 



24/216 Zoll 

13060 

cpx # $08 

; ist X schon 8 ? 

12470 

lda #$33 

. »3 1 

13070 

bne prnt 

; => X <> 8 => nächstes 

12480 

Jsr print 

; Zeichen '3' zum brueker 



Byte drucken 



senden 

13080; 



12490 

lda #$18 

; n = $18 = 24 

13090;*** 

Schleifenfortschaltung *** 

12500 

jsr print 

; CHR$(24) zum Drucker 

13100; 





senden 

13110 

clc 

; Bitmapbyte + 8 

12510 

er 


13120 

lda dummy+1 

; lsb 

12520; 



13130 

ade #$08 

; 8 addieren 

12530 

esc 

; ESC 1 n (n = 12), 

13140 

sta dummy+1 

; speichern 



linker Rand bei 12 

13150 

bcc notinc 

; kein Übertrag 



setzen 

13160 

inc dummy+2 

; => Übertrag, 

12540 

lda #$6c 

; ’l' 



msb(dummy) + 1 

12550 

jsr print 

; Zeichen '1' zum Drucker 

13170; 





senden 

13180notinc dec block 

; block = block - 1 

12560 

lda # $0c 

; n = $0c = 12 

13190 

bne bkloop 

; ist Block schon 0 ? 

12570 

jsr print 

; CHR$(12) zum Drucker 



= > Block <>0 



senden 

13200; 



12580 

er 


13210;*** 

CR senden *** 


12590; 



13220; 



12600;*** 

Routinenvariablen 

initialisieren *** 

13230 

er 


12610; 



13240; 



12620 

lda #<(bitmap); Bitmapadresse im Dummy 

13250;**» 

Schleifenfortschaltung *** 



schreiben 

13260; 



12630 

sta dummy+1 

; lsb 

13270 

dec line 

; line = line - 1 

12640 

lda # >(bitmap) 

13280 

bne lnloop 

; ist Line sohon 0 ? *> 

12650 

sta dummy+2 

; msb 



Line <>0 

12660; 



13290; 



12670 

lda # $0c 

; 12 Zeilen 

13300;*** 

NOT(CMD 4) : CL0SE 4 *** 

12680 

sta line < 

; speichern 

13310; 



12690; 



13320 

init 

; Drucker initialisieren 

12700;*** 

Grafik einsohalten: ESC L nl n2 *** 

13330 

jsr clrch 

; Communication direct 

12710; 





aus 

127201nloop eso 


13340 

lda #$04 

; logische Filenummer 

12730 

lda #$4c 

; 'L' 

13350 

jsr close 

; File schliessen 

12740 

jsr print 

; Zeichen ' L 1 zum Drucker 

13360; 





senden 




12750 

lda #$80 

; nl = $80 = 128 = lsb 




12760 

jsr print 

; CHR$(128) zum Drucker 






senden 




12770 

lda #$02 

; n2 = $02 = 2 = msb 

Listing 1. (Fortsetzung) 
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13370 

rts 

; Routinenende 

14465 

sta adressl 

; in ZP schreiben 

13380; 



14470 

jsr iecout 

; auf seriellen Bus 

13390;*** Hilfszellen *** 




ausgeben 

13400; 



14480 

lda #>(bltmap); msb(bitmap) 

134l0chr 

■ byte $00,$00,$00,$00; Druckerbytes 

14485 

sta adress2 

; in ZP schreiben 

13420 

■byte $00,$00,$00,$00 

14490 

jsr iecout 

; auf seriellen Bus 

13430block 

.byte $00 

; Blockindex 



ausgeben 

134401ine 

.byte $00 

; LineIndex 

14500; 



13450; 



14510;*** 

Bitmap speichern 

*** 

14000;****** 


ausgeben 

14520; 



14110; 



14580 

ldx #$0f 

; $0f00 Bltmapbytes 

14120.global adressl=$fa 

; ZP-Speicher für 



speichern 



lsb (Bitmapbyte) 

I4590save2 

ldy #$00 

; innere Schleife 

14130.global adress2=$fb 

; ZP-Speicher für 

l4600savel 

lda (adressl),y; Bitmapbyte in Akku 



msb (Bitmapbyte) 



holen 

14140;*** Makro *** 


14610 

jsr iecout 

; auf seriellen Bus 

14150; 





ausgeben 

14000;###################### 


14620 

iny 


14010;*** Save-Routine *** 


14630 

bne savel 

; schon 256 Bytes 

14020;********************** 




ausgegeben 7 

14030; 



14640 

inc adress2 

; adress2 = adress2 + 1 

14040;*** Labels *** 


14650 

dex 

; äußeren Schleifen- 

14050; 





Index um 1 erniedrigen 

14060.global 

listen=$ffbl 

; Floppy zum Empfang 

14660 

bne save2 

; schon $0f00 Bytes 



schalten 



abgespeichert? 

14070.global 

salist=$ff39 

; Sekundäradresse für Listen 

14670; 



14080.global 

clsfile=$f642 

; File schließen 

14680;*** 

File schliessen 

t** 

14090.global 

sendnm=$f3d5 

; Filename für LISTEN und 

14690; 





TALK 

14700 

Jsr clsfile 

; File schliessen 

14100.global 

iecout=$ffa8 

; Byte auf seriellem Bus 

14710; 





ausgeben 

14720 

rts 

; Routinenende 

14110; 



14730; 



14120.global 

adressl=$fa 

; ZP-Speicher für 

15000;********************** 




lsb (Bitmapbyte) 

15010;*** 

Load-Routine *** 


14130.global 

adress2=$fb 

; ZP-Speicher für 

15020;********************** 




msb (Bitmapbyte) 

15030; 



14140;*** Makro *** 


15040;*** 

Labels *** 


14150; 


G^ER C 

150*n. 



14160.macro 

filenarae 

; Filename übermitteln 

15060.global talk=$ffb4 

; TALK senden 

14170 

jsr chkcom 

; auf Komma prüfen 

15070.global satalk=$ff96 

; Sekundäradresse für 

14180 

jsr frmevl 

; String holen 



TALK senden 

14190 

jsr erestr 

; Srtingverwalten 

15080.global iecin=$ffa5 

; Zeichen von seriellen 

14200; 





Bus holen 

14210 

sta $b7 

; Filenamenlänge 

15090.global status=$90 

; Statusbyte ST 



speichern 

15100; 



14220 

Ida $22 

; lsb der Adresse auf den 

15110;*** 

File eröffnen *** 



Filenamen 

15120; 



14230 

sta $bb 

; in ZP-Zeiger auf 

151301o 

filename 

; Filname übermitteln 



Filename speichern 

15140; 



14240 

lda $23 

; msb 

15150 

lda #$08 

; Geräteadressc 

14250 

sta $bc 

; in ZP-Zeiger auf 

15160 

sta $ba 

; ZP-Zeiger für 



Filename speichern 



aktuelles Gereät 

14260.endmacro 


15170 

lda #$60 

; Sekundäradresse 

14270; 





0 + $60 

14280;### File eröffnen ### 

15180 

sta $b9 

; ZP-Zeiger für aktuelle 

14290; 





Sekundäradresse 

l4300sa 

filename 

; Filename übermitteln 

15190; 



14310; 



15200 

jsr sendnm 

; Filenamen senden 

14320 

lda #$08 

; Geräteadresse 

15210; 



14330 

sta $ba 

; ZP-Zeiger für 

15220 

lda $ba 

; Geräteadresse 



aktuelles Gerät 

15230 

jsr talk 

; Talk senden 

14340 

lda #$61 

; Sekundäradresse 1 für 

15240 

lda $b9 

; Sekundäradresse 



Speichern + $60 

15250 

jsr satalk 

; Sekundäradresse für 

14350 

sta $b9 

; ZP-Zeiger für aktuelle 



Talk senden 



Sekundäradresse 

15260; 



14360; 



15270;»** 

Programmadresse überlesen *** 

14370 

jsr sendnm 

; Filename senden 

15280; 



14380; 



15290 

Jsr iecin 

; Byte von seriellen Bus 

14390 

lda $ba 

; Geräteadresse 



einiesen 

14400 

jsr listen 

; Listen senden 

15300 

jsr iecin 

; Byte von seriellen Bus 

14410 

lda $b9 

; Sekundäradresse 



einiesen 

14420 

jsr salist 

; Sekundäradresse senden 

15310; 



14430; 



15320;**« 

Bitmap einiesen 

X## 

14440;### Programmadresse $8000 ### 

15330; 



14450; 



15340 

lda # <(bitmap); Bitmapadresse in ZP 

14460 

lda #<(bitmap); lsb(bitmap) 



schreiben 
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15350 

sta adressl 

; lsb 

15360 

lda # >(bitraap) 

15370 

15380; 

sta adress2 

; msb 

15390 

ldx #$0f 

; äußeren Schleifen¬ 
zähler auf $0f setzen 

15400 

ldy #$00 

; inneren Schleifen¬ 
zähler auf $00 setzen 

154l01oadl 

jsr iecln 

; Byte von seriellen Bus 
einiesen 

15420 

sta (adressl), 

y; Byte in Bitmap 
schreiben 

15430 

lda Status 

; Statusbyte ST einiesen 

15440 

bne load2 

; => EOF (End of File) 

15450 

lny 


15460 

bne loadl 

; ist innere Schleifen 
schon abgearbeitet ? 


15470 

inc adress2 

; msb(adre33) - 

msb(adress) + 1 

15480 

dex 


15490 

15500; 

bne loadl 

; schon alle Bytes 
eingelesen ? (-> loadl 
da y=0) 

15510;**» 

15520; 

File schliessen 

**# 

155301oad2 

15540; 

jsr clsfile 

; File schliessen 

15550 

15560; 

rts 

; Routinenende 

15570;*** 

15580; 

Ende des Sourcetextes *** 

Listing 1. (Schluß) 



Name : split-screen cOOO c621 


cOOO : 

: a9 

ff 

85 

37 

a9 

7f 

85 

38 

Oe 

c008 

: a9 

le 

8d 

08 

03 

a9 

cO 

8d 

cO 

cOlO 

: 09 

03 

60 

a9 

e4 

Bd 

08 

03 

c9 

c018 

: a9 

a7 

8d 

09 

03 

60 

20 

73 

b4 

c020 

: 00 

o9 

60 

bO 

19 

c9 

41 

90 

39 

o028 

: 15 

8d 

c3 

cO 

a2 

00 

8e 

c4 

fb 

c030 

: cO 

aO 

00 

ee 

c4 

cO 

bd 

94 

91 

c038 

: cO 

dO 

09 

ad 

c3 

cO 

20 

79 

Oe 

c040 

: 00 

4c 

e7 

a7 

dl 

7a 

dO 

28 

da 

c048 

: c8 

e8 

bd 

94 

cO 

dO 

f 5 

18 

21 

c050 

: 98 

65 

7a 

85 

7a 

90 

02 

e6 

ec 

c058 

: 7b 

ad 

o4 

cO 

Oa 

aa 

bd 

7a 

d5 

c060 

: cO 

8d 

6b 

cO 

bd 

7b 

cO 

8d 

bO 

c068 

: 6c 

cO 

20 

ff 

ff 

4c 

3e 

cO 

19 

c070 

: e8 

bd 

94 

cO 

dO 

fa 

e6 

4c 

95 

c078 

: 31 

oO 

e7 

a7 

13 

cO 

c5 

cO 

c8 

c080 

: 68 

cl 

8e 

cl 

a4 

cl 

ed 

cl 

38 

c088 

: 36 

c2 

93 

c3 

b3 

c4 

87 

c5 

88 

c090 

: d2 

c5 

00 

00 

4f 

46 

46 

00 

85 

c098 

: 49 

52 

51 

00 

54 

45 

58 

54 

d8 

cOaO 

: 00 

47 

43 

4c 

00 

53 

45 

54 

f 7 

cOa8 

: 00 

45 

52 

41 

53 

45 

00 

4c 

00 

cObO 

: 49 

4e 

45 

00 

43 

48 

41 

52 

92 

c0b8 

: 00 

48 

43 

00 

53 

41 

oo 

4c 

85 

cOcO 

: 4f 

00 

00 

00 

00 

78 

a9 

Oc 

92 

c0c8 

: 8d 

14 

03 

a9 

cl 

8d 

15 

03 

38 

cOdO 

: a9 

00 

8d 

12 

dO 

ad 

11 

dO 

7f 

c0d8 

: 29 

ff 

Bd 

11 

dO 

a9 

81 

8d 

c2 

cOeO 

: la 

dO 

a9 

80 

8d 

Oe 

de 

58 

4a 

c0e8 

: 20 

44 

e5 

a9 

dO 

aO 

aO 

84 

76 

cOfO 

: fb 

aO 

00 

84 

fa 

a2 

04 

91 

c4 

cOf 8 

: fa 

c8 

dO 

fb 

e6 

fb 

ca 

dO 

25 

clOO 

: f 6 

a9 

Oc 

85 

d6 

a9 

00 

85 

44 

cl08 

: d3 

4c 

10 

e5 

78 

ad 

19 

dO 

bd 

cllO 

: 8d 

19 

dO 

30 

07 

ad 

Od 

de 

30 

cll8 

: 58 

4c 

81 

ea 

78 

ad 

12 

dO 

33 

cl20 

: dO 

20 

a9 

3b 

Bd 

11 

dO 

a9 

ca 

0128 

: 80 

8d 

18 

dO 

a9 

01 

8d 

00 

68 

cl30 

: dd 

a9 

91 

8d 

12 

dO 

ad 

11 

78 

0138 

: dO 

29 

7f 

8d 

11 

dO 

58 

4o 

cO 

cl40 

: 31 

oa 

a2 

07 

ea 

ca 

dO 

fc 

b2 

0148 

: a9 

lb 

Bd 

11 

dO 

a9 

15 

8d 

ce 

ol 50 

: 18 

dO 

a9 

03 

8d 

00 

dd 

a9 

3f 

cl58 

: 00 

8d 

12 

dO 

ad 

11 

dO 

29 

b6 

cl60 

: 7f 

Bd 

11 

dO 

68 

4c 

81 

ea 

c8 

0168 

: 78 

a9 

00 

8d 

la 

dO 

a9 

31 

98 

cl70 

: Bd 

14 

03 

a9 

ea 

8d 

15 

03 

73 

cl78 

: a9 

01 

8d 

Oe 

de 

a9 

lb 

6d 

6a 

ol80 

: 11 

dO 

a9 

15 

8d 

18 

dO 

a9 

37 

ol88 

: 03 

8d 

00 

dd 

58 

60 

a9 

80 

3e 

ol90 

: 85 

fb 

a9 

00 

85 

fa 

a2 

20 

78 

ol98 

: aß 

91 

fa 

c8 

dO 

fb 

06 

fb 

61 

claO 

: ca 

dO 

f 5 

60 

20 

fd 

ae 

20 

49 

cla8 

: ob 

b7 

86 

fb 

a9 

00 

85 

f 9 

34 

clbO 

: a5 

fb 

4a 

4a 

4a 

85 

fa 

Oa 

00 

clb8 

: Oo 

65 

fa 

4a 

66 

f 9 

4a 

66 

a9 

clcO 

: f 9 

69 

80 

85 

fa 

ab 

14 

29 

be 

clc8 

: f8 

65 

f9 

85 

f 9 

a5 

15 

65 

8e 

cldO 

: fa 

85 

fa 

a5- fb 

29 

07 

a8 

77 

cldB 

: a5 

14 

29 

07 

aa 

bd 

e5 

cl 

66 

oleO 

: 11 

f 9 

91 

f 9 

60 

80 

40 

20 

dd 

cle8 

: 10 

08 

04 

02 

01 

20 

fd 

ae 

a4 

clfO 

: 20 

eb 

b7 

86 

fb 

a9 

00 

85 

dd 


cif 8 

: f 9 

a5 

fb 

4a 

4a 

4a 

85 

fa 

Of 

c200 

: Oa 

Oa 

65 

fa 

4a 

66 

f 9 

4a 

lc 

c208 

: 66 

f 9 

69 

BO 

85 

fa 

ab 

14 

o4 

c210 

: 29 

f 8 

65 

f 9 

85 

f 9 

a5 

15 

37 

c218 

: 65 

fa 

85 

fa 

a5 

fb 

29 

07 

a8 

c220 

: a8 

a5 

14 

29 

07 

aa 

bd 

2e 

de 

C228 

: c2 

31 

£9 

91 

f9 

60 

7f 

bf 

53 

C230 

: df 

ef 

f 7 

fb 

fd 

fe 

20 

fd 

d8 

c238 

: ae 

20 

eb 

b7 

86 

fb 

a5 

14 

ef 

c240 

: 8d 

7c 

c3 

aS 

15 

8d 

7d 

c3 

ec 

c248 

: 20 

fd 

ae 

20 

eb 

b7 

8e 

81 

dO 

c250 

: c3 

a5 

14 

8d 

7f 

c3 

a5 

15 

73 

c258 

: 8d 

80 

c3 

ad 

7c 

c3 

85 

14 

fO 

c260 

: ad 

7d 

c3 

85 

15 

d8 

38 

ad 

c2 

c268 

: 7f 

c3 

e5 

14 

8d 

86 

c3 

ad 

3c 

c270 

: 80 

c3 

e5 

15 

Bd 

87 

c3 

10 

32 

c278 

: 20 49 ff 8d 

87 

e3 .. 1 

86 

49 

c280 

: c3 

49 

ff 

18 

69 

01 

Bd 

86 

cd 

c288 

: c3 

90 

03 

ee 

87 

c3 

a9 

ff 

6f 

c290 

: 8d 

8a 

c3 

8d 

8b 

c3 

4c 

a3 

54 

c298 

: c2 

a9 

01 

8d 

8a 

c3 

a9 

00 

8e 

c2a0 

: 8d 

8b 

c3 

ad 

87 

c3 

dO 

10 

93 

c2a8 

: ad 

86 

c3 

dO 

Ob 

a9 

00 

8d 

bc 

c2b0 

: 82 

c3 

Bd 

83 

c3 

4c 

cO 

c2 

Of 

c2b8 

: a9 

ff 

8d 

82 

c3 

8d 

83 

c3 

53 

c2c0 

: 38 

ad 

81 

c3 

e5 

fb 

8d 

88 

2d 

c2c8 

: c3 

a9 

00 

e9 

00 

8d 

89 

c3 

b7 

c2d0 

: 10 

ld 

49 

ff 

8d 

89 

c3 

ad 

51 

c2d8 

: 88 

e3 

49 

ff 

18 

69 

01 

8d 

80 

c2e0 

: 88 

c3 

90 

03 

ee 

89 

c3 

a9 

6c 

c2e8 

: ff 

8d 

8c 

c3 

4c 

f 4 

c2 

a9 

14 

c2f0 

: 01 

Bd 

He 

c3 

ad 

89 

c3 

cd 

25 

c2f 8 

: 87 

c3 

90 

10 

ad 

88 

c3 

cd 

51 

c300 

: 86 

c3 

90 

OB 

a9 

ff 

8d 

84 

67 

c308 

: c3 

4c 

11 

c3 

a9 

01 

8d 

84 

90 

c310 

: c3 

20 

ac 

cl 

a5 

fb 

cd 

81 

bb 

c31B 

: c3 

dO 

Of 

a5 

14 

cd 

7f 

c3 

fl 

c320 

: dO 

08 

a5 

15 

cd 

80 

c3 

dO 

92 

c328 

: 01 

60 

ad 

83 

c3 

30 

23 

38 

fO 

c330 

: ad 

82 

c3 

ed 

86 

c3 

8d 

82 

Bf 

c338 

: c3 

ad 

83 

c3 

ed 

87 

c3 

8d 

70 

c340 

: 83 

c3 

18 

a5 

fb 

6d 

8c 

c3 

44 

C348 

: 85 

fb 

ad 

84 

c3 

30 

c2 

4c 

28 

c350 

: 14 

c3 

18 

ad 

82 

c3 

6d 

88 

Of 

c358 

: c3 

8d 

82 

c3 

ad 

83 

c3 

6d 

de 

o360 

: 89 

c3 

8d 

83 

c3 

18 

a5 

14 

5a 

o368 

: 6d 

8a 

c3 

85 

14 

a5 

15 

6d 

59 

c370 

: 8b 

c3 

85 

16 

ad 

84 

c3 

30 

4f 

c378 

: 9b 

4c 

11 

c3 

00 

00 

00 

00 

f 6 

c380 

: 00 

00 

00 

00 

00 

00 

00 

00 

81 

c388 

: 00 

00 

00 

00 

00 

00 

a2 

Oe 

2f 

c390 

: 4c 

37 

a4 

20 

fd 

ae 

20 

9e 

b8 

c398 

: b7 

eO 

Od 

bO 

fl 

Be 

ac 

c4 

e8 

c3a0 

: 20 

fd 

ae 

20 

9e 

b7 

eO 

28 

ea 

c3a8 

: bO 

e4 

8e 

ad 

c4 

20 

fd 

ae 

c6 

c3b0 

: 20 

9e 

ad 

20 

a3 

b6 

fO 

d6 

fO 

c3b8 

: 8d 

ae 

c4 

a5 

22 

8d 

19 

c4 

ff 

c3c0 

: ab 

23 

8d 

la 

c4 

20 

fd 

ae 

40 

c3c8 

: 20 

9e 

b7 

fO 

Od 

a9 

40 

8d 

7d 

c3d0 

: bO 

c4 

a9 

01 

8d 

bl 

c4 

4c 

7f 

c3d8 

: e2 

c3 

8e 

bl 

c4 

a9 

08 

8d 

4a 

c3e0 

: bO 

c4 

a9 

00 

8d 

81 

c4 

ad 

bO 

c3e8 

: ac 

c4 

Oa 

Oa 

6d 

ac 

c4 

4a 

9e 

c3f0 

: 6e 

81 

c4 

4a 

6e 

81 

c4 

69 

72 

c3f 8 

: 80 

8d 

82 

c4 

ad 

ad 

c4 

Oa 

e7 


c400 

Oa 

Oa 

90 

04 

ee 

82 

c4 

18 

fa 

c408 

6d 

81 

o4 

8d 

81 

c4 

90 

03 

9f 

c410 

ee 

82 

c4 

aO 

00 

8c 

af 

c4 

31 

c418 

b9 

ff 

ff 

30 

18 

c9 

20 

fO 

09 

c420 

34 

90 

7c 

c9 

40 

90 

2e 

c9 

c9 

c428 

60 

bO 

05 

29 

bf 

4c 

55 

c4 

84 

c430 

29 

df 

4c 

55 

c4 

c9 

aO 

90 

45 

c438 

66 

fO 

la 

c9 

cO 

bO 

05 

49 

Oe 

c440 

cO 

4c 

55 

c4 

c9 

eO 

fO 

Ob 

92 

c448 

29 

7f 

c9 

7f 

dO 

07 

a9 

5e 

3c 

c450 

4c 

55 

c4 

a9 

20 

a2 

00 

8e 

el 

C458 

7f 

c4 

Oa 

2e 

7f 

c4 

Oa 

2e 

24 

c460 

7f 

c4 

Oa 

2e 

7f 

c4 

8d 

7e 

db 

c468 

c4 

a9 

d8 

6d 

7f 

c4 

8d 

7f 

38 

c470 

c4 

78 

a5 

01 

8d 

b2 

c4 

29 

ce 

c478 

fb 

85 

01 

aO 

07 

b9 

ff 

ff 

c8 

c480 

99 

ff 

ff 

88 

10 

f 7 

ad 

b2 

07 

c488 

c4 

85 

01 

58 

18 

ad 

81 

c4 

d9 

c490 

6d 

bO 

c4 

8d 

81 

c4 

ad 

82 

32 

c498 

c4 

6d 

bl 

c4 

8d 

82 

c4 

ac 

71 

c4a0 

af 

c4 

c8 

cc 

ae 

c4 

fO 

03 

58 

c4a8 

4c 

15 

c4 

60 

00 

00 

00 

00 

bc 

c4bO 

00 

00 

00 

a9 

04 

a2 

04 

aO 

8c 

c4b8 

01 

20 

ba 

ff 

20 

cO 

ff 

a2 

c5 

c4c0 

04 

20 

c9 

ff 

a9 

lb 

20 

d2 

eO 

c4c8 

ff 

a9 

40 

20 

d2 

ff 

a9 

Od 

9e 

c4d0 

20 

d2 

ff 

a9 

lb 

20 

d2 

ff 

8c 

c4d8 

a9 

33 

20 

d2 

ff 

a9 

18 

20 

6b 

c4eO 

d2 

ff 

a9 

Od 

20 

d2 

ff 

a9 

aa 

c4e8 

lb 

20 

d2 

ff 

a9 

6c 

20 

d2 

ec 

c4f0 

ff 

a9 

Oc 

20 

d2 

ff 

a9 

Od 

b9 

c4f 8 

20 

d2 

ff 

a9 

00 

8d 

28 

c5 

4f 

c500 

a9 

80 

8d 

29 

c5 

a9 

Oc 

Bd 

67 

c508 

86 

c5 

a9 

lb 

20 

d2 

ff 

a9 

2a 

c510 

4c 

20 

d2 

ff 

a9 

80 

20 

d2 

c6 

c518 

ff 

a9 

02 

20 

d2 

ff 

a9 

28 

95 

C520 

8d 

85 

c5 

aO 

00 

a2 

00 

b9 

7e 

c528 

ff 

ff 

Oa 

3e 

7d 

o5 

e8 

eO 

dd 

c530 

08 

dO 

f 7 

c8 

cO 

08 

dO 

od 

23 

c538 

a2 

00 

bd 

7d 

c5 

20 

d2 

ff 

a2 

cS40 

20 

d2 

ff 

eB 

eO 

08 

dO 

f 2 

5e 

C548 

18 

ad 

28 

c6 

69 

08 

8d 

28 

57 

c550 

c5 

90 

03 

ee 

29 

c5 

ce 

85 

03 

C658 

c5 

dO 

c8 

a9 

Od 

20 

d2 

ff 

Oa 

c560 

ce 

86 

c5 

dO 

a5 

a9 

lb 

20 

51 

c568 

d2 

ff 

a9 

40 

20 

d2 

ff 

a9 

98 

c570 

Od 

20 

d2 

ff 

20 

cc 

ff 

a9 

fe 

c578 

04 

20 

c3 

ff 

60 

00 

00 

00 

83 

c580 

00 

00 

00 

00 

00 

00 

00 

20 

cl 

0588 

fd 

ae 

20 

9e 

ad 

20 

a3 

b6 

90 

c590 

85 

b7 

a5 

22 

85 

bb 

a5 

23 

b2 

c598 

85 

bc 

a9 

08 

85 

ba 

a9 

61 

7e 

c5a0 

85 

b9 

20 

d5 

f 3 

a5 

ba 

20 

6o 

c5a8 

bl 

ff 

a5 

b9 

20 

93 

ff 

a9 

eb 

c5bO 

00 

BB 

fa 

20 

a8 

ff 

a9 

80 

68 

c5b8 

85 

fb 

20 

a8 

ff 

a2 

Of 

aO 

ea 

c5cO 

00 

bl 

fa 

20 

a8 

ff 

c8 

dO 

ab 


Listing 2. Die Basic-Erweiterung 
»SPLIT-SCREEN« bietet Ihnen 
viele leistungsfähige Befehle. Bitte 
mit dem MSE (Seite 159) eingeben. 
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KURS 


C64 


c5c8 

f 8 

e6 

fb 

ca 

dO 

fl 

20 

42 

2d 

c5f 8 

96 

ff 

20 

a5 

ff 

20 

a5 

ff 

e2 

c5d0 

f6 

60 

20 

fd 

ao 

20 

9e 

ad 

80 

c600 

a9 

00 

85 

fa 

a9 

80 

85 

fb 

17 

□5d8 

20 

a3 

b6 

85 

b7 

a5 

22 

85 

64 

c608 

a2 

Of 

aO 

00 

20 

a5 

ff 

91 

ac 

cSeO 

bb 

a& 

23 

85 

bc 

a9 

08 

85 

2c 

c610 

fa 

a5 

90 

dO 

08 

e8 

dO 

f 4 

Of 

c5e8 

ba 

a9 

60 

85 

b9 

20 

d5 

f 3 

lb 

c618 

e6 

fb 

ca 

dO 

ef 

20 

42 

f 6 

bf 

o5fO 

ab 

ba 

20 

b4 

ff 

a5 

b9 

20 

e5 

c620 

60 

00 

ff 

00 

ff 

00 

ff 

00 

80 


Listing 2 (Schluß) 


lOOOjxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1370.global cntirq=$ea31 

; CIA IRQ Routine 

1010 ;xxx xxx 

1380.global endirq=$ea81 

; Ende der normalen 

1020;xxx Kurs xxx 



IRQ Routine 

1030;xxx Zaubereien mit Grafik und xxx 

1390; 



1040;xxx Assembler xxx 

1400;xxx 

Init: Vektoren 

verbiegen, IRQ zulassen 

1050;xxx xxx 

1410; 



1060;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

l420ir 

sei 

; Interrupt sperren 

1070;xxx xxx 

1430; 



1080;xxx Farbumschaltung durch xxx 

1440 

lda #<(mainirq); IRQ-Vektor auf 

1090;xxx Rasterzeileninterrupt xxx 



eigene IRQ-Routine 

1100;xxx um die Laenge der Warte- xxx 



verbiegen 

1110 ;xxx schleife zu ermitteln, xxx 

1450 

sta irq 

; lsb 

1120;xxx bis der Rasterstrahl xxx 

1460 

lda # >(mainirq) 

1130;xxx sich lm rechten Bild- xxx 

1470 

sta irq+1 

; msb 

1140;xxx Schirmrand befindet xxx 

1480; 



U50;xxx xxx 

1490 

lda #$00 

; Rasterzeile 0 

1160;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



(oberhalb des 

1170;xxx xxx 



Bildschirmfensters) 

1180;xxx 1988 by Thomas Lipp xxx 

1500 

sta raster 

; in Register 

1190;xxx 8000 Muenchen 82 xxx 



schreiben 

1200 ;xxx xxx 

1510 

lda raster- 

1 ; msb (7.Bit) 

1210 ;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



loeschen 

1220 ; 

1520 

and #$7f 


1230.base $c000 

1530 

sta raster- 

1 

1240.Start $c000 

1540; 



1250; 

1550 

lda #$10000001; Raster IRQ zulassen 

1260;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1560 

sta rirqen 


1270;xxx Rasterzeileninterrupt xxx 

1570; 



1280;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

15BU 

lda #128 

; timer-irq aus 

1290; 

1590 

sta $dc0e 


1300;xxx Label: Rasterzeileninterrupt xxx 

1600 ; 



1310; 

1610 

cli 

; Interrupt wieder 

1320.global irq=$03l4 ; IRQ-Vektor 



zulassen 

1330.global raster=$d012 ; Rasterzeilen 

1620 ; 



Register; msb 

1630;xxx 

veraenderte IRQ-Routine xxx 

(7.Bit) = raster-1 

1640; 



1340.global rirqen=$d01a ; VIC-IRQ Enable 

I650mainirq sei 

; Interrupt sperren 

Register 

1660 

lda reqirq 

;. IRQ von 

1350.global reqirq=$d019 ; VIC-IRQ Request 



Rasterstrahl ? 

Register 

1670 

sta reqirq 

; Register 

1360.global ciairq=$dcOd ; ciAl IRQ Kontroll 



zurueckschreiben 

Register 



und loeschen 



Comic: Ingo Stein 






























C64 


KURS 


1680 

bmi rasterirq 

; zur Raster IRQ 

1690 

lda ciairq 

Routine 

; loeschen des CIA1 

1700 

cli 

Kontroll- 
Registers 
; Interrupt wieder 

1710 

jmp endirq 

zulassen 
; zum Ende der 

1720; 

1730;*** 

normalen IRQ- 
Routine 

Raster IRQ Routine *** 

1740; 

1750rasterlrq sei 

; Interrupt sperren 

1760 

lda raster 

; Rasterzeilen- 

1770 

bne textfe 

Register auslesen 
; => raster = $91 

1780; 

1790 

lda #$0a 

; Farboode fuer rot 

1800 

sta $d021 

; VIC-Register fuer 

1810; 

1820 

lda #$91 

Hintergrundfarbe 

; 145. Rasterzeile, 

1830 

sta raster 

Umschaltung auf 

Text 

; in Register 

1840 

lda raster-1 

schreiben 

; msb (7.Bit)loeschen 

1850 

and #$7f 


1860 

sta raster-1 


1870; 

1880 

oll 

; Interrupt wieder 

1890 

jmp entirq 

zulassen 

; zur GIA IRQ Routine 

1900; 

1910textfe ldx #$08 

; Harteschleife, bis 

1920irqwait nop 

der Rasterstrahl im 

Rand ist 

; der Wert $08 ist 

1930 

dex 

variabel; 

verändern Sie ihn ! 

1940 

bne irqwait 


1950; 

I960 

lda #$00 

; Farboode fuer 

1970 

sta $d021 

schwarz 

; VIC-Register fuer 

1980; 

1990 

lda #$00 

Hintergrundfarbe 

; 0. Zeile, Umschal- 

2000 

sta raster 

tung auf Grafik 
; in Register 

2010 

lda raster-1 

schreiben 
; msb (7.Bit) 

2020 

and # $7f 

loeschen 

2030 

sta raster-1 


2040; 

2050 

oli 

; Interrupt wieder 

2060 

jmp endirq 

zulassen 

; zum Ende der IRQ- 

2070; 

2080;*** 

Routine 

Rasterzeileninterrupt wieder 

2090; 

2100ia 

aussohalten 

sei 

; Interrupt sperren 

2110; 

2120 

lda #$00 

; Raster IRQ 

2130 

sta rirqen 

ausschalten 
; in Register 

2140; 

2150 

schreiben 

lda #< (entirq); IRQ-Vektor wieder 

2160 

sta irq 

hersteilen 
; lsb 


cmur 


2170 

lda 

#> (entirq) 

2180 

2190; 

sta 

irq+l ; 

2200 

lda 

#1 ; 

2210 

2220 ; 

sta 

$dc0e 

2230 

cli 

) 

2240 

2250; 

rts 

t 


msb 


zulassen 


Listlng 3. Mit »WAIT.SCR« wird ermittelt, wie viele Takt¬ 
zyklen vergehen müssen, damit sich der Rasterzellen¬ 
strahl Im rechten Bildschirmrand befindet. Geben Sie 
»WAIT.SRC« mit dem Assembler «Giga-Ass« aus dem 
Sonderheft 21 ein. 


Name : 

: walt.obJ 




cOOO c082 

cOOO ; 

; 78 

«9 

23 

8d 

14 

03 

a9 

cd 

49 

c008 

: Bd 

15 

03 

a9 

00 

Bd 

12 

d0 

6c 

cOlO ; 

: ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 

: a9 

81 

Bd 

la 

dO 

a9 

80 

8d 

aO 

c020 : 

: Oe 

de 

58 

78 

ad 

19 

dO 

Bd 

c3 

c028 

: 19 

dO 

30 

07 

ad 

Od 

de 

58 

fe 

c030 : 

: 4c 

81 

ea 

78 

ad 

12 

dO 

dO 

57 

c038 

: 16 

a9 

Oa 

8d 

21 

dO 

a9 

91 

b9 

c040 

: Bd 

12 

d0 

ad 

11 

dO 

29 

7f 

fb 

c048 

: Bd 

11 

dO 

58 

4c 

31 

ea 

a2 

de 

c050 

: 08 

ea 

ca 

dO 

fc 

a9 

00 

8d 

d2 

c058 

: ZI 

dO 

a9 

00 

8 d 

12 

dO 

ad 

54 

C060 : 

: 11 

dO 

29 

7f 

8d 

11 

dO 

58 

69 

c068 

: 4c 

81 

ea 

78 

a9 

00 

8 d 

la 

43 

c070 

: dO 

a9 

31 

8 d 

14 

03 

a9 

ea 

e9 

c078 

: 8d 

15 

03 

a9 

01 

8 d 

Oe 

de 

f 4 

c080 

: 58 

60 

8e 

cl 

a4 

cl 

ed 

cl 

78 


Listing 4. 
»WAIT.OBJ« Ist 
der fertige Objekt¬ 
code von Listing 3. 
Für die Eingabe be¬ 
nützen Sie bitte den 
MSE (Seite 159). 


100 

rem demo 1 


105 

gcl 


107 

x2=0:y2=47 


110 

for x = 0 to 318 


114 

xl=x 


116 

yl=sin(x/319*4*n)*47+47 


120 

set.xl.yl 


130 

set.xltl.yl 


140 

set.xl,yl+l 


150 

set.xl4-l.yl4l 


160 

next 


170 

line,0,47,319.47 


180 

line,0,48,319,48 


190 

for x = 0 to 319 stop 16 


200 

line.x,45,x,50 


210 

next 


220 

char,1,0,"U=sin(wt)*Um ' ,0 


225 

irq 


230 

print"dspannung an den enden 
einer rotierenden schleife" 

Listing 5. Mit 

240 

print"« u(mox)= 414,3 v" 

dem Programm 

250 

260 

280 

print" u(min)= -14,3 v” 

print" w = 2 (1/t)" 

print" t = 0.1 s" 

»SINUS DEMO« 
wurde Bild 1 

290 

print" b = 0,5 t" 

erzeugt 


5 irq 

6 gcl 

10 for y=0to6 
20 for x=0to39 
30 s=y*40+x 
35 if s>255 goto 50 
40 char,y,x.chr$(s),0 
50 nextx.y 


Listing 6. Das Programm 
»CHAR DEMO« 
erzeugt Bild 21 
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Mit »Grafik 2001« präsentieren wir Ihnen eine tolle Ergänzung zu »Grafik 2000«. 
Es gibt neue Befehle zum Scrollen oder Verzerren von Grafikausschnitten. 
Lassen Sie sich begeistern von den vielen neuen Möglichkeiten des Programms! 


G R2001« wurde als Ergänzung zu der Befehlserweite¬ 
rung »GRAFIK 2000« aus dem Sonderheft 4 geschrie¬ 
ben, um eine umfassende, flexible und professionelle 
Grafikerweiterung zur Verfügung zu haben, die gerade 
auch in den Grenzen des C64 eine komfortable Grafikver¬ 
arbeitung möglich macht. 

Eine Erleichterung beispielsweise bei der Darstellung 
von Statistikdaten bieten neben den zusätzlich vorhan¬ 
denen GRAFIK 2000-Befehlen vor allem die Rechteck- und 
Blockbefehle, aber auch der Befehl zur Darstellung eines 
gegen die Horizontale gekippten Rechtecks. Die Syntax 
aller neuen Befehle entnehmen Sie bitte Tabelle 1. 

Die Einführung eines Grafik-Cursors, Ausschnittvergrö¬ 
ßerung, Spiegelungsmöglichkeiten, das Einfügen von 
Sprites und nicht zuletzt die Hardcopy-Funktion mit ver¬ 
schiedenen Bildgrößen unterstützen den geplagten Pro¬ 
grammierer in jeder Lage. Zusätzlich wurden noch ein 
Directory-Befehl und ein Befehl zur Ausgabe eines Signal¬ 
tons eingebaut. Bild 1 und 2 zeigen nur einen kleinen Aus¬ 
schnitt dessen, was mit den neuen Befehlen nun möglich 
ist. 


Die ursprünglichen Befehle von GRAFIK 2000 wurden 
durch die Einführung einer dritten Bildebene beim »CHAN- 
GE«-Befehl und des Ersatzes der Modusmarkierung durch 
die programmtechnisch flexiblere Angabe eines Zeichen¬ 
modus verbessert. Auch die horizontale und vertikale Mar¬ 
kierung beziehungsweise Linie wurden durch jeweils einen 
Befehl ersetzt. Der »GLOAD«-Befehl wurde so geändert, 
daß jedes Grafikbild absolut nach $E000 geladen wird. 

Für die zusätzlichen Befehle und den dritten Grafik¬ 
schirm wurde durch eine Oberbegrenzung des Basic- 
Speichers bei $7000 Platz geschaffen. Auch die neuen Be¬ 
fehle werden als Token gespeichert und in die veränderte 
Befehlstabelle integriert. 

Eingabehinweise 


Tippen Sie bitte die Basic-Listings 1 und 5 mit dem Check¬ 
summer ab und speichern sie auf Diskette. Dann geben Sie 
die Listings 2,3,7,8,9,10 und 11 mit dem MSE ein und spei¬ 
chern sie ebenfalls. Die beiden verbleibenden Listings 4 
und 6 brauchen Sie erst später einzugeben. 
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Bild 1. Statistische Präsentationsgrafiken lassen sich mit 
»GR2001« wirkungsvoll darstellen. Ein Demo-Programm 
finden Sie auf der Programmservice-Diskette. 


Die Installation 

Jetzt können Sie GRAFIK 2001 installieren. Gehen Sie 
dazu bitte genau nach der folgenden Anleitung vor! 

Laden Sie das Programm GRAFIK 2000 aus dem Son¬ 
derheft 4 mit dem Befehl 

LOAD "GRAFIK 2000",8 

und starten Sie es mit RUN. Dann geben Sie bitte im Direkt¬ 
modus die Befehle 

P0KE 43,1:POKE 44,64:P0KE 16384,0:NEW 

ein. Dadurch wird der Basic-Start hochgesetzt, um Platz für 
die Erweiterung zu schaffen. Jetzt laden Sie Listing 1 mit 

LOAD "INIT 2001", 8 G'VeR O 

und starten auch dieses mit RUN. Auf der eingelegten 
Diskette (mindestens 42 Blöcke frei) wird dann das neue 
Programm »GR2001« erzeugt. 

Falls Sie das Programm GRAFIK 2000 beziehungsweise 
das Sonderheft 4 nicht besitzen: Auf der Programmservice- 
Diskette zu dieser Ausgabe befindet sich neben allen Li- 
stings und weiteren Demos auch die komplett installierte 
Version von GRAFIK 2001. 

Das Maschinenprogramm mit den zusätzlichen Befeh¬ 
len liegt von $2298-$30E5 und wird nach dem Start von 
»GR2001« durch RUN nach $90C0 verschoben. Die dritte 
Grafikbildebene ist ab $7000 untergebracht. Falls Sie sich 
noch genauer für die interne Aufteilung der Routinen inter¬ 
essieren, sehen Sie in Bild 3 eine Tabelle mit den Token und 
deren Einsprungadressen. Diese Tabelle können Sie sich 



Bild 2. Ein Beispiel für die vielfältig einsetzbare Rechteck- 
Funktion 


auch selbst erstellen, indem Sie bei aktivierter Erweite¬ 
rung Listing 5 (»GR2001. BEFTAB«) laden und starten: 

LOAD "GR2001.BEFTAB", 8,0 < RETURN> 

RUN 

CAD-Programm inklusive 


Nun aber zurück zur Erweiterung. Falls sich auf der Disket¬ 
te ein Basic-Programm mit dem Namen »GRA1« befindet, 
wird es etwa acht Sekunden nach dem Start von GR2001 
oder durch Betätigung der < SPACE > beziehungsweise 
der <C= > Taste automatisch nachgeladen. Es kann ein 
beliebiges Programm sein, beispielsweise auch ein Menü¬ 
programm, um verschiedene Anwendungsprogramme 
nachladen zu können. Listing 4 ist ein Beispiel für ein sol¬ 


DR. H. DOMES, JOSEF MARX STR. 13. A - 8043 GRAZ, AUSTRIA 

■GR2001' 

BEFEHLSTABELLE 




BEFEHL 

SPRUNGZIEL 

POSITION TOKEN 

CLEAR 

51181 

<$C7ED> 

( 50594 

$C5A2 

) 

COLOR 

51228 

<$C81C> 

( 50599 

$C5A7 

) 

MODE 

51321 

<$C879> 

( 50604 

$C5AC 

) 

POINT 

38345 

<$95C9> 

( 50608 

SC5B0 

) 

GCURS 

40006 

<$9C46> 

( 50613 

$C5B5 

) 

BEEP 

40303 

<$9D6F> 

( 50618 

$C5BA 

) 

PSCLINE 

51284 

<$C854> 

( 50622 

SC5BE 

) 

HVLINE 

38389 

<$95F5> 

( 50629 

$C5C5 

) 

RORECHT 

37751 

<$9377> 

( 50635 

$C5CB 

) 

MARK 

38363 

<$95DB> 

( 50642 

$C5D2 

) 

SPRPLOT 

38192 

<$9530> 

( 50646 

SC5D6 

) 

GSAVE 

51438 

<$C8EE> 

( 50653 

$C5DD 

) 

GLOAD 

51477 

<$C915> 

( 50658 

$C5E2 

) 

CHANGE 

38331 

<$95BB> 

( 50663 

SC5E7 

) 

COMB 

51498 

<$C92A> 

( 50669 

SC5ED 

) 

LOWCOL 

51515 

<$C93B> 

( 50673 

$C5F1 

) 

LINF 

38354 

<$95D2> 

( 50679 

$C5F7 

) 

ENLARG 

38451 

<$9633> 

( 50683 

SC5FB 

) 

HCOPY 

39412 

<$99F4> 

( 50689 

$C601 

) 

TEXT 

38412 

<$9600 

( 50694 

$C606 

) 

DISCREEN 

37302 

<$91B6> 

( 50698 

$C60A 

) 

DIR 

40486 

<$9E26> 

( 50706 

$C612 

) 

CIRCLE 

38430 

<$961E> 

( 50709 

SC615 

) 

GTSCREEN 

37405 

<$921D>- 

( 50715 

$C61B 

) 

MIRROR 

38880 

<$97E0> 

( 50723 

$C623 

) 

ELLIPSE 

38421 

<$9615> 

( 50729 

$C629 

) 

BLOCK 

37142 

<$9116> 

( 50736 

$C630 

) 

RECHT 

37056 

<$90C0> 

( 50741 

$C635 

) 

FILL 

52777 

<$CE29> 

( 50746 

$C63A 

> 

INVERS 

51550 

<$C95E> 

( 50750 

$C63E 

) 

SCROLL 

52799 

<$CE3F> 

( 50756 

$C644 

) 

) 

DUPLICATE 

52849 

<$CE71> 

( 50762 

$C64A 

COLPLOT 

51717 

<$CA05> 

( 50771 

$C653 

) 

WINDOW 

52940 

<$CECC> 

( 50778 

$C65A 

) 

) 

PLOT 

51782 

<$CA46> 

( 50784 

$C660 

TSCREEN 

53058 

<$CF42> 

( 50788 

SC664 

) 

PSCREEN 

53085 

<$CF5D> 

( 50795 

$C66B 

) 

CSAVE 

53099 

<$CF6B> 

( 50802 

SC672 

) 

SPRITE 

53219 

<$CFE3> 

( 50807 

$C677 

) 

SSAVE 

53117 

<$CF7D> 

( 50813 

SC67D 

) 

SLOAD 

TEST 

CTEST 

53182 

<$CFBE> 

( 50818 

SC682 

) 

EST 

CTEST 

17363 

<$43D3> 

( 50832 

$C690 

) 


Bild 3. Die Einsprünge und Token der neuen und alten Be¬ 
fehle ausgegeben mit »GR2001.BEFTAB« (Listing 5) 


ches »Boot-Programm«. Bitte geben Sie es bei aktivierter 
GR2001 ein, damit die neuen Tokens richtig gewandelt wer¬ 
den! Das automatische Nachladen von GRA1 nach dem 
Start von GR2001 kann durch die Eingabe der Befehle 
POKE 12481,133:POKE 12482,48 
nach dem Laden von GR2001 unterbunden werden. 

In den Tabellen 1 und 2 finden sich die neuen Befehle mit 
Syntaxhinweisen. Parameter, die nicht unbedingt angege¬ 
ben werden müssen (sogenannte »optionale Parameter«), 
stehen in Klammern. 

Das Programm »CAD2001« (Listing 6) verwendet die Be¬ 
fehle von GR2001. Daher müssen Sie es, ebenso wie Li- 
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GRAFIK-LISTINGS 


sting 4, abtippen, während die Erweiterung aktiviert ist. Es 
handelt sich dabei um ein einfaches Konstruktions- und 
Zeichenprogramm. 

Die Bedienung erfolgt entweder über ein Haupt- und Un¬ 
termenüs oder durch Direktwahl der gewünschten Funk¬ 
tion über Tasten. Das Hauptmenü erreicht man durch zwei¬ 
maliges Drücken der Pfundtaste. Der Menüpunkt wird 
dann durch die Cursortasten ausgewählt und durch die 
RETURN-Taste bestätigt. In den Untermenüs wird ebenso 
verfahren. Eine Direktwahl der Funktionen ist durch 
Drücken der Pfundtaste und der dem Unterprogramm zu¬ 
geordneten Taste möglich. Die Auswahlmöglichkeit ist hier¬ 
bei gegenüberder Wahl durch Hauptmenü und Untermenü 
sogar erweitert, da nicht alle möglichen Funktionen in die 
Menütabelle integriert sind. 

Hat man die gewünschte Funktion gewählt, werden die 
nötigen Eingaben durch Anzeige einer Fußzeile unter¬ 


Befehl 

Funktion, Parameter 

CHANGE (be) 

Wechsel zwischen 3 Grafikschirmen, 
ohne Parameter: Wechsel zwischen 1 und 2 
für be = 1 : Wechsel zwischen 1 und 3 

Schirm 1: SE000 

Schirm 2: $A000 

Schirm 3: $7000 

POINT zm,x,y 

(entspricht SPOINT,CPOINT,IPOINT) 

Punkt an Position x/y im Zeichenmodus zm 


zm =0 : Punkt setzen 
zm =1 : Punkt löschen 
zm =2 : Punkt invertieren 


(Zeichenmodusvereinbarung gilt für alle 
folgenden Befehle) 

LINE zm,x0,y0,x1,y1 

(entspricht SLINE.CLINE.ILINE) 
zm siehe oben. 

MARK mf,x,y 

(entspricht HMARK.VMARK) 
mf =0 horizontale Markierung 


mf =1 vertikale Markierung 

HVLINE hv,z 

(entspricht HLINE.VLINE) 
hv =0 horizontale Linie durch z 
hv =1 vertikale Linie durch z 

TEXT zm,r,b,h,v,a,x,y,aS 


(entspricht STEXT.CTEXT.ITEXT) 
zm siehe oben 

ELLIPSE z m, x ,y,a, b,d w,sw,ew,s 


(entspricht SELLIPSE.CELLIPSE.IELLIPSE) 
zm siehe oben 

CIRCLE zm,x,y,a,b 

(entspricht SCIRCLE.CCIRCLE.ICIRCLE) 
zm siehe oben 


Tabelle 1. Änderungen der alten GRAFIK 2000-Befehle 
(wahlfreie Parameter in Klammern) 


Befehl 

Funktion, Parameter 

GCURS 

Grafikcursor aus 

GCURS 1 

Grafikcursor ein 

GCURS 2 

Grafikcursor setzen 

Reservierte Variablen X°/o,Y% 
werden mit aktueller 

Cursorposition belegt 

Steuerung: 

Joystick Port 2 
oder Cursortasten 

<CBM> <SHIFT> 

Einzelschritt ein 

<CBM> <CTRL> 

Einzelschritt aus 

<CBM> 

Schrittweite = 8 

<CTRL> 

Schrittweite = 1 

BEEP (tf) 

Signalton, 

tf optional variabler Frequenzglide und 
variable Tondauer 

DIR 

Directoryausgabe 


stützt. Die Funktionen können an verschiedenen Stellen 
durch die <F1 >-Taste verlassen werden. 

An Poriphörieoporationen ist das Ausdrucken der Grafi¬ 
ken auf einem MPS 801 oder kompatiblen (803, GP100VC, 
1525) Drucker und das Speichern und Laden von Grafiken 
und Sprites möglich. Zusätzlich zu den unter GR2001 mög¬ 
lichen Programmfunktionen werden noch zwei kleine Ma¬ 
schinenprogramme nachgeladen (Listings 7 und 8). Die 
genaue Tastenbelegung entnehmen Sie bitte Tabelle 3. 

Das Zusatzprogramm »OBLIQUE.OBJ« (Listing 9): 

Durch dieses Maschinenprogramm wird ein rechtecki¬ 
ger Bildausschnitt (linke obere Ecke: xl/yl, rechte untere 
Ecke: x2/y2) als Parallelogramm verzerrt dargestellt. Das 
entspricht der Schrägansicht im Normalriß. Die Position 
des Ergebnisses wird mit dessen linker unterer Ecke (x3/y3) 
angegeben. 


Befehl Funktion, Parameter 

RECHT zm,x1,y1,x2,y2 

Rechteck (xl/yl) linke obere Ecke 
(x2/y2) rechte untere Ecke 
BLOCK zm,x1,y1,x2,y2(,rl,s2) 

Block x1,y1,x2,y2 wie Rechteck 
optional: ri Schraffurrichtung 
(ri=0: horizontal) 

(ri=1: vertikal) 
sw Schraffurabstand 
Default: sw=1:ri=1 
RORECHT zm,x1,y1,wi,H,l2 

Rechteck (xl/yl) Eckpunkt 
im Bogenmaß, 0 = oben 
wi Neigungswinkel 
11,12 Seitenlangen 

DI?rtREEN x1,y1,(,p) Ausschnittvergrößerung aus Hires 
40 x 20 Punkte auf NRM Schirm 
(xl/yl) linke obere Ecke 
p=l optional 40 x 78 Punkte. Ausgabe 
auf Drucker mit 
OPEN4,4:CMD4 

GTSCREEN zm,x1,y1 Ausschnittvergrößerung am 

NRM-Bildschirm wird in Hiresbild eingefügt 
xl.yl) linke obere Ecke, 
gesetzter Punkt = CHR$(209) 

SPRPLOT sn,zm,x1,y1: fügt Sprite in Hiresbild ein 
sn Spritenummer 
zm Zeichenmodus 
xl.yl Koordinaten linke obere Ecke 
ENLAGR em Vergrößerung des linken oberen 
Quadranten 

em =0 Vergrößerung in x und y -Richtung 
em =1 Vergrößerung In x - Richtung 
em =2 Vergrößerung In y - Richtung 
Das ursprüngliche Hiresbild wird dabei 
nach Bildebene 2 ($7000) kopiert 
MIRRRO hv,sz,of Spiegelung 

hv =0 Spiegelung an Y-Achse 
sz:Anzahl der gespiegelten Zeilen (1-25) 
hv =1 Spiegelung an X-und Y-Achse 
sz:Anzahl der gespiegelten Spalten(1-40) 
of =0 vollständige Spiegelung, 
of =1 Spiegelung und Or-Verknüpfung mit 
ursprünglichem Bild. 

hv =0 : of =3 Spiegelung rechts nach links 
hv =0 : of =2 Spiegelung links nach rechts 
hv =1 : of =2 Spiegelung unten nach oben 
hv =1 : of =3 Spiegelung oben nach unten 
HCOPY vg Hardcopy auf MPS 801, MPS 803 o.ä. 

vg =0 200x320 Punkte, 
vg =1 200x640 Punkte (X-Richt. Vergr.) 
vg =2 400x320 Punkte (Y-Richt, Vergr.) 
vg =3 400x640 Punkte (X&Y-Richt. Ver.) 


Tabelle 2. Die Befehlsübersicht zu »GR2001« mit allen Syntax-Hinweisen 
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Die Routine wird mit dem Befehl 

LOAD "OBLIQUE.OBJ",8,1 

(anschließend NEW und < RETURN > eingeben) geladen 
und durch 

SYS 28246, xl,yl,x2,y2,x3,y3,wi 

gestartet. Der Parameter »wi« ist der Verzerrungswinkel. 
Wie wünschen Ihnen viel Vergnügen mit dieser Erweite¬ 


rung. Sie werden bald merken, daß sich das Abtippen ge¬ 
lohnt hat: GR2001 ist eine professionelle Erweiterung mit 
zum Teil einmaligen Befehlen, die auch höchste Ansprüche 
zufriedenstellen dürften. Auf der Programmservice-Disket¬ 
te zu diesem Sonderheft finden Sie neben den Program¬ 
men zu Grafik 2001 noch eine komplette Version, die auch 
schon Grafik 2000 enthält, sowie weitere interessante De¬ 
mos. (Heinz Domes/Nikolaus Heusler/sk) 


Taste 

Funktion 

<£>(einmal) 

Auswahl einer Programmfunktion. 

Rahmen wird rot 

Programm wartet auf folgende Taste: 

<£> (zweimal) 

Auswahl erfolgt über Haupt- und Unter¬ 
menüs 

<,> 

Anzeige der momentanen Grafikcursor¬ 
position in der Fußzeile. 

<+ > 

Punktmarkierung an Cursorposition 

<CBM> < *> 

Horizontalmarkierung an Cursorposition 

<CBM> <-> 

Vertikalmarkierung 

<SHIFT> <+ > 

Kreuzmarkierung 

<-> 

Koordinatenanzeige und Punktmarkierung 
aus 

<0...9> 

Koordinaten an Cursorposition werden 

Punkt Nr. 0 bis 9 zugeordnet 

<M> <0...9> 

Memory Point:setzt Grafikcursor auf 

Punkt 0 bis 9 

<CBM> <M> 

Anzeigen der Punktkoordinaten 0 bis 9 

<SHIFT> < * > 

Horizontale durch Cursorposition 

<SHIFT> <-> 

Vertikale durch Cursorposition 

<P> 

Punktfarbe 

<H> 

Hintergrundfarbe 

<F> 

In 8 x 8 Punktfeld Farbe verändern 

<%> 

Plot in Grafikebene 2 (Rahmen dunkelgrün) 

<CTRL> <F> 

Fläche um Cursorposition wird gefüllt 

<l> 

Invertieren G«>eR 

< A>/< E>/<0> 

AND/EXOR/OR mit Grafikebene 2 

<SHIFT> <CLR> 

Bildschirm löschen 

<C> 

Grafikbildebenen wechseln 

<Q> 

Duplizieren 

<SHIFT> <Q> 

Duplizieren wiederholen 

<V> 

Scroll 

</> 

Spiegeln 

<t> 

Vergrößern, Verkleinern 

<L> 

Linie 

<R> 

Rechteck 

<SHIFT> <R> 

Rechteck wiederholen 

<CBM> <R> 

Rechteck rotieren 

<CTRL> <R> 

Rechteck rotieren wiederholen 

<B> 

Block 

<SHIFT> <B> 

Block wiederholen 


Taste 

Funktion 

<K> 

Kreis 

<SHIFT> <K> 

Kreis wiederholen 

<@> 

Text: < 1 > Invertieren 

< F7 > Parameter verändern 

<[..]> neue Schreibposition 

<CTRL9>/<CTRL0> Invers ein / aus 

<#> 

Peripherie: Disk, Hardcopy 

< SHIFT> <J> 

Zeichnet bei Druck auf den Feuerknopf 

< •> 

Spraydosenfunktion 

<CBM> <J> 

lädt ein »SHAPE-FILE« 

<CTRL> <J> 

Linienverbund 

< Feuer > oder < = > Festlegen des 
nächsten Punktes 

<£> 

Auswahl: <M> Memory Point <0..9> 

<l> Invertieren 
<F> Fill 

< 1 > Linienshape auf Disk 
speichern 

< — > Fill Speicherung 
beenden 

<.> Linie an neuem Punkt 
beginnen 

<G> 

holt einen auf NRM Schirm vergrößerten 

Grafikausschnitt 

< RETURN > Position festlegen 


< = > / <Feuer> Ausschnitt an Pos. über¬ 
lagert 

<CTRL= > Unterlage wird vor Einfügen ge¬ 
löscht 

<SHiFT> <D> 

vergrößert mit < RETURN > gewählten Aus¬ 
schnitt 

<D> 

Ausschnitt bearbeiten 

<CBM> <S> 

holt Sprite aus Grafikbild 

<SHIFT> <S> 

fügt Sprite in Grafikbild < = >/ 

<CTRL = >/(Feuer) 

<!> 

24x21 Ausschnitt an Cursorposition wird 
doppelt vergrößert dargestellt Verschiebung 
mit < + > < - <SHIFT + > <SHIFT - 

<F1 > 

Ausstieg aus diversen Unterfunktionen in 
Hauptwarteschleife 

<CTRL> < 1 > 

Ende 


Tabelle 3. Die vollständige Übersicht über Befehlsaufrufe beim Programm ■■CAD.2001« 


Eingabehinweise 

Die Lislings 4 und 6 sind Basic-Programme, die die neuen Befehle 
von »GR2001« verwenden. Aus diesem Grund können sie leider nicht 
mit dem Checksummer ausgedruckt beziehungsweise eingegeben 
werden. Auch müssen diese Listings unbedingt bei aktivierter Erwei¬ 
terung »GR2001" eingegeben werden. Die für die einzelnen Grafikzei¬ 
chen im Listing nötigen Tastenkombinatiönen entnehmen Sie bitte 
den Tabellen Ihres zum C64 mitgelieferten Handbuches. 


0 

REM 

"INIT.GR2001"—> ERZEUGT 'GR2001' 

<254> 

l 

REM 

***«****#*******,****«»»*,„„» 

< I39> 

2 

REM 

» ZUERST MIT MSE EINGEBEN : 

** 

<146> 

3 

REM 

** 1. 'GR2001TOKEN.90F0 * UND 

** 

<101> 

4 

REM 

** 2. 'GR2001.OBJ' 

** 

< 141 > 

5 

REM 

** UND AUF DISK SICHERN 

** 

<219> 

6 

REM 

**##***■»**#**.*****##»**#****».** 

<144> 


7 REM 

>> 

DANN : 

** 

<211 > 

0 REM 


3. GRAFIK 2000- LADEN 

*« 

< 160> 

9 REM 

** 

4. P0KE43,1:P0KE44,64 

** 

<147> 

10 

REM 

#* 

5. POKE16384,0: 





** = BASICANFANG HOCHSETZEN 

** 

<207> 

12 

REM 

** 

6. INSTALLATIONSPRG. 

** 

< 103> 

13 

REM 

** 

’INIT.GR2001• 

#* 

< 133> 

14 

REM 

*# 

EINGEBEN & STARTEN 

*# 

<029> 

15 

REM 

******************************* 

< 153> 

16 

REM 

** 

'INIT.GR2001’ ===> 

** 

< 165> 

17 

REM 

** 

INSTALLATIONSPROGRAMM 

** 

<094> 

18 

REM 

** 

FUER 'GR2001 

#* 

<065> 

19 

REM 

** 

« ERWEITERTES UND 

#* 

< 161 > 

20 

REM 

** 

MODIFIZIERTES 

** 

< 14 1 > 

21 

22 

REM 

REM 

*# 

GRAFIK 2000’(F.BRENDEL) 

** 

<211 > 
<063 > 




24 

REM 

** 

DR. HEINZ DOMES 

** 

< 111 > 

26 

REM 

** 

JOSEF MARX STR. 13 

## 

<064> 

28 

REM 

** 

A - 8043 GRAZ 

** 

<156> 

29 

REM 

** 

OESTERREICH 

** 

<217> 



90 
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GRAFIK-LISTINGS 


31 

REM 

***********************.*.* ■****.#.* 

< 169> 

32 

REM 

» 

HINWEIS :'SR2001' 

** 

<099 > 

33 

REM 

** 

WARTET NACH LADEN UND 

** 

< 200 > 

34 

REM 

** 

STARTEN MIT 'RUN' AUF 

** 

< 14B> 

35 

REM 

** 

DRUCK VON 'C='TASTE BZW. 

** 

< 192> 

36 

REM 


•SPACE'TASTE UND LADET 

** 

<238> 

37 

REM 

## 

DANN PROGRAMM 'GRA1‘, 

** 

<155> 

38 

REM 

## 

WELCHES EIN BELIEBIGES 


< 166> 

39 

REM 


RUMPFPRG. SEIN KANN MIT 

** 

<011> 

40 

REM 

** 

MENUE ZUM NACHLADEN DES 

** 

<032> 

41 

REM 

** 

GEWUENSCHTEN ARBEITSPRO¬ 

** 

<203> 

42 

REM 

** 

GRAMMES. 

** 

< 190> 

43 

REM 

»>MIT ' POKE 12481,133: 

** 

< 194> 

44 

REM 

*# 

'POKE12482,48- 

** 

<069> 

45 

REM 

*# 

AUSSCHALTEN DER 

*# 

<088> 

46 

REM 

** 

AUTOBOOT - FUNKTION. 

** 

<187> 

50 

REM 

***#*#*******#**■#*#**#***.##*#** 

<1B8> 

100 IF 

A=1 THEN 900 


<002> 

105 IF 

a=: 

Z THEN 1000 


<227> 


304 REM->1<- 


- <161> 

305 REM— "BASICZEILE & AUTOBOOTMSPACE1— 

<054> 

306 REM- <09B> 

310 FOR M=2059 TO 2094:READ P:S=S+P: 

:POKE M,P:NEXT <064> 

320 IF SO1968 THEN PRINT"DATA ERROR 1":EN 

D <019> 

350 PRINT-l.C2SPACEI0K” <073> 

400 DATA 13,13,30,40,67,41,32,70,46,66,82, 

69,78,68,69,76,13,13,77,79,68,73,70 <229> 

405 DATA 73,69,68,58,32,68,79,77,69,83,13, 

13,13 <020> 

449 REM-—- <241 > 

450 FOR M=2196 TO 2198:READ PsPOKE M,P:NEX 

T <111> 

480 DATA 76,176,48 :REM SPRUNG ->*30B0 

AUTOBOOTROUTINE:LADET 'GRA1' <129 > 

490 POKE 3111,0: POKE 3119,4 <234> 

491 REM tRAHMEN,HINTERGR. tAKT.FARBCODE 

:$0C27 :T0C2F <050> 

492 REM- <028> 

500 : <222>- , 

504 REM->2<;-' 

- <107> 

505 REM— "MODIFIZIERTE <2SPACE >LOAD ROUTIN 

E - . <032> 

506 REM— LADET ABSOLUT NACH SE000 - <019> 

507 REM--- <043> 

510 S=0:FOR M=3512 TO 3523:READ P:S=S+P: 

:POKE M,P:NEXT <127> 

520 IF S01418 THEN PRINT "DATA ERROR >2“: E 


550 

600 

700 

704 


ND 

PRINT"2.C25PACE>0K" 

DATA 169,0,133,185,170,160,224,76,143, 

158,0,0 

: 

REM->3<- 


<254> 
<1335> 

< 202 > 
< 168 > 


705 REM— "MODIF.12SPACEJBEFEHLSTABELLEL3S 

PACE>- 

706 REM- 

710 IF A=0 THEN A=l:POKE 157,128«LOAD"GR20 

01TOKEN.09F0",8,1 
717 : 

900 : 

904 REM->4<- 


<055> 

<066> 

<244> 

<217> 
<1B5> 
< 114> 


- <003> 

905 REM— "OBJECTCODE ERWEITERUNG(3SPACE>— 


<137> 

906 REM— LADEN - <212> 

907 REM- <191> 

910 IF A=1 THEN A=2:LOAD"GR2001.OBJ",8,1 

: REM *229B - *30E5 <15B> 

920 POKE 157,0 <225> 

1000 : <214> 

1004 REM->5< — 

- <lei> 


1005 REM— "BASICANFANG & PRG ENDE C2SPACE > 


- <242> 

1006 REM— ZEIGER SETZEN & SAVE - <131> 

1007 REM- < 111 > 

1020 REM'GR2001' ENDE *30E5=12517 ** 

XL=229:XH=4B <034> 

1070 REM->6< — 

- <251> 

1071 REM- PSEUDODIREKTMODUS: <235> 

1072 REM- <17B> 

1130 PRINT " <CLR>Pfl43,1: Pfi44,8: Pfl45,229: Pfl4 

7,229:Pfl49,229:Pfl46,48:Pfl4B,48:Pfl50,4 
8" <017> 

1140 POKE 2049,48:POKE 2050,8 <202> 

1150 PRINT"t2D0WNJSa"CHR*<34)"GR2001"CHR#( 

34)",8" <085> 

1160 i 'OKE 631,19:FOR 1 = 1 TO 3:POKE 631 + 1,1 

3:NEXT:POKE 198,5:END <162> 

2000 REM- 


<068> 


Listing 1. Das Programm »INIT 2001« bastelt GRAFIK 
2000 und die Erweiterung zusammen, beachten Sie 
unbedingt die Hinweise im Text. Bitte mit dem Check¬ 
summer (Seite 159) eingeben. 


Name 

gr2001token 

. 09f0 

09f0 0b30 

OaaO 

c7 

48 

43 

4f 

50 

d9 

5'4 

45 

f6 











0aa8 

58 

d4 

44 

49 

53 

43 

52 

45 

c8 

09f0 

ec 

cV 

lb 

cö 

78 

c8 

c8 

95 

bc 

OabO 

45 

ce 

44 

49 

d2 

43 

49 

52 

a8 

09f8 

45 

9c 

6e 

9d 

53 

c8 

f4 

95 

55 

0ab8 

43 

4c 

c5 

47 

54 

53 

43 

52 

Od 

OaOO 

76 

93 

da 

95 

2f 

95 

ed 

c8 

92 ' 

OacO 

45 

45 

ce 

4d 

49 

52 

52 

4f 

14 

0a08 

14 

c9 

ba 

95 

29 

c9 

3a 

c9 

bf 

0ac8 

d2 

45 

4c 

4c 

49 

50 

53 

c5 

c9 

OalO 

dl 

95 

32 

96 

f3 

99 

Ob 

96 

71 

OadO 

42 

4c 

4f 

43 

cb 

52 

45 

43 

5f 

0al8 

b5 

91 

25 

9e 

ld 

96 

lc 

92 

cf 

0ad8 

48 

d4 

46 

49 

4c 

cc 

49 

4e 

32 

0a20 

df 

97 

14 

96 

15 

91 

bf 

90 

al 

OaeO 

56 

45 

52 

d3 

53 

43 

52 

4f 

lf 

0a28 

28 

ce 

5d 

c9 

3e 

ce 

70 

ce 

02 

0ae8 

4c 

cc 

44 

55 

50 

4c 

49 

43 

69 

0a30 

04 

ca 

cb 

ce 

45 

ca 

4l 

cf 

b5 

OafO 

4l 

54 

c5 

43 

4f 

4c 

50 

4c 

66 

0a38 

5c 

cf 

6a 

cf 

e2 

cf 

7c 

cf 

4f 

0af8 

4f 

d4 

57 

49 

4e 

44 

4f 

d7 

a4 

0a40 

bd 

cf 

43 

4c 

45 

4l 

d2 

43 

6f 

ObOO 

50 

4c 

4f 

d4 

54 

53 

43 

52 

76 

0a48 

4f 

4c 

4f 

d2 

4d 

4f 

44 

c5 

d7 

0b08 

45 

45 

ce 

50 

53 

43 

52 

45 

dl 

0a50 

50 

4f 

49 

4e 

d4 

47 

43 

55 

a3 

Ob 10 

45 

ce 

43 

53 

41 

56 

c5 

53 

7c 

0a58 

52 

d3 

42 

45 

45 

dO 

50 

53 

90 

Ob 18 

50 

52 

49 

54 

c5 

53 

53 

4l 

35 

0a60 

43 

4c 

49 

4e 

c5 

48 

56 

4c 

76 

0b20 

56 

c5 

53 

4c 

4f 

4l 

c4 

54 

72 

0a68 

49 

4e 

c5 

52 

4f 

52 

45 

43 

b7 

0b28 

45 

53 

d4 

43 

54 

45 

53 

d4 

lb 

0a70 

48 

d4 

4d 

4l 

52 

cb 

53 

50 

Of 









0a78 

52 

50 

4c 

4f 

d4 

47 

53 

41 

47 











0a80 

56 

c5 

47 

4c 

4f 

4l 

c4 

43 

ad 

Listing 2. 

»GR2001TOKEN 

.O9F0«. 


0a88 

48 

4l 

4e 

47 

c5 

43 

4f 

4d 

3c 

Die Befehlstabelle zu Grafik 2001 


0a90 

c2 

4c 

4f 

57 

43 

4f 

cc 

4c 

b2 

tippen Sie 

bitte 

mit 

dem MSE 


0a98 

49 

4e 

c5 

45 

4e 

4c 

4l 

52 

13 

(Seite 

159) ab. 








Name 

gr2001.obj 



2298 30e5 

2298 

a9 

Od 

8d 

77 

02 

8d 

78 

02 

8d 

22a0 

a9 

02 

85 

c6 

ea 

4c 

85 

30 

0c 

22a8 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

22b0 

20 

23 

93 

20 

fl 

92 

a5 

fb 

8d 

22b8 

fO 

03 

4c 

48 

b2 

ad 

45 

c8 

85 

22c0 

ac 

46 

c8 

ae 

47 

c8 

20 

3e 

4f 

22c8 

93 

20 

e7 

c7 

ad 

86 

c9 

ac 

ee 

22d0 

87 

c9 

ae 

47 

c8 

20 

52 

93 

ce 

22d8 

ad 

86 

c9 

ac 

87 

c9 

ae 

88 

63 

22e0 

c9 

20 

3e 

93 

20 

59 

93 

ad 

32 

22e8 

45 

c8 

ac 

46 

c8 

ae 

88 

c9 

3d 

22f0 

20 

3e 

93 

20 

59 

93 

ad 

45 

8c 

22 f 8 

c8 

ac 

46 

c8 

ae 

47 

c8 

20 

49 

2300 

3e 

93 

20 

59 

93 

60 

20 

23 

3e 

2308 

93 

20 

fl 

92 

a5 

fb 

fO 

03 

7e 

2310 

4c 

48 

b2 

20 

92 

91 

a5 

8b 

94 

Listing 3. 

»GR2001.0BJ 

«. 




Der Kern der 

neuen 

Befehlserwei 

- 

terung. Bitte 

mit 

dem MSE 



(Seite 

159) eingeben. 
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GRAFIK-LISTINGS 


C64 


2318 

fO 

22 

20 

7f 

91 

ad 

86 

c9 

46 

2568 

23 

93 

20 

fd 

ae 

20 

26 

c7 

31 

27b8 

c9 

20 

23 

93 

20 

fd 

ae 

4c 

12 

2320 

ac 

87 

c9 

ae 

47 

c8 

20 

52 

b8 

2570 

8c 

47 

c8 

a5 

14 

8d 

45 

c8 

dd 

27c0 

48 

c8 

20 

23 

93 

20 

fd 

ae 

68 

2328 

93 

18 

ad 

47 

c8 

65 

8c 

8d 

21 

2578 

a5 

15 

8d 

46 

c8 

20 

fd 

ae 

b7 

27c8 

4c 

90 

c9 

20 

9e 

b7 

eO 

02 

02 

2330 

47 

c8 

ad 

88 

c9 

cd 

47 

c8 

11 

2580 

20 

8a 

ad 

a9 

a8 

aO 

ae 

20 

10 

27d0 

bO 

10 

eO 

00 

fO 

06 

20 

fd 

7c 

2338 

90 

44 

bO 

de 

20 

7f 

91 

ad 

92 

2588 

8c 

ba 

a5 

61 

20 

53 

b8 

a2 

CC 

27d8 

ae 

4c 

bd 

c8 

20 

fd 

ae 

4c 

7a 

2340 

45 

c8 

ac 

46 

c8 

ae 

88 

c9 

95 

2590 

84 

aO 

cb 

20 

d4 

bb 

20 

fd 

03 

27e0 

cc 

c8 

4c 

48 

b2 

20 

9e 

b7 

43 

2348 

20 

52 

93 

18 

ad 

45 

c8 

65 

6c 

2598 

ae 

20 

8a 

ad 

a2 

80 

aO 

ca 

f5 

27e8 

eO 

02 

bO 

f6 

eO 

00 

fO 

06 

b2 

2350 

8c 

8d 

45 

c8 

90 

03 

ee 

46 

77 

25aO 

20 

d4 

bb 

20 

fd 

ae 

20 

8a 

08 

27f0 

20 

fd 

ae 

4c 

6d 

c8 

20 

fd 

de 

2358 

c8 

ad 

87 

c9 

cd 

46 

c8 

90 

65 

25a8 

ad 

a2 

85 

aO 

ca 

20 

d4 

bb 

94 

27f8 

ae 

4c 

60 

c8 

20 

23 

93 

20 

a7 

2360 

ld 

fO 

02 

bO 

d7 

ad 

86 

c9 

25 

25bO 

a9 

84 

aO 

cb 

20 

a2 

bb 

20 

83 

2800 

fd 

ae 

4c 

8a 

ca 

20 

23 

93 

la 

2368 

cd 

45 

c8 

90 

11 

bO 

cd 

ad 

45 

25b8 

6b 

e2 

a9 

80 

aO 

ca 

20 

28 

40 

2808 

20 

fd 

ae 

4c 

8e 

cb 

20 

23 

6a 

2370 

45 

c8 

ac 

46 

c8 

ae 

47 

c8 

be 

25cO 

ba 

a2 

89 

aO 

cb 

20 

d4 

bb 

ca 

2810 

93 

20 

fd 

ae 

4c 

la 

cb 

00 

cd 

2378 

20 

3e 

93 

20 

e7 

c7 

60 

00 

de 

25c8 

a9 

84 

aO 

cb 

20 

a2 

bb 

20 

9b 

2818 

00 

00 

la 

00 

00 

00 

00 

00 

9f 

2380 

00 

60 

20 

79 

00 

fO 

15 

20 

04 

25dO 

64 

e2 

a9 

85 

aO 

ca 

20 

28 

f2 

2820 

4c 

33 

96 

20 

9c 

97 

a9 

00 

dd 

2388 

fd 

ae 

20 

9e 

b7 

eO 

02 

bO 

a4 

25d8 

ba 

a2 

15 

aO 

cb 

20 

d4 

bb 

c5 

2828 

85 

fb 

8d 

86 

c9 

a9 

eO 

85 

57 

2390 

Ob 

86 

8b 

20 

fd 

ae 

20 

9e 

d8 

25eO 

a9 

84 

aO 

cb 

20 

a2 

bb 

20 

b3 

2830 

fc 

8d 

87 

c9 

a9 

00 

85 

fd 

ba 

2398 

b7 

86 

8c 

60 

a2 

01 

86 

8b 

25 

25e8 

64 

e2 

a9 

80 

aO 

ca 

20 

28 

69 

2838 

8d 

88 

c9 

8d 

8c 

c9 

a9 

70 

cc 

23 a0 

86 

8c 

60 

Of 

Od 

08 

a9 

18 

4e 

25fO 

ba 

a2 

10 

aO 

cb 

20 

d4 

bb 

9c 

2840 

85 

fe 

8d 

89 

c9 

8d 

8d 

c9 

ac 

23 a8 

8d 

af 

92 

20 

b3 

92 

20 

cd 

al 

25f8 

a9 

84 

aO 

cb 

20 

a2 

bb 

20 

cb 

2848 

a9 

08 

85 

a7 

8d 

8a 

c9 

a9 

f3 

23b0 

92 

a5 

14 

8d 

45 

c8 

8d 

86 

a9 

2600 

6b 

e2 

20 

b4 

bf 

a9 

85 

aO 

lc 

2850 

70 

85 

a8 

8d 

8b 

c9 

20 

el 

aa 

23b8 

c9 

a5 

15 

8d 

46 

c8 

8d 

87 

3b 

2608 

ca 

20 

28 

ba 

a2 

ef 

aO 

cd 

Ob 

2858 

c7 

20 

b4 

c7 

a2 

Oc 

aO 

00 

62 

23 CO 

c9 

a9 

13 

20 

d2 

ff 

a2 

15 

09 

2610 

20 

d4 

bb 

ac 

45 

c8 

ad 

46 

fd 

2860 

84 

ff 

bl 

fb 

85 

a9 

98 

48 

68 

23c8 

86 

8d 

a2 

28 

86 

8e 

20 

90 

41 

2618 

c8 

20 

25 

95 

a9 

89 

aO 

cb 

ed 

2868 

a5 

26 

4a 

4a 

90 

06 

a5 

a9 

lf 

23 dO 

92 

c9 

00 

fO 

04 

a9 

dl 

dO 

db 

2620 

20 

67 

b8 

20 

01 

b8 

20 

17 

aa 

2870 

85 

aa 

bO 

20 

aO 

08 

06 

a9 

30 

23 d8 

02 

a9 

20 

20 

d2 

ff 

ee 

45 

2e 

2628 

95 

8c 

86 

c9 

8d 

87 

c9 

ac 

74 

2878 

90 

Oc 

26 

ab 

26 

aa 

38 

26 

f2 

23 eO 

c8 

dO 

03 

ee 

46 

c8 

c6 

8e 

92 

2630 

45 

c8 

ad 

46 

c8 

20 

25 

95 

5b 

2880 

ab 

26 

aa 

18 

90 

09 

26 

ab 

2d 

23e8 

dO 

e4 

ee 

47 

c8 

a5 

8f 

fO 

a9 

2638 

a9 

15 

aO 

cb 

20 

67 

b8 

20 

6e 

2888 

26 

aa 

18 

26 

ab 

26 

aa 

88 

76 

23 fO 

Ob 

aO 

02 

b9 

b3 

91 

20 

d2 

fl 

2640 

01 

b8 

20 

17 

95 

8c 

8c 

c9 

Oc 

2890 

dO 

e4 

a5 

aa 

a4 

ff 

91 

fd 

ld 

23 f 8 

ff 

88 

10 

f7 

ad 

86 

c9 

8d 

90 

2648 

8d 

8d 

c9 

ac 

47 

c8 

a9 

00 

05 

2898 

48 

a5 

26 

4a 

bO 

Oc 

68 

c8 

24 

2400 

45 

c8 

ad 

87 

c9 

8d 

46 

c8 

b9 

2650 

20 

25 

95 

a9 

10 

aO 

cb 

20 

13 

28a0 

91 

fd 

a5 

26 

4a 

4a 

bO 

13 

3e 

2408 

c6 

8d 

dO 

be 

60 

20 

23 

93 

5b 

2658 

67 

b8 

20 

01 

b8 

cO 

c8 

bO 

5a 

28a8 

88 

48 

68 

a5 

ab 

91 

a7 

48 

9a 

2410 

a5 

09 

85 

8f 

a9 

18 

8d 

af 

7e 

2660 

07 

8c 

88 

c9 

c9 

00 

fO 

01 

6b 

28b0 

a5 

26 

4a 

bO 

05 

68 

c8 

91 

eb 

2418 

92 

20 

bO 

92 

a5 

14 

8d 

45 

f4 

2668 

60 

ac 

47 

c8 

a9 

00 

20 

25 

6f 

28b8 

a7 

48 

68 

c8 

84 

ff 

cO 

08 

12 

2420 

c8 

8d 

86 

c9 

a5 

15 

8d 

46 

4f 

2670 

95 

a9 

ef 

aO 

cd 

20 

67 

b8 

d7 

28c0 

dO 

5a 

aO 

00 

84 

ff 

a5 

26 

11 

2428 

c8 

8d 

87 

c9 

20 

el 

c7 

a2 

47 

2678 

20 

01 

b8 

cO 

c8 

bO 

e9 

8c 

32 

28c8 

4a 

bO 

06 

a5 

8f 

fO 

2f 

84 

e7 

2430 

15 

86 

8d 

a2 

00 

86 

8b 

a2 

e8 

2680 

8e 

c9 

c9 

00 

dO 

e2 

ac 

88 

4d 

28d0 

8f 

18 

ad 

88 

c9 

65 

8b 

8d 

f9 

2438 

04 

86 

8c 

a2 

28 

86 

8e 

aO 

29 

2688 

c-9 a9 00.20 25 95 «■: 

ef 

af 

28d8 

88 

c9 

85 

fd 

90 

03 

ee 

89 

56 

2440 

00 
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C 64 


0 REM ********************************* 

1 REM ** MENUEAUSWAHLPROGRAMM ** 

2 REM ** ’GRA1’ ** 

3 REM ** ** 

4 REM **-** 

5 REM ** DR.H.DOMES ** 

6 REM ** JOSEF MARX STR. 13 ** 

7 REM ** A 8043 GRAZ ** 

8 REM ** AUSTRIA ** 

9 REM ********************************* 

10 POKE53280,0:POKE63281,0:PRINT"H*":P0KE198,0 
50 READ AN 

100 DIMMU$( AN ) '• DI$(0 ) = "1XX3" : DI$( 1 ) = "*!" : DI$( 2 ) = "LJ" : PO$( 1 
) = “»•*«*•• 

200 FORI=OTOANiREADMUS(I):NEXT 

499 REM..—.. 

500 IB=0:IE=AN 

520 GOSUBIOOO:IFI=7THENBEEP255:PRINT "HUM":SYS42115 

599 REM-.OVERLAY PSEUDODIREKT- 

600 PRINT"n»CLR: IT";CHR$(34);MUS(I-1);CHR$(34);“,8":PRI 
NT"WWW«flR /" 

620 FOKE631,19:FORI=0TO2:POKE632+I,13:NEXT:POKE198,4:EN 
D 

900 :END 

999 REM---... 

1000 PRINT":™- LADEPROGRAMM - ” ; PO*(1) 

1200 F0RI=IBT0IE:PRINTMUS(I);PRINT:NEXT 
1250 PRINT-3";POS(1):I=IB:FRINT"«"MUS(I) 

1500 GETWS:IFW$ < >"D"ANDW$< >"M“ANDWS< > CHR$(13)THEN1500 
1520 LI=I 

1540 IFW*=CHR$(13)THENI=I-IB+l:RETURN 
1550 IFW#="W"THENI=1+1:ZI=1:IFI>IETHENI=IE:ZI=2 
1560 IFW$=-’:i"THENI = l-l: ZI = 0: IFI<IBTHENI = IB: ZI = 2 
1600 PRINT"3"MUS( LI): PRINTDI$( ZI) "a"MU$(I) 

1700 GOT01500 

5000 DATA 6 

5010 DATA CAD2001.CAD2001.1,TESTDEMO,STATISTIK,TESTl.TE 
ST2,'V ENDE «" 

Listing 4. »GRA1«. Ein Beispiel für ein Ladeprogramm. 
Die Demos, die nachgeladen werden, befinden sich 
auf der Programmservice-Diskette. Bitte tippen Sie 
dieses Listing ab, während »GR2001« aktiviert ist! 


— 


10 : <242> 

11 REM DIESES PROGRAMM ERZEUGT AUF MPS DRU 

CKERN DIE TOKENTABELLE DES <233> 

12 REM PROGRAMMES <067> 

15 : <247> 

20 OPEN 4,4 <123> 

30 PR*=“- 

-":DP*=CHR*(16> <127> 

500 TB=50594:TP=TB:REM TOKENBEGINN <014> 

520 JT=50512:REM SPRUNGTABELLE <069> 

600 GOSUB 6000 <088> 

1000 TK=PEEK(TB+Z>:Z=Z+1:IF TK=0 

THEN 3000 <115> 

1100 IF TK AND 128 THEN TK=TK AND 127iGOTO 

2000 <054> 

1120 TK*=TK*+CHR*(TK) <054> 

1200 GOTO 1000 <124> 

1999 REM******************************* <103> 

2000 TK*=TK*+CHR*<TK) <172> 

2100 JU=1+PEEK <JT+ZJ)+256*PEEK(ZJ+JT+1>: Z J 

=ZJ+2: <230> 

2120 D=JU:GOSUB 5000:JU*=DUS <121> 

2130 D=TP:GOSUB 5000:TP*=DU* <132> 

2200 IF TK*="TEST"OR TK*="CTEST“THEN PRINT 

#4 ,TKSDP*“12.GOTO 2 

500 <063> 

2250 PRINTtt4,TK*DP*"12"JU; "<*"JU*“>"DP* "3 

5 <"TP"*"TP*" <1B2> 

2500 TK*="":TP=TB+Z sGOTO 1000 <105> 

2999 REM******************************* <087> 

3000 PRINT#4,PR*PR*:GOSUB 6200: PRINT44 

:CLOSE 4:END <226> 

4999 REM******************************* <055> 

5000 DU*="":FOR P=0 TO 0:D=D/16:S=(D-INT(D 

))*16:DU*=CHR*(55+S+7* (S< 10))+DU* <067> 

5010 P=-D:NEXT:RETURN <246> 

5999 REM******************************* <039> 

6000 PRINT#4,"DR. H. DOMES, JOSEF MARX STR 

. 13, A - 8043 GRAZ, AUSTRIA" <229> 

6010 PRINT#4,PR*PR* <161> 


»TU 


6020 PRINT#4,"'GR2001'I6SPACE JBEFEHLSTABEL 

LE" <036> 

6100 PRINT44,PR*PR*:PRINT44,"BEFEHL",“ 9PR 

UNGZIEL","13LEFT3POSITION TOKEN" <021> 

6150 PRINT#4,PR*PR* :RETURN <232> 

6200 PRINT#4,PR*PR*:PRINT#4,"T A B E L L E 

{3SPACE31" <190> 

6250 :RETURN <246> 

19999 REM******************************* <069> 

Listing 5. »GR2001.BEFTAB«. Dieses Programm druckt 
die Token-Tabelle zu Grafik 2001 aus. 

Bitte mit dem Checksummer (Seite 159) eingeben. 


0 REM ******************************** 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 


DR. HEINZ DOMES 
JOSEF MARX STR. 13 
A - 8043 GRAZ 
OESTERREIC 


7 REM ******************************** 

8 PRINT": 1 **31 CAD2001 (C) 1986 DR.H.DOMES 

9 POKE788,52:POKE51092,52:POKE52944,52 

10 X96=0: Y%=0: FL=51268: POKEFL, 0: SE=51265 

11 BC (0 ) = 32 : BC (1) = 81: PS = 1 *• PSCREEN1: 

12 WC$=CHR$(13):XL=51262:VS=53248:JS=56320:SI=5429 
6:RQ=53280 

13 LE$=” " : LO$=" : IBBI*" : CO$=" a 

s Na a r« s a sm b zti a " 

14 C0$=C0$+":e 8 *iixi!«i r«5 m sw h sca h r« 

saia re: a H" 

15 DEFFNBO(WI)=WI*2*v/360:REMGR->BOG 

16 MX(7)=319:MY(7)=0:MX(8)=319:MY(8)=199:MX(9)=0:M 
Y(9)=199 

18 SR=1:BR=1:HE=1:NE=0:AB= 8 :REMTEXTSTANDART 

19 SW-2 

20 GOTO200 

25 , I I- 7.X<40ANDZY<25ANDZX>=0ANDZY>=0THENPOKE214, ZY: P 
OKEZ1 .,ZX:SYS58640 

26 RETURN 

30 LINEZM.XO.YO,XI,Yl:RETURN 
35 CIRCLEZM,XO,YO,KX(1),KY(1):RETURN 
40 RECHTZM.XO.YO.XI,Yl:RETURN 
45 RORECHTZM,XO,YO,FNBO(WI),LI,L2:RETURN 
50 BLOCKZM,XO,YO,XI,Yl,RI,SW:RETURN 
52 MIRRORHV%, ZS5S.OFSS: BEEPO: RETURN 
55 DUPLICATEXO,YO,XI,Yl,X2,Y2:RETURN 
58 SCROLLSG,XO,YO,XI,Yl:RETURN 

60 IF(XQ56<0 )OR(XQ>319)OR( YQ%<0 )OR( YQ%> 199 )THENRETU 
RN 

61 TEXT ZM,SR,BR,HE,NE,AB,XQ%,YQ%,A$ :RETURN 

68 POKE198,0:WAIT198,1:BEEP50:RETURN 

69 PRINT"73" 

70 WINDOWO,190:ZX=0:ZY-24:GOSUB25:PRINTLES;LEFTS(L 
ES,19);:GOSUB2 5: RETURN 

75 WINDOW:M0DE1:RETURN 

77 FORI=704TO767:POKEI,0:NEXT:K=0:F0RI=39915T03992 
9:POKE704+K,PEEK(I):K=K+1:NEXT 

:RETURN 

78 FORI = 704TO767:POKEI,0:NEXT:RETURN 

79 RESTORE 

80 READWS: IFWSO "SPR1 "THEN80 

81 FORI=0TO32:READW:POKE704+I,W:NEXT:RETURN 

85 XSX( 1) = (13+XQ56) /256: XSX(0 ) = ( 13+XQX) -XS%( 1 )*256: 
POKEVS, XS36(0) 

86 POKEVS+16,(PEEK(VS+16)AND254)ORXS*(1):POKEVS+1, 
YQX+48:X%=XQ%:Y*=YQ* 

87 XH%=XQ%/256 : XLX=XQ36-XH%*256: POKEXL, XL%: POKEXL+1 
, XH%: POKEXL+2, YQJ 6 : RETURN 

90 GCURS2:GETAS:IFA$< >"£"THEN90 

91 BEEP100:GOSUBIOOO:IFB$<>"+"ANDB$<>","THEN90 

92 IFB$=“,"THEN103 

9 3 GCURS2:GETAS:IFBDTHENMARKO,X%,YX:MARK1,XX,YX 

94 POINTZZ,XX,Y%:IFA$<>"£"THEN93 

95 BEEP100:GOSUBIOOO:IFB$<>"-"ANDB$<>","THEN93 

96 IFB$="-"THEN90 

97 GOSUB70:GOTOl10 

98 GCURS2:GETAS:IFA$<>"£"THEN98 

99 BEEP100:GOSUBIOOO:IFB$<>"-"THEN94 

100 GOTO90 
103 GOSUB70 

105 GCURS2: GETAS: PRINT" " l**BI" Y%"73 

":IFA$< >"£"THEN105 


94 
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106 BEEP150:GOSUB1000:GOSUB70:IFB8<>"-"ANDB$< >"+"T 
HEN105 

107 IFB$="-"THENGOSUB75:GOTO90 

110 GCURS2:GETA$:PRINT" IB«l«l"XX, " I«M»I'y56":J 

111 POINTO,X%,Y%:IFA$<>"£"THEN110 

112 BEEP150:GOSUBIOOO:GOSUB70:IFB$<>"-"THEN110 

113 GOSUB7 5:GOTO90 

200 IF(PEEK{40659)=169)THEN205 

204 LOAD "DIAGONAL. OBJ 1 ' ,8,1 

205 IF(PEEK(828) = 169)THEN206 

206 LOAD"VERKL.OBJ',8,1 

208 GOSUB78:GOSUB50170 

209 IFPEEK(827)=OTHENSLOAD5,"SPRAY1",8:SLOAD6,"SPR 
AY2" , 8 POKE827,1 

210 GCURS1:WINDOW:MODE1:PF=4:HF=0:BF=0:COLORPF,HF: 
POKERQ,BF:POKERQ+1,HF 

212 CLOSEI:OPEN1,8,15 
215 PRINT""H": POKESE, 8: BEEP:GOTO90 
1000 POKERQ,2:GOSUB68:GETB$:POKERQ,0 + (PS = 2)*-ll 
1010 IFB$-""£"THENPOKE53272,21:POKE53265,27:GOTO200 
0 

1020 IFB$="iil"THEN3050 

1100 IFB$="T"THEN2350 

1150 IFB$="I"THENINVERS 

1250 IFB$="P"THENGOSUB2650 

1255 IFB$="H"THENGOSUB2670 

1260 IFB$="P"ORB$="H"THENCOLORPF,HF 

126 5 IFB$ = •' * " THENIFPS=2THENPS=1: PSCREEN1: POKERQ, 0 : 

GOTO1280 

1266 IFB$-"X"THENIFPS=1THENPS= 2:PSCREEN2:POKERQ,11 
1280 IFB$= "ri ’THENBEEPlO : BEEP2: GOSUB3000 
1290 IFB$="0S"THENBEEP255: GOSUB3050: REM ENDE 
1400 IFB$ ="a"THENPOINT1,XX,YX:FILLXX,YX;BEEP 
1500 IFB$="D"THENWINDOW:MODEO: PRINT"#)" : GOSUB4000 
1510 I FB$=~ "THENGOSUB4350:REM"DI2 SH’D’ 

1530 IFB$="G"THENGOSUB4500 

1550 IFB$="l"THENHVL INEI, XX: REMSH"-'' 

1551 IFB$="ä"THENMARK1,XX,Y%:REMC="-" 

1555 IFB$="-"THENHVLINEO,YX:REMSH 

1556 I FB$= " -i"THENMARKO , XX, YX: REMC= " * " 

1560 IFB$="4"THENBD=1:REMBREIT 

1561 IFB$="-"THENBD=0:REMBREIT AUS 
1570 IFB$="K"THENGOSUB6000:REMKREIS 
1572 IFB$="-' "THENGOSUB6300 :REMREPKREIS 
1580 IFB$="R"THENGOSUB5250:REMRECHT 
1582 IFB$="THENGOSUB5 200:REMSH'R’ 

1585 IFB$="t"THENGOSUB5750:REMRORECHT’C='R’ 

1587 IFB$=''« "THENGOSUB5000:REMREPRORECHT* CTRL’’R’ 

1588 IFB$="B"THENGOSUB5500:REMBLOCK 

1589 IFB$="I"THENGOSUB5100:REMREPBLOCK SH’B’ 

1590 IFB$="L"THENGOSUB8000:REMLINE 
1600 IFB$=" 

"THENG0SUB9000:REMJOYLINE 

1602 IFB$="I "THENGOSUB23000 :REMSHAPEFILE 

1604 IFB$=" ‘"THENGOSUB12000: REMJOY ’ SH ’ J ’ 

1605 IFB$="F"THENGOSUB9510:REMLOWCOL 

1610 IFB$="->"THENGOSUB9520:REMC= S;SPRITEGET 

1615 IFB$="*"THENXWX=XX:YWX=YX:GOSUB9600:REMSH S;S 

PRITEPLOT 

1620 IFB$- ",&"THENSPRITE7, XX, YX: REMJOYLINE 
1625 IFBS-"!"THENGOSUB9900:REM MAGNIFY 
1640" IFB$-"® "THENGOSUB2450: REMTEXT 
1650 IFB$="C-THENGOSUB2550:REMCHANGE 

1655 I FB«= " 0"THENI = 4:GOSUB2 610:REMOR 

1656 IFB$;"A"THENI=5:GOSUB2610:REMAND 

1657 IFB»= l 'E 1 THEN I = 6: GOSUB2610: REMEXOR 
1700 1FB$="Q"THENGOSUB20000:REMDUPLIC. 

1705 IFB$="•"THENGOSUB20500:REMREDUP, 

1710 IFB$ ="V"THENGOSUB21000:REMSCROLL 

1720 IFB$="#"THENMODEO : GOSUB2250: MODE1: REMDISK 
1750 IFB$="/"THENGOSUB2400:REMMIRROR 
1800 IFB$> = "0"ANDBS < = "9"THENMX(VAL(B$))=XX:MY(VAL( 
B$))=YX:BEEP20 

1810 IFB$="M"THENGOSUB3100:REMMEMPOINT 

1820 IFB$=" I"THENGOSUB3150:REMMEMPOINT DISPLAY<C= 

M> 

1900 RETURN 

1999 REM**** MENUE **** 

2000 GOSUB75:BEEP1:MODEO:BL=1 ■- 
2005 GOSUB50280 

2010 ONIGOSUB 2050,2150,2250,2350,2400,2450,2550,2 

750,21000,3050 

2050 MODE1:BEEP100:RETURN 

2149 REM****" DRAW/FIGURE "**** 


S46R Q 


2050,8000,5250,5500,5750,600 


2150 BL=2:GOSUB50280 
2160 MODE1:ON IGOSUB 
0,9000,23000 
2240 RETURN 

2249 REM****" DISK HARD "***» 

2250 WINDOW:BL=3:GOSUB50280 

2260 ON IGOSUB 2050,2280,2290,2310,7100,7100,7100 
,7100 

2262 REMDIR,"LOAD", " SAVE ","HARD NORM","X-","Y-","X 
&Y-" 

2270 RETURN 

2280 GOSUB7080 : IFRR=OTHENDIR: GOSUB 68 : PRINT":"!" 

2285 RETURN 

2290 PRINT-n« GRAFIK LADEN B":GOSUB2345 

2295 GOSUB 68 :GETW$:IFW$ = "N "THEN2290 

2296 IFW$="R"THEN2340 
2298 IFW$<>"J"THEN2295 

2300 MODE1:GLOADDNS,8:GOSUB7080:IFRRTHEN2290 
2305 RETURN 

2310 PRINT":"!« GRAFIK S A V E N S":GOSUB2345 
2316 GOSUB68:GETW$:IFW$="N"THEN2310 
2320 IFW$="R"THEN2340 
2330 IFW$o’’J"THEN2295 

2332 MODE1:CHANGE:GSAVEDNS,8:CHANGE:GOSUB7080:IFRR 
THEN2310 

2340 RETURN 

234 5 ZX=0:ZY=10:GOSUB25:POKE198,0:DN$="":INPUT"«FI 
LENAME:M";DNS:BEEP 

2346 ZY=15:GOSUB25:PRINTLES: PRINT" stSil"DN$; "•>! <=0 
KAY? <«J/N/R>":RETURN 

2349 REM****" ZOOM **** 

2350 WINDOW:BL=4:GOSUB50280 

2360 MODE1:ONIGOSUB2050,2380,2380,2380,2390 
2362 REM"EN LX&Y,EN LX,EN LY 
2370 RETURN 

2380 CHANGEI:CLEAR:CHANGEI:ENLARGI-2:RETURN 

2390 IFPEEK(828)=169ANDPEEKI995)=96THENSYS828:BEEP 

255 

2395 RETURN 

2399 REM****" MIRROR **** 

2400 WINDOW: BL=5: GOSUB50280 : PRINT""!« MIRROR ■" ; : 
2405 ONIGOSUB2050,2422,2424,2426,2428,2430,2432,24 
34, 21?6,13000 

242U X.ETURN 

2422 GOSUB2440:HVX=0:OF%=0:G0T052 
2424 GOSUB2445:HVX^l:OFX=0:G0T052 
2426 GOSUB2440:HVX=0:OFX=2:G0T052 
2428 GOSUB2440:HV%=0:OFX=3:G0T052 
2430 GOSUB2445:HVX=1:0FX=3:G0T052 
2432 GOSUB2445:HVX=1:OFX=2:G0T052 
2434 G0SUB2445:HVX=1:0FX=1:G0T052 
2436 GOSUB2440:HVX=0:OFX=l:G0T052 
2440 PRINT" Y ": PRINT"W»na! ZEILEN 
2447 

2445 PRINT" X & Y" ".PRINT"«M SPALTEN ?»B":NI=40 
2447 BL=6:GOSUB50290:ZSX=NI:MODE1:RETURN 

2449 REM****" TEXT "**** 

2450 WINDOW:PRINT"D":POKERQ, 6 +((PS=2)*-5) 

2455 GOSUB2530:POKE198,0 

2460 BL=17:GOSUB50290 

2470 ON IGOSUB 10000,2490,2500,2505,2510,2515,2520 
.2512,2050 

2475 I FI - 9THENMODE1: BEEP: POKERQ, (PS=2) * -11: RETURN 
2480 G0T02455 

2490 BR=1: HE=1: SR=1: NE=0: AB= 8 : RETURN 

2500 BL=18:NI=BR:GOSUB50280:BR=NI:AB-8*BR:RETURN 

2505 BL=19:NI=AB:GOSUB50280:AB=NI:RETURN 

2510 BL=20:NI=HE:GOSUB50280:HE=NI:RETURN 

2512 BL=9:GOSUB50280:ZM=1-1:PRINT"3":RETURN 

2516 BL=21:NI=NE:GOSUB50280:NE^NI:IFNE>(8*HE)THENN 

E=8*HE:G0T02515 

2516 RETURN 

2520 BL=22:GOSUB50280:SR=I:RETURN 

2530 ZX=14 : ZY=0: GOSUB25 : PRINT"« PARAMETER»“" 

2532 ZX= 10 : ZY=08: GOSUB26 : PRINTLO$STR$(BR) 

2534 ZY=10 : GOSUB26:PRINTLOSSTRS(AB) 

2536 ZY=12:GOSUB25:PRINTLOSSTRS(HE) 

2538 ZY=14:GOSUB25:PRINTLO$STR$(NE) 

Listing 6. »CAD2001«. Ein Zeichen und CAD-Programm 
als Anwendungsbeispiel für »GR2001«. 

Bitte ohne Checksummer, aber mit aktivierter 
Erweiterung »GR2001« eingeben. 


?■*»" :NI = 25:GOTO 
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2540 ZY=16:GOSUB2 5:PRINTLOSSTRS(SR) 

2542 ZY=18:GOSUB25:PRINTLOSSTRS(ZM) 

2545 RETURN 

2549 REM****" CHANGE/MIX "***** 

2550 WINDOW:BL=7:GOSUB50280 

2560 MODE1:ONIGOSUB2050,2580,2590,2600,2610,2610,2 
610,2635,2636,20000 
2570 RETURN 
2580 CHANGE :RETURN 
2590 CHANGEI:RETURN 
2600 CHANGE:CHANGEI:CHANGE:RETURN 
2610 COMBI-3:RETURN 

2635 PS=1 •• PSCREEN1: POKE53280,00: RETURN 

2636 PS=2: PSCREEN2: POKE53280,11: RETURN 

2649 REM****" COLOR ''**** 

2650 WINDOW:PRINT"DPUNKTFARBE":FA=PF:GOSUB2700:PF= 

FA:MODE1:RETURN 

2670 WINDOW:PRINT "^HINTERGRUND":FA=HF:GOSUB2700:HF 
=FA:MODE1:RETURN 

2700 ZX=0:ZY=09:GOSUB25:FORI=0T015:PRINT". ";:NEXT 
: PRINT •• FORI=0TO3: PRINTCOS: NEXT 
27CT* FORI=0TOl 5: PRINT". ";:NEXT 
2705 ZY=15:ZX=2*FA:GOSUB25:PRINT"tll"; 

2710 GETWS: IFWS="»I"THENFA=FA+1 + (FA> = 15 ): PRINT" 

2712 IFW$="lt"THENFA=FA-l-(FA<=0):PRINT" 

2713 IFWS=CHR$(13)THENPRINTFA:BEEP:RETURN 
2715 GOTO2705 

2749 REM****" SPRITE ''**** 

2750 BL=8:GOSUB50280:ONIGOSUB 2050,9520,9600,9800, 
9850,9900 

2780 GOSUB75:RETURN 

2999 REM****" CLEAR **** 

3000 GOSUB70:PRINT"CLEAR SJ/N9 ?";:GOSUB 68 :GETWS:I 
FW$<>"J"THEN3020 
3010 CLEAR 

3020 GOSUB75:RETURN:REM<<<< 

3049 REM****" ENDE **** 

3050 GOSUB70:BEEP255: PRINT"mIENDE SJ/NB ?»"; :GOSUB 
68 :GETW$: IFW$O"J"THEN3020 

3060 WINDOW:GOSUB78:PRINTCHRS(9):POKE788,49:POKE51 
092,49:PORE52944,49 
3070 CLOSEI:END:REM<<<< 

3099 REM****" MEMORY POINT **** rraga q 

3100 GOSUB 68 :GETWW$: 

3110 IFWW$>="0"ANDWW$<="9"THENXQ%=MX(VAL(WW$)):YQ% 
=MY(VAL(WW$)):GOSUB85:BEEP30 
3120 RETURN 

3150 WINDOW: BD=0 : PRINT""3MEMORY POINT" 

3160 FORI=0TO9: PRINTI, " 1BH1"MX{ I), " BBBT'MY(I) " 

M":NEXT 

3170 PRINT"Bfc-<F1>* RETURN": 

3180 GOSUB 68 : GETWS: IFW$O"»"THEN3180 
3190 MODE1:RETURN 

3999 REM****" DISCREEN **** 

4000 K=0:XQ=X%:YQ=Y%:GCURS1:ZX=0:ZY=24:GOSUB4310 
4002 D$(0)="RESET":D$(1)=" SET" 

4005 GOSUB79: XQX=160 : YQ3S=80: GOSUB85 
4010 KK=KK+1 

4020 IFK=1THENK=0:BEEP:GOSUB4 310:G0T04 0 5 0 
4030 IFK=0THENK=1:BEEP:GOSUB4310 
4050 POKEFL,0:GCURS2:POKESE ,8 
4060 IFPEEK(203)=60THEN4010 

4062 IFX5S> 311THENXQ%= 311: YQ96=Y*: GOSUB85 

4063 IFY%>160THENYQ%=160:XQ%=X%:GOSUB85 
4065 X15J= (X96+1 )/8 '■ Y1S6= (YX+l) / 8 : FI=PEEK(FL) 

4070 GETWS: 

4071 IFW$="M"THEN4340:REM<<<< 

4072 IFWS = " :r " THENGOSUB25: GOSUB4 300 
4074 IFW$="I"THENGOSUB4250 

4076 IFW$= "a''THENGOSUB4320 

4077 IFW$="«- "THENGOSUB4325 

4078 IFW$="t"THENGOSUB4330 

4079 IFW$="H"THENGOSUB4335 

4100 P=X19S+40*Y1*: PE=PEEK( 1024+P) 

4150 IFFIOR(W$=WC$)THENPOKE(1024+P),BC(K):POKE5529 
6 +P,PF 

4200 GOTO4050 

4250 SPRITE7,0,0:SPRITE6,24,0:ZM=0:GOSUB4260:GTSCR 
EEN2,0,0:GOSUB4300 

4255 DISCREENO , 0: ZM=1: GOSUB4260: SPRPLOT7,0,0,0: SPR 

PLOT6,0,24,0:RETURN 

4260 BLOCKZM,0,0,47,20,1,1:RETURN 

4300 PRINT'".':" :REM<<< 

4310 GOSUB25:PRINTLES;:GOSUB25::PRINTDS(K), "a<I>“ 
M<*-,*>B "a«Fl>* RETURN"; 


4311 RETURN:REM<<< 

4320 FORI=XlXTO39:P=I+40*Yl%:POKE<1024+P),BC(0):NE 
XT'.RETURN: REM« < 

4325 FORI-OTOXIX:P=I+40*Y1X:POKE(1024+P),BC(0): NEX 
T:RETURN:REM<<< 

4330 FORI=OTOY1«:P=X1X+40*I:POKE(1024+P),BC(0):NEX 
T: RETURN: REM« < 

4335 FORI=Y1XT020:P=X1X+40*I:POKE(1024+P),BC(0):NE 
XT:RETURN:REM<<< 

4340 BEEP:MODE1:GOSUB78:XQ%=XQ:YQ%=YQ:GOSUB85:RETU 
RN:REM< < < < 

4349 REM****" DISCREEN2 **** 

4350 K=0:RB=0:ZX=0:ZY=24:Z1=0:GOSUB4820 
4360 POKEFL,0:GCURS2:FI=PEEK(FL) 

4370 GETWS:IFFIORW$=WC$THENGOSUB4700 

4380 IFWS-" = "ANDRBTHENZM=2:GOSUB40:DISCREENXO,YO:R 

B=0:WINDOW:MODEO:BEEP:GOT04000 

4390 IFW$="■"ANDRBTHENZM= 2:GOSUB40:ÖOSUB75:BEEP:RE 
TURN 

4400 GOTO4360 

4499 REM****" GTSCREEN **** 

4500 K=0:RB=0:ZX=0:ZY=24:Z1=0:GOSUB4800 
4520 POKEFL,0:GCURS2:FI-PEEK(FL) 

4550 GETWS:IFFIORWS=WC$THENGOSUB4700 
4560 IFW$="S"ANDRBTHENGOSUB4650:W$="=" 

4 565 IFW$=" = "ANDRBTHENZM=2:BEEP:GOSUB40:ZM= ZI:QTSC 
REENZM,XO,YO:RB=0 

4570 IFW$=:"Z"THENZ1 = Z1 + 1 + (3*(Z1>=2)):GOSUB4800 

4575 IFW$="I"THENINVERS 

4580 IFWS ="■"ANDRBTHENZM=2:GOSUB40 

4585 IFWS = "■ "THENGOSUB75: BEEP:RETURN 

4600 GOTO4520 

4650 BLOCK1,X0+1,YO+1,X0+39,Y0+20:RETURN 

4700 IF(XX+40>319)OR(Y%+21>199)THENRETURN 

4710 BEEP: ZM=2: IFRBTHENGOSUB40:RB=0 

4720 IFRB=0THENX0=XX:Y0=YX:Xl-XX+40:Y1=Y%+21:GOSUB 

40:RB=1: 

4740 POKESE,8: 

4750 RETURN:REM<<<« 

4800 GOSUB70:PRINT"3< = >B ;^<F1>S»B S<I>B a<Z>an";Zl 
; :RETURN:REM««< 

4820 GOSUB70: PRINT"a< = >“ ;V<Fl>*” "; '.RETURN:REM«< 

4999 ru£M****" RORECHT REPEAT **** 

5000 Z1=Q:GOSUB5245 
5010 POKEFL,0 

5020 GCURS2:GETWS:IFW$="»"THEN5490 

5022 IFWS= " = " ORPEEK(FL) THENXO : YO ='Y%: ZM= Z1: GOSUB 

45:GOT05010 

5030 IFWS<>“Z"THEN6020 
5035 Z1=Z1+1:IFZ1>2THENZ1=0 
5040 GOSUB5245:GOTO5020 

5099 REM****" BLOCK REPEAT **** 

5100 Z1=0:GOSUB5245:PRINT"REP.BLOCK";:IFBX(1)=0AND 
BY(1)=0THEN5490 

5110 POKEFL,0 

5115 GCURS2:FI=PEEK(FL):GETWS:IFW$=THEN5490: REM 
RET 

5125 IFW$="M"THENGOSUB3100 

5127 IFWS="Z"THENZ1=Z1+1:IFZ1<3THENG0SUB5245:G0T05 
115 

5128 IFZ1>2THENZ1=0: GOSUB5245 '• G0T05115 

5129 IFFI=OANDW$< >" = "THEN5115 

5130 X0=X5t: Y0=Y*:X1=X0+BX( 1): Y1=Y0+BY( 1): ZM=Z1 
5135 IF(X1<320)AND(Yl<200)THENWINDOW:MODE1:GOSUB50 
:WINDOWO,190 

5140 GOTO5110 

5199 REM****" RECHT REPEAT ***** 

5200 Z1=0:GOSUB5245:PRINT" REP.RECHT";:IFRX(1)=0AN 
DRY(1)=0THEN5490 

5210 POKEFL,0 

5215 GCURS2:FI=PEEK(FL):IFPEEK(203) = 36THENGOSUB310 
0 

5220 GETWS: IFFI=0ANDW$<>" = "ANDW$O"«"ANDW$<>"Z"THE 
N5215 

5225 IFW$="»"THEN5490:REM <F1>RETURN 

5227 IFW$="Z"THENZ1=Z1+1+3*(Z1>=2):GOSUB5245:G0T05 

215 

5230 X0=X%:Y0=Y%:X1=X0+RX(1):Y1=Y0+RY(1):ZM=Z1:IF( 
XI< 319)AND(Y1<199)THENGOSUB40 
5240 GOTO5210 

5245 GOSUB70:PRINT":!< = >■ sk.<Fl>* a<Z>B"ZI;:RETURN 
:REM< < << < 

5249 REM****" RECHT **** 

5250 RB=0:Zl=0:PRINT"n";TAB(15)"N RECHTECK" 


130? 


96 
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5260 WINDOW: MODEO: BL=9: GOSUB50290: Z1=I-1 •• PRINT'TT': 

5880 IFW$<>" = "THEN5875 

MODE!:GOSUB5470 

5890 WINDOW:MODEO:BL=12:GOSUB50280:L2X-NI 

5300 POKEFL,0 

5895 WI=WQ:L1=L2%:L2=0:GOSUB45:GOSUB5982 

5305 GCURS2:FI=FEEK(FL):IFPEEK(203)=36THENGOSUB310 

5900 GOSUB68:GETW$:IFW$="*"THENGOSUB45:GOTO5890 

0:REH MEMORY POINT 

5905 IFW$O" = "THEN5900 

5310 GETW$:IFFI=0ANDW$O" = "ANDW$<>"«« "THEN5305 

5910 GOSUB45 

5315 IFW$="n»"THEN5490 

5920 WI=WL:L1=L1%:L2=0:GOSUB45 

5320 RB=1:X0 =XX:YO =YX:GOSUB54 80:GOSUB54 8 2 

5930 ZM=Z1: L1=L1%:L2=L2X:GOSUB45:GOTO5990 

5325 GOSUB5475:PRINT"t"XX"/"YX"l"; 

5975 BLOCK1,X0-11,YO-10,X0+10,YO+9:SPRPLOT7,0,X0-1 

5330 POKEFL,0: IFPEEK(203) O64THEN5330 

2,Y0-10:RETURN 

5335 GCURS2:FI=PEEK(FL):IFPEEK(203) = 36THENGOSUB310 

5980 GOSUB70: PRINT"! "XO" / "Y0"I WINKEL'.üT'WL"'* "; : RE 

0:REM MEMORY POINT 

TURN 

5340 GETW$:IFFI=0ANDW$<>" ="THEN5335 

5981 GOSUB70:PRINT"a< = >(" WI :rn"WL" RETURN 

5350 RX(1)=ABS(X0-X%):GOSUB5484 

5982 GOSUB70:PRINT"LI"L1X" / L2"L2X" OK<fl=*> KOR 

5355 GOSUB5476:PRINT"RX:"RX(1); 

R< «*«■>"; : RETURN 

5360 POKEFL, 0 : IFPEEK( 203 ) O64THEN5330 

5985 ZM=1:GOSUB45:ZM=0:WI=WL:GOSUB45:RETURN 

5365 GCURS2:FI=PEEK(FL):IFPEEK(203)=36THENGOSUB310 

5990 POKEVS+21,PEEK(VS+21)0R1:GOSUB75:RETURN 

0 

5999 REM****" CIRCLE **** 

5370 GETW$:IFFI=0ANDW$< >" = "ANDWSC >"/" THEN6365 

6000 WINDOW: MODEO : BL = 9: GOSUB50280 : ZUI-1: BL= 14 :GOS 

5375 IFW$ ="/"THENRY(1)=RX(1):G0TO5382 

UB50280:ONIGOTO6005,6150 

5380 RY(1)=ABS(YO-YX) 

6005 GOSUB5470:PRINT"ZENTRUM"; 

5382 IFYO+RY(1)<200THENGOSUB5486:GOT05400 

6010 POKEFL,0 

5385 GOTO5360 

6015 GCURS2:FI=PEEK(FL):IFPEEK(203)=36THENGOSUB310 

5400 GOSUB5486:GOSUB5484:GOSUB5482:GOSUB5480:X1=X0 

0:REMMEMPOINT 

+RX(1):Yl=YO+RY(1):ZM=Z1 

6020 GETW$: IFFI =0ANDW$<>" = "ANDWSO"«"THEN6015 

5420 GOSUB40:GOTO5490 

6025 IFW®="M "THEN8480:REM RETURN 

5470 GOSUB70:PRINT"Ö<=>» :*-<Fl>«" RETURN:REM«« 

6030 X0-X%:YO=YX:XQ%=XX:YQX=Y%:GOSUB5480:GOSUB5482 

< 

6040 GOSUB70:PRINT"ak=>BX-RAD C";XX"/"YX" 1 "; 

5475 GOSUB70:PRINT"7JX-LEN!iö RETURN: REM««< 

6042 POKEFL,0 

5476 GOSUB70 : PRINT"(0Y-LEN**S < = >B liJX=Y*iei</>B" ; :RETU 

6045 GCURS2:FI=PEEK(FL):IFPEEK(203)=36THENGOSUB310 

RN:REM<<<<< 

0:REM MEMORY POINT 

5480 LINE2,0,YO,319,YO:RETURN 

6050 GETW$:IFFI=OANDW$<>"="THEN6045 

5482 LINE2,XO,0,XO,199:RETURN 

6055 KX(1)=ABS(X0-XX):G0SUB6494 

5484 LINE2,X0+RX(1),0,X0+RX(1),199:RETURN 

6060 GOSUB70: PRINT"a< = >«Y-RAD :ü</>SY=X 

5486 LINE2,0,YO+RY(1),319,Y0+RY(1):RETURN 

6062 POKEFL,0 

5490 GOSUB75:BEEP:RETURN 

6065 GCURS2:FI=PEEK(FL):IFPEEK(203)=36THENGOSUB310 

5499 REM****'' BLOCK **** 

0:REM MEMORY POINT 

5500 WINDOW: MODEO : PRINT'TI" ; LE$; "8 BLOCK'': BL=9: GOSU 

6070 GETW$: IFFI=OANDW$<>" = "ANDWSO " / " THEN6065 

B50290:Z2=I~1 

6075 IFW$="/"THENKY(1)-KX(1):GOTO6082 

5520 BL=10:GOSUB50280:RI=I-1:REM RICHT 

6080 KY(1)=ABS(Y0-Y%) 

5540 NI=SW:BL=11:GOSUB50280:SW=NI:REMSCHRITTWEITE 

6082 IFYO+KY (IX200THENGOSUB6496: G0T06100 

5580 Z1=ZM:GOSUB5470: Zl=2: GOSUB5305: IFW$="i»''THEN54 

6085 GOTO6060 

90 Ol 

610C COSUB6496iGOSUB6494:GOSUB5482:GOSUB5480 

6120' GOTO6180 

5585 BX(1)=RX(1):BY(1)=RY(1) 

5590 GOSUB20420: PRINTXO"/''YO'': : "BX( 1) " : "BY( 1)) 

6150 X0=XX:Y0=YX:XQ%=XX:YQX=YX 

5600 GETW$:IFW$="*"THENGOSUB40:GOTO5580 

6160 BL=15:GOSUB50280:KX(1)=NI 

5610 IFW$O" = "ANDFI=0THEN5600 

6165 BL=16:GOSUB50280:KY(1)=NI:MODE1 

5620 GOSUB40 

6180 IFXO+KXt1)<320ANDX0-KX(1)>=0ANDY0+KY(1X200AN 

5630 ZM= Z2:WINDOW:MODE1:GOSUB50 

DYO-KY(1)>=0THEN6400 

5650 BEEP255:RETURN: REM<<<<<<< 

6190 GOT06000 

5749 REM****" RORECHT ***** 

6299 REM****" REPEAT KREIS **** 

5750 RB=0:ZX=0:ZY=24:Z1=0:WINDOW:MODEO 

6300 GOSUB6492:IFKX(1)=0ANDKY(1)=0THEN6480:REM==>R 

5755 PRINT":T';LE$; "« ROT. RECHT*“":BL=9:GOSUB50290: 

ETURN 

Zl-I-1:MODE1:GOSUB5470 

6310 POKEFL,0 

5760 POKEFL,0 

6315 GCURS2:FI=PEEK(FL):IFPEEK(203) = 36THENGOSUB310 

5765 GCURS2:FI=PEEK(FL):IFPEEK(203)=36THENGOSUB310 

0:REM MEMORY POINT 

0:REM MEMORY POINT 


5770 GETW$:IFFI=0ANDW$<> " = "ANDW$<> "■"THEN5765 

"3":IFA$<>"£"THEN105 

5775 IFW$="«"THEN5490 

6320 GETW$:IFFI=OANDW$<>"="ANDWSO"«"ANDWSO"Z"THE 

5780 X0=XX:Y0=Y%:IF(X0<12)OR(X0>309)OR(Y0<11)OR(YO 

N6315 

>188)THEN5760 

6325 IFW$="M"THEN6480:REM <F1>RETURN 

5790 SPRITE7,X0-12,Y0-10:BLOCK1,XO-12,Y0-10,XO+11, 

6327 IFW$="Z"THENZ1 = Z1 +1 + 3*(Z1> = 2):GOSUB6492:G0T06 

Y0+10 

315 

5791 POKEVS+21,PEEK(VS+21)AND254 

6330 XO^XX:Y0=Y%:ZM=Z1 

5792 WI=WL:Ll=10:L2=0:ZM=0:GOSUB45 

6335 IFXO+KXI1) <320ANDX0-KX(1)>=0ANDY0+KY(1)<200AN 

5800 GOSU825:PRINT'VtKFl>B1 E)<s>B «</>» ■■■■Kl" 

DKY(1)>=0THEN6350 

WL"M"; 

6340 GOTO6310 

5805 ZM=1:GOSUB45:ZM=0:WI=WL:GOSUB45 

6350 GOSUB35 '• GOTO6310 

5810 WT=PEEK(203):WP=PEEK(663):IFWT=4THENBEEP:GOSU 

6400 GOSUB35 

B5975:GOTO5990 

6480 GOSUB75:GOSUB85:RETURN 

5815 IFWT-53THENBEEP:G0T05850 

6490 : 

5816 IFWT=55THENWINDOW:MODEO:NI=WL:BL=13:GOSUB5028 

6492 GOSUB5245:PRINT” R.CIRC.RETURN 

0:WL-NI:GOSUB69:GOTO5800 

6494 LINE2,X0+KX(1),0,XO+KX(1),199:RETURN 

5820 IFWP=1THEN5840 

6496 LINE2,0,YO+KY(1),319,YO+KY(1):RETURN 

5825 IFWT=2THENWL=WL+1:IF359<WLTHENWL=0 

7079 REM ****'• DISK ERROR **** 

5830 IFWT=7THENWL=WL-1:IFWL<0THENWL=359 

7080 RR=0:INPUT#1,AZ,BZS.CZ.DZ 

5835 GOTO5800 

7085 IFAZ=0THEN7095 

5840 IFWT=7THENWL=WL-10:IFWL<0THENWL=359 

7090 RR=1: MODEO: BEEP255: BEEP255: PRINT'TISDISK FEHLE 

5845 IFWT=2THENWL=WL+10:IF359<WLTHENWL=0 

R :"AZ.BZS,"T/S:"CZ"/"DZ 

5848 GOTO5800 

7092 PRINT"9Wai<TASTE> " : GOSUB68 

5850 WQ=WL~90;GOSUB5975 

7095 RETURN:REM<<<< 

5860 WINDOW:MODEO : NI=L1 '• BL=12 : GOSUB50280 : L1X=NI 

7099 REM****" HARDCOPY **** 

5870 ZM=2:L1=L1X:L2=0:GOSUB45:GOSUB5982 

7100 PRINT'TIHa HARDCOPY B": 1 = 1-5 

5875 GOSUB68:GETW$:IFW$="*"THENZM=2:GOSUB45:G0T058 

60 
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7105 ZX=0:ZY=10:GOSUB25:PRINT"DRÜCKER EINGESCHALTE 
T ?", , 

7106 POKE646, FCAND15: FC=FC+. 5: PRINT"IHHHHia<J >B 

a<N>H"; 

7110 GETWS: IFWSO " J" ANDWSO "N"THEN7106 

7115 PRINT"4* u : IFW$= "N "THENBEEP255: GOSUB7 5: RETURN 

7150 GOSÜB75:HCOPYI:MODE1:BEEP255:RETURN 

7999 REM****" LINE **** 

8000 RB=0:Zl=0:PRINT":r ;TAB(15)"« LINIE" 

8020 WINDOW: MODEO: BL=9: GOSUB50290 : Z1=I-1: PRINT'TJ" : 
MODE1 

8030 GOSUB8400 
8050 GOSUB68:GETWWS 

8060 I FWW$>=’’ 0 " ANDWW$< = " 9 " THENXO =MX (VAL (WW$)): YO=M 
Y(VAL(WW$)):BEEP10:GOT08080 
8062 IFWW$-"»"THEN5490 

8064 IFWW$="Z"THEN8000 

8065 GOTO8050 

8080 GOSUB68:GETWWS: 

8090 IFWWS > ="0"ANDWWS< ="9"THENX1=MX(VAL(WW$)): Y1 =M 
Y(VAL(WW$)):BEEP10:GOTO810O 
8092 IFWW$-"m"THEN8490:REM <F1> 

8094 IFWW$="Z"THEN8000:REM 
8100 ZM=Z1:GOSUB30:GOT08030 

8400 GOSUB70:PRINT"S<0. ,9>S C*^<F1>«BI C ZM>m" ; ZI "**" ; 

: RETURN:REM<<<« 

8490 GOSUB75:BEEP: RETURN: REM<<<<<<<<< 

8999 REM****" JOYLINE **** 

9000 SPRITE7,0,0:XP-XX:YP=YX:XW=XX:YW=Y%:XQX=0:YQ% 
=0:GOSUB85 

9020 BLOCK1,0,0,23,20 
9030 GOSUB9400 

9040 SPRITEO,0,0:GOSUB9400:SPRPLOT7,0,0,0 
9050 XQX=XW:YQX=YW:GOSUB85 

9060 GCURS2:GETWS:IFPEEK(JS) = 1110RW$=" = "THEN9100 
9065 IFWSO "£"THEN9060 

9068 GOSUB70: PRINT" ö< CTRL F>B a<M.0..9>H r4<I>B S<. 
>h a<t>B a<<->® s»«.<fi>»h"; 

9070 BEEP100:GOSUB68:GETBS:WINDOW:MODE1:IFB$="I"TH 
ENINVERS:IFJFTHENGOSUB22500 
9072 IFB$="a"THENFILLXX, YX:IFJFTHENGOSUB22520 
9074 IFB$="."THENXP-X%:YP=YX:IFJFTHENGOSUB22540:RE 
MORIGIN r . PB 

9076 IFB$="M"THENGOSUB3100:B$=”" 

9078 IFB$="+-"ANDJF=1THENGOSUB22560: GOSUB22300 :REMF 
ILECLOSE 

9079 IFB$=“T"ANDJF=OTHENGOSUB22000:REMFILE 

9080 IFB$-"»"THEN9300 
9085 GOSUB1800 -.REMMEMPOINT 
9090 GOTO9060 

9100 Z1=2:GOSUB9420 
9110 GOSUB9450 

9120 GETWS:FJ=PEEK(JS):IFW$="="ORFJ=l11THEN9200 
9130 IFWS="*"THENZ1=2:GOSUB9 4 20:WINDOW:MODE1:G0T09 
060 

9140 GOT09120 

9200 Z1=0 FJ=0: BEEP:GOSUB9420 : WINDOW: MODE1: IFJFTHE 
NGOSUB22700 

9250 XP=XX: YP=YX: FORI=0TO200: NEXT: GOTO9060 

9300 IFJFTHENGOSUB22560:GOSUB22300 

9310 GCURS1:XQ%=XW:YQX=YW:GOSUB86:WINDOW:MODE1:RET 

URN:REM< 

9400 POINT2,11,02:LINE2,13,02,17,02:RETURN 
9420 LINEZ1,XP,YP,XX,YX:RETURN 

9450 GOSUB70:PRINT"ö<=,FI>B OK #M*>S KORR« "XV 
/"YX;:RETURN:REM<<<<< 

9490 RETURN 

9509 REM****" LOWCOL **** 

9510 GOSUB70:PRINT"LOWCOL c*.<Fl>«! S<I>S a<P>B"P 
l"a<H>B"Hl; 

9512 POKESE,8:GCURS2:GETW$:IFW$=“="ORPEEK(FL)THENL 
OWCOLXX,YX,P1,H1:POKEFL,0 

9513 IFW$="P"THENPW-PF:PF=P1:GOSUB2650:PI=PF:PF=PW 
:GOTO9510 

9514 IFW$="H"THENHW=HF:HF=H1:GOSUB2670:H1=HF:HF=HW 
:GOTO9510 

9515 IFW$="I"THENINVERS 

9516 IFW$=" m "THENBEEP:GOSUB7 5:RETURN 

9518 :G0T09512 

9519 REM****" SPRPLOT **** 

9520 Z1=0:XWX=XX:YWX=YX:IFXX>308ORYX>197THENBEEP25 
5:RETURN 

9530 GOSUB9700:GOSUB4820:PRINT" SPRITE"; 

9550 GCURS2:GETW$:IFW$-"«"THENXQX=XW%:YQX=YW%:GCUR 

S1:GOSUB8 6:GOSUB7 5:RETURN 

9555 IF(W$<>"=")AND(PEEK(FL)=0)THEN9550 


9557 POKEFL,0:IFXX>3080RXX<110RYX>1810RYX<2THEN955 
0 

9560 SPRITEO,XX-ll.YX-2: 

9600 G0SUB9695 

9610 GCURS2:GETW$:IFW$="£“THEN9630 

9620 IFW$< >" = "ANDPEEK(FL)=0ANDW$< >"K"THEN9610 

9625 IFXX>3080RXX<120RYX>1810RYX<2THEN9610 

9626 IFW$="K"THENBL0CK1,X%-11,YX-2,XX+12,YX+18 

9627 WINDOW:MODE1:SPRPLOTO,ZI,XX-11,YX-2:WINDOWO,1 
90:POKEFL,0 

9628 GOTO9610 

9630 GOSUB9698:GOSUB68:GETW$:BEEP:IFW$="C'THENGOSU 
B2550 

9650 IFW$="n"THENXQX=XWX:YQX=YWX:GCURS1:GOSUB85:GO 

SUB75:RETURN 

9660 IFW$="I"THENINVERS 

9665 IFW$="L"THENWINDOW:GOSUB9800:REM SPRITE LOADE 
N 

9668 IFW$="S"THENWINDOW:GOSUB9850:REM SPRITE SAVEN 

9669 IFW$="F"THENWINDOW:MODE1:GOSUB9760:WINDOWO,19 
0 

9670 IFW$<>"Z"THEN9600 
9675 Z1=Z1+1:IFZ1>2THENZ1=0 
9680 GOSUB5245:GOT09600 

9690 IFXX>3080RXX<120RYX>1810RYX<2THENRETURN 
9692 BLOCK1,XX-12,YX-2,XX+11,YX*16:SPRPLOTO,ZI,XX- 
12, YX-2:RETURN 

9695 GOSUB70 : PRINT’ SPRITEPLOT OT<£>« a<=>- ZM:" 
ZI; '.RETURN 

9698 GOSUB70:PRINT"S<F>B N<C>B sl<I>« S<S>B a<L>B S 
<F1>® S<Z>B ZM"Z1; : RETURN 

9699 REM. 

9700 SPRITE7,0,0:XQX=0:YQX=0:GOSUB85 
9710 BLOCK 1,0,0,23,20: RECHTO ,0,0,23,20 

9720 SPRITEO,0,0:BLOCK1,0,0,23,20:SPRPLOT7,0,0,0 
9740 XQX=XWX+11:YQX=YWX+2:GOSUB85:RETURN 
9760 FORX0=0TO300STEP24:FORY0=0TO180STEP21:SPRPLOT 
0,ZI,XO,YO:NEXT:NEXT 

9765 SPRITE7,0,10:FORX0r0TO300STEP24:SPRPLOT7,ZI,X 
0,178:NEXT:SPRITE7,7,0 

9770 FORY0=0TO180STEP21:SPRPLOT7,ZI,295,YO:NEXT:SP 
RITE7,7,10:SPRPLOT7,ZI,295,178 
9775 nTURN 

9799 REM 

9800 PRINT'TISPRITE LADE N":GOSUB2345 

9805 IFXX>3080RY%>197THENBEEP255:GOSUB75:RETURN 
9810 GOSUB68:GETWS:IFW$="N“THEN9800 
9815 IFW$="R"THENBEEP:MODE1:RETURN 
9820 IFW$<>"J"THEN9810 

9830 MODE1:SLOAD 0,DNS,8:GOSUB7080:IFRRTHEN9800 
9840 RETURN 

9849 REM 

9850 PRINT"Z1SPRITE SAVE N":GOSUB2345 

9855 IFXX>3080RYX>197THENBEEP255:GOSUB75:RETURN 
9860 GOSUB68:GETWS:IFW$="N"THEN9850 
9865 IFW$="R"THENBEEP:MODE1:RETURN 
9870 IFW$<>"J"THEN9860 

9880 MODE1:SSAVE 0,DNS,8:GOSUB7080:IFRRTHEN9850 
9890 RETURN 

9899 REM**** "LUPE **** 

9900 XD=45:YD=50:XWX=XX:YWX=YX:GOSUB9970:WINDOW:MO 
DE1:FOKE50169,121:GOSUB9700 

9910 POKEVS+21,PEEK(VS+21)OR2:POKEVS+40,1:POKEVS+2 

9,PEEK(VS+2 9)OR2 

9912 POKEVS+23,PEEK(VS+23)OR2 

9950 GCURS2:SPRITEI,XX-11*<1+(XX<11)),YX-2*(1+(YX< 
2)):GETWS: IFW$= "««"THEN9990 

9955 IFW$ =" + "THENXD-XD+20*(11(XD>240)):GOSUB9970 

9956 IFW9="4"THENYD=YD+20*(1+(YD>150)):GOSUB9970 

9957 IFW$="-”THENXD=XD-20*(1+(XD<45)):GOSUB9970 

9958 IFWS="I"THENYD=YD-20*(1+(YD<70)):GOSUB9970 
9960 GOTO9950 

9970 POKEVS+2,XD:POKEVS+3,YD:RETURN 

9990 POKEVS+21,PEEK<VS+21JAND253:XQX=XX-11+(-11*(X 

%<ll)):YQX=YX-2+(-2*(YX<2)) 

9995 GCURS1:GOSUB85:BEEP265:RETURN:REM< 

9999 REM****" TEXT **** 

10000 MODE1:XQX=XX:YQX=YX:XWX=XX:YWX-YX :AY= 8 *HE: 

10005 AY(1)=AY:AY(2)= AY:AY(3)-AB:AY(4)=AB 

10006 AX( 1) =AB-. AX( 2) =AB: AX( 3 ) = 8 *HE : AX( 4 ) = 8 *HE 
10010 TX(1)=AB:TX(2)--AB:TX(3)=0:TX(4)-0 
10012 TY( 1) =0 : TY( 2 )=0: TY( 3) =-AY( 3): TY( 4 ) =AY(4 ) 
10040 IFXQX<0THENXQ%=0 

10042 IFYQX<0THENYQ%=0 
10044 IFY«X>199THENYQX=199 
10046 IFXQX>319THENXÖX=319 
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10050 G05UB85;POKE198,0:WAIT198,1:GETAS:POKESI,4:P 

21010 IFW$="THENBEEP:RETURN 

OKESI,0:IFAS="£"THEN10500 

21020 BL=23:WINDOW:GOSUB5028O:SG=I 

10060 IFA# =“ H "THENXQX=XQX +AX(SK):GOTO10040 

21030 GOSUB21420 

10065 IFA$="II"THENXQX=XQ%-AX(SR):GOT010040 

21040 GETW#: IFW$= "■"THENGOSUB40: GOSUB75:BEEP:RETUR 

10070 IFA$="Z)"THENYQX=YQX-AY(SR): GOT010040 

N 

10075 IFA$=:"M"THENYQ%=YQX+AY(SR): GOTO10040 

21050 IFPEEK(203) = 53THENWINDOW:MODE1:GOSUB40:GOSUB 

10080 IFA$=CHR$(13)THENGOSUB10700:GOT010040 

58:GOSUB40:GOT021030 

10100 IFRVTHENA$="8"+AS 

21060 IFW$="t"GOT021020 

10110 GOSUB60 : XQX=XQX+TX( SR) : YQX=YQX+TY( SR) : GOTO 10 

21080 GOTO21040 

040 

214 20 GOSUB70: PRI NT " SCROLL: tä< =>B "MUS (MI (BL) -1+SG); 

10500 GOSUB70 : PRINT "S<RVS>IB H<I>B S<M>W a<C..3>B S 

RICHT. : S<T>S CK<F1>*!" ; 

<HOME>* en<F7>a ah.<Fl>9H"; 

21425 RETURN 

10505 BEEP100:GOSUB68:GETB$:WINDOW:MODE1 

21999 REM****"JOYLINEFILE **** 

10510 I FB$= " »i" THENI = 9: XQX=XWX: YQ%=YWX: GOSUB8 5: GOTO 

22000 WINDOW:PRINT"na LINESHAPE FILE ANLEGEN *":GO 

11000 

SUB2345 

10515 IFB$=CHRS(18)THENRV=1 

22020 GOSUB68 : GETWS : IFW$="N"THEN22000 

10520 IFB$=CHR$ ( 146)THENRV=0 

22030 IFW$="R"THEN22200 

10525 IFB$= ” I"THENINVERS 

22040 IFWSO "J"THEN22020 

10530 IFB$="*I"THENMODEO : GOTO 11000 : REM < F7 > PARAMETER 

22050 OPEN5,8,6,DNS+ " ,S, W": GOSUB7080 : IFRRTHENCLOSE 

AENDERN 

5:GOT022000 

10535 IFB$="M"THENGOSUB3100 

22100 JF=1 : GOSUB22700 

10540 IFB$="C"THENGOSUB10740 

22200 MODE1:RETURN 

10545 IFB$:="Si"THENXQX=0 : YQX=0 

22300 JF=0:CLOSE 5 :G0SUB7080:BEEP ; RETURN 

10600 GOT010050 

22500 XHX=2:GOTO22600:REMINV 

10700 ONSRGOTO10710,10710.10720,10730 

22520 XHX=3:GOT022600 ; REMFILL 

10710 YQ%=YQX+AY:XQX=XW%:RETURN 

22540 XH%=4:GOTO22600:REMORIGIN 

10720 YQX=YWX: XQX=XQX+AY : RETURN 

22560 XHX=5:REMENDE 

10730 YQX=YW% : XQ%-XQ%-AY : RETURN 

22600 GOSUB22800 : GOSUB22700 : RETURN 

10740 GCURS2 : GETWS : I FWS < > " 3 '' THEN 107 40 

22700 XHX=XX/256:XLX=XX-256*XHX 

10745 XQX=X% : YQX=Y% : BEEP20 : RETURN 

22800 PRINT#5,CHRS(XLX) ; CHRS(XHX) ; CHR$(YX) ; : RETUR 

11000 TE^O:RETURN 

N 

11999 REM****'' JOYSTICK **** 

23000 WINDOW:PRINT"na LINESHAPE FILE LADEN “":GOSU 

12000 GOSUB70 : PRINT''JOYSPRAY :A.<F1>» &!<*>» ZM"ZZ 

B2345 

;" "; CHR$ ( 32- ( JD= 1 ) *10 ); "1*1"; 

23020 GOSUB68:GETWS:IFW$="N"THEN23000 

12002 GCURS2:GETWS:IFW$="m"THENBEEP:GOSUB75:RETURN 

23030 IFW$="R"THEN22200 

12005 IFW$ = " = "ORPEEK(FL)THENPOINTZZ,XX,Y%:POKEFL,0 

23040 IFWSO"J"THEN23020 

:IFJDTHENGOSUB12040 

23050 OPEN5,6,5,DN$+",S,R":GOSUB7080:IFRRTHENCLOSE 

12006 IFW$ ="*"THENBEEP:JD=JD-(JD=0)+(JD=1):GOTO120 

5:GOT023000 

00 

23060 MODE1: 

12007 IFW$="Z"THENWINDOW:BL=9:GOSUB50280:ZZ=I~1:GO 

23080 GOSUB23900:XP=XX:YP=YY 

TOI 2000 

23100 GOSUB23900:XCX-XHX 

12008 GOTO12002 

23200 IFXHX=OORXHX=1THENLINEO,XP,YP,XX,YY:GOTO2310 

12040 IFXX <110RYS <1OTHENRETURN 

0 

12050 WINDOW:MODE1:IFPEEK(162)AND1THENSPRPLOT5, ZZ, 

2321'' '10SUB23900 

XX-11,YX-10:WINDOWO,190:RETURN 

23220 IFXCX^2THENINVERS 

12060 SPRPLOT6,ZZ,XX-11,YX-10:WINDOWO,190:RETURN 

23240 IFXCX=3THENFILLXX,YY 

12999 REM****" DIAGONAL **** 

23260 IFXCX=4THENXP=XX: YP=YY 

13000 PSCREEN1:GOSUB70: PRINT"MIRR DIAG. a<=>B c*w<F 

23300 IFXCX=5THENXQX=XX:YQX=YY:GOSUB85:CLOSE5:BEEP 

1>*BTJ" 

255'-RETURN :REM<<<< 

13010 GCURS2:GETWS:IFW$<>"="ANDW$<>"»"THENPRINT,," 

23500 GOT023100 

iaBBi"XX"3":GOT013010 

23900 XP=XX : YP=YY : GETS5,XLS,XHS,YYS : XLX=ASC ( XLS*CH 

13015 IFW$="n"THEN13100 

RS (0)) 

13020 IFXX>199ORXX=0THEN13010 

23910 XHX=ASC ( XHS+CHRS ( 0 )) 

13025 XO=XX:YO-XX:GOSUB13195 

23920 YY=ASC(YY$+CHR$(0 )) :XX=XHX*256+XL%:RETURN 

13030 GOSUB68 : GETW$ : IFW$="*"THENGOSUB13195:GOTOl30 

47999 REM=="CURSOR SPRITE DISCREEN = 

00 

49000 DATA"SPR1" 

13035 IFW$<>" = "THEN13030 

49010 DATAO,0,0,0,0,0,0,31,224,0,16,32,0,16,32,0,1 

13040 GOSUB13195:GOSUB75 

6,32,0,16,32,0,16,32,0,16,32 

13050 POKE40665,XO : POKE40735, XO: POKERQ,6 : SYS40659 : 

49020 DATAO,16,32,0,31,224 

BEEP255 : CHANGEI : POKERQ,0 

49999 REM****" MENUEAUSWAHL **** 

13100 BEEP255:GOSUB75:RETURN 

50165 REM ///// INITIALISIERUNG ///// 

13190 GOSUB70 : PRINT "«<=, FI >B OK :*-<*>■ KORRi« "XX 

50170 DIMMU$(120 ) ,MI ( 26 ) ,TL$(26) 

;: RETURN 

50180 DI$(0) = "Xn":DI$(l) = "M":DIS(2) = "3":DI$(3) = "M 

13195 GOSUB5480 : GOSUB5482 : GOSUB13190:RETURN 


19999 REM****" DUPLICATE **** 

50190 : 

20000 Z1=2:GOSUB5470:PRINT" DUPLICATE" ; :GOSUB5305: 

50200 REM**** EINLESEN **** 

IFW$:"■"THENBEEP:RETURN 

50210 1=0 : ZI=1 

20010 GOSUB5470 : PRINT " DUPLICATE " j 

50220 READMUS:IFMUS<>">>"THEN50220 

20020 POKEFL,0 

50230 READMUS : IFMÜ#="tT"THENREADTL$(ZI ) :MI ( ZI)=I :Z 

20030 GCURS2 : FI=PEF,K(FL ): IFPEEK( 203 )=36THENGOSUB31 

I=ZI+l:PRINT"«MW"ZI:GOTO50230 

00:REM M -POINT 

50240 IFMU$ < > "*■*■“ THENMUS ( I ) =MU$ : I = I +1 : GOTO50230 

20 0 50 GETWS : I FF I = 0ANDW$ < > '' = ” ANDW$ < > ' " THEN 20 0 3 0 

50250 MI(ZI)=I:MB=ZI-1 

20060 IFW$="»"THENGOSUB40:GOTO6490:REM <F1>RETURN 

50260 RETURN 

20080 X2=XX:Y2=YX:G0SUB20480:GOSUB20420 

50266 REM**** AUSWAHL **** 

20090 GETWS:IFW$="*"THENGOSUB20480:GOT020010 

50280 PRINT 'rr 

20092 IFW$<>"="ANDFI=0THEN2O090 

50290 IB=MI(BL):IE=MI(BL+1)-1:PRINT"M”TLS(BL)DI$(3 

20100 GOSUB20480 : GOSUB40 : GOSUB75 : GOSUB55 : GOSUB40 : W 

) 

INDOWO,190 : GOT020010 

50350 IFMU$(IB)="*®"THEN50480 

20420 GOSUB70 : PRINT"KORR: 5J<*>B OK: «<=>“";; RETURN: 

50360 FORIrlBTOIE:PRINTMUStI ): PRINT : NEXT 

REM<<<<< 

50370 PRINT"«"TL$(BL)DI$( 3 ): I=IB: PRINT''N"MU$( I ) 

20480 LINE2,X2,0,X2,199 

50390 GETWS : IFW$<>"3"ANDW$<> ”*1" ANDWSOCHR$( 13 ) THEN 

20482 LINE2,0,Y2,319,Y2:RETURN 

50390 

20500 ZM=2:GOSUB40 : GOT020010:REM REPEAT DUPL 

50400 LI=I : IFWS=CHR$ ( 13 )THENI = I-IB+1 : PRINT"ZJ" : RETU 

21000 Zl=2 : RB=0 : GOSUB5470 : PRINT"SCROLL" ; :GOSUB5305 

Listing 6. (Fortsetzung) 
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RN:REM<« 

50659 REM— 8 == 

50420 IFW$="W"THENI=I+1:ZI=1:IFI>IETHENI:IE:ZI=2 

50660 DATA"TT","«»SPRITE", • VRETORN»".GET SPRITE,P 

50430 IFW$="D"THENI=I-1;ZI=0:IFI<IBTHENI=IB:ZI=2 

LOT SPRITE,LOAD SPRITE 

50440 PRINTLI):PRINTDI$(ZI)"ä"MU$(I) 

50662 DATA SAVE SPRITE,"DLUPENSPRITEB" 

50450 GOT050390 

50669 REM== 9 == 

50470 REM///////ZAHLENEINGABE///////—:: 

50670 DATA "TV",>>ZEICHENMODUS,SETZEN,LOESCHEN,INV 

50480 NU=VAL(MU$(IB+1) ):NO=VAL(MU$(IB+2)) 

ERTIEREN 

50490 FORI=0TO2‘. PRINT "55cl"LE$: NEXT: PRINT "HOI“ 

50679 REM= = 10 === 

50500 PRINTTAB(5 ) " *«llfiWI"NI "a" : POKE646, C: C=4 

50680 DATA "TT".»BLOCK SCHRAFFURRICHTUNG, "VERTIKA 

50510 WT=PEEK(203):WP=PEEK(653):IFWT=1THENBEEP:PRI 

L Ml «« ", "HORIZONTAL -" 

NT "ZI" : RETURN: REM<<<<<<<<<< 

50689 REM— 11 == 

50512 IFWP=1THEN50530 

50690 DATA "TT", »BLOCK SCHRAFFURABSTAND, "*@", 1.10 

60515 IFWT=2THENC=6:NI=NI+1:IFN0<NITHENNI=NU 

0 

50520 IFWT=7THENC=3:NI=NI-1:IFNI<NUTHENNI=NO: 

50699 REM== 12 == 

50525 GOT050500 

50700 DATA "TT“,"»RORECHT SEITENLAENGE ","#@",0,2 

50530 IFWT=7THENC=3:NI=NI-10:IFNI<NUTHENNI=NO 

55 

50540 IFWT=2THENC=6:NI=NI+10:IFNO<NITHENNI=NU 

50709 REM— 13 = = 

50560 GOT050500 

50710 DATA "TT","»RORECHT NEIGUNGSWINKEL GEGEN VE 

50570 : 

RTIKAL"0,359 

50500 DATA ">>":REM BEGINNFLAG MENUEDATA 

50719 REM— 14 — 

50589 REM— 1 == 

50720 DATA "TT"."»KREIS ".KREIS CR5R-EINGABE,KREI 

50590 DATA "tt "."SM MENUE 1 »", "fc-RETURN 1 *", DRAW / FI 

S KOORDINATEN 

GORE,DISK / HARD,ZOOM , MIRROR 

50724 REM— 15 == 

50600 DATA TEXT, CHANGE / MIX, SPRITE,SCROLL, "WENDä*" 

50725 DATA "TT " , "»KREIS X-RADIUS" , "#@ " , 0,160 

50605 REM— 2 == 

50726 REM— 16 == 

50610 DATA "TT" . "0>>DRAW / FIGURE" . "i.RETURN !" , LIN 

50727 DATA "TT " , "»KREIS Y-RADIUS" 0,100 

E 

50729 REM— 17 == 

50615 DATA RECHT,BLOCK,RORECHT,CIRCLE,JOYLINE,SHAP 

50730 DATA "TT>>TEXTEINGABE",EINGABE,STANDART,B 

EFILE 

REITE,ABSTAND,HOEHE 

50619 REM= = 3 == 

50732 DATA NEIGUNG,RICHTUNG, Z-MODUS, "k.,RETURN«»" 

50620 DATA "TT" , "SI»DISK / HARD " , 'VRETURN&" 

50734 REM— 18 — 

50625 DATA DIRECTORY," LOAD", " SAVE" 

50735 DATA "TT", "»TEXT BREITE" , "#8 ", 0,10 

50626 DATA"ÜHARDCOPY NORM'«","«- X-EXPi*", " 

50739 REM— 19 — 

w- Y-EXPar 

50740 DATA "TT", "»TEXT ABSTAND" , "#@ " , 0,60 

50627 DATA"iä- X&Y-EXPS*" 

50741 REM— 20 == 

50629 REM== 4 — 

50742 DATA "TT”, "»TEXT HOEHE" , "*@ ", 0,10 

50630 DATA "TT" , "a»ZOOM " , "WRETURNM" 

50743 REM— 21 == 

50635 DATAENLARGE X & Y, ENLARGE X, ENLARGE Y.'TSVE 

50744 DATA "TT", "»TEXT NEIGUNG", "*@ ", 0,50 

RKLEINERNM" 

50745 REM— 22 — 

50639 REM== 5 == 

50746 DATA "TT","»TEXT RICHTUNG", LI->RE,RE->LI, UN 

50640 DATA "TT" , " »>>MIRROR " , "I.RETURN»" 

->OB,OB->UN 

50641 DATAMIRROR Y,MIRROR X & Y.-Y Cl->2.1,- 

50749 REM— 23 — 

Y I2->11 

50750 DATA "TT " , " »SCROLL RICHTUNG" .RECHTS, LINKS, 0 

50642 DATA—X&Y Cl->21 ( — X&Y C2->11 

BEN,' i’EN 

50643 DATA—X&Y Cl<->21.— Y C 2<->H , DIAGONA 

50754 REM== 24 — 

L" 

50759 REM-= 25 — 

50644 REM— 6 — 

50760 DATA "TT " , "»SCROLL RICHTUNG" .RECHTS, LINKS,0 

50645 DATA "TT","a>" ,"#@",1,40 

BEN,UNTEN 

50649 REM— 7 — 

50769 REM— 26 == 

50650 DATA "TT" , "«»CHANGE / MIX" , 'VRETORW 

50900 DATA "tt-":REM ENDFLAG 

50655 DATA ..SDISrLAY» < —> ^ 1 «* , "DISPLAY:» <-> 

«ü 2 sr 


50656 DATA"« 1 » < — > SJ 2 »" 

READY. 

50657 DATA'Tl OR AND »","11 EXOR , "PLO 


T—> 1" , "WPLOT= = >2'*" 


50658 DATA"TIDOPLICATE»" 

Listing 6. (Schluß) 


Name 

diagonal.obj 9ed3 9f2c 

9efb 

a9 8 e 20 77 de 20 el 

c7 

c 8 


037c 

00 

fO 

02 

e 6 

09 

ce 

47 

c 8 

07 




9f03 

ad 47 c 8 85 14 ad 46 

c 8 

90 


0384 

a5 

09 

c9 

02 

90 

03 

a9 

00 

28 

9ed3 

a9 00 8 d 46 c 8 a9 c 8 8 d 

cl 

9f0b 

85 15 ae 45 c 8 20 4f 

dO 

db 


038c 

2 c 

a9 

80 

85 

09 

20 

el 

c7 

06 

9edb 

45 c 8 8 d 47 c 8 oe 47 08 

82 

9fl3 

20 69 de ee 45 c 8 ce 

45 

5d 


0394 

ad 

86 

c9 

85 

14 

ad 

87 

c9 

08 

9ee3 

oe 45 c 8 20 90 92 c9 00 

4f 

9flb 

c 8 dO e5 a9 e 8 8 d 45 

e 8 

91 


039c 

85 

15 

ae 

88 

c9 

20 

4f 

dO 

e5 

9eeb 

dO 03 a9 80 2 c a9 00 85 

d 2 

9f23 

ee 47 c 8 ee 47 c 8 dO 

b5 

2 a 


03 a4 

20 

e7 

c7 

ee 

45 

c 8 

ee 

86 

eb 

9ef3 

09 20 el c7 a2 eO aO 70 

12 

9f2b 

60 47 41 42 45 20 4d 

49 

e5 


03ac 

c9 

ee 

45 

c 8 

fO 

11 

a9 

00 

95 









03b4 

cd 

46 

c 8 

fO 

07 

a9 

3f 

cd 

4b 

Listing 7. »DIAGONAL.OBJ«. Diese Routine zur Spiegelung wird von 




03bc 

45 

c 8 

90 

08 

38 

bO 

8 d 

ee 

a 8 

Listing 6 nachgeladen. Bitte mit dem MSE (Seite 159) eingeben. 




03 c4 

46 

c 8 

dO 

88 

a9 

00 

8 d 

45 

Of 









03cc 

c 8 

8 d 

46 

c 8 

8 d 

86 

c9 

ee 

18 








03 d4 

88 

c9 

ee 

47 

c 8 

ee 

47 

c 8 

98 








03dc 

a9 

c7 

cd 

47 

c 8 

bO 

dd 

60 

Of 


Name 

verkl 

obj 



033c 03e4 

0354 

20 

90 

92 

c9 

00 

fO 

02 

e 6 

f7 










035c 

09 

ee 

45 

c 8 

20 

90 

92 

c9 

ab 

033c 

a9 

00 

8 d 45 

c 8 

8 d 

46 

c 8 

95 

0364 

00 

fO 

02 

e 6 

09 

ee 

47 

c 8 

fO 

0344 

8 d 

86 

c9 8 d 

87 

c9 

8 d 

47 

c4 

036c 

20 

90 

92 

c9 

00 

fO 

02 

e 6 

Of 

034c 

c 8 

8 d 

88 c9 

a9 

00 

85 

09 

f9 

0374 

09 

ce 

45 

c 8 

20 

90 

92 

c9 

b3 


Listing 8. »VERKL.OBJ«. 

Diese Routine zur Verkleinerung 
wird ebenfalls nachgeladen. 
Bitte mit dem MSE (Seite 159) 
eingeben. 
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C64 


GRAFIK-LISTINGS 


Name : oblique.obj 6e56 6ffe 


6e56 

: 20 

fd 

ae 

20 

26 

C7 

8e 

47 

8e 

6e5e 

: c8 

a5 

14 

8d 

45 

c8 

a5 

15 

Ob 

6e66 

: 8d 

46 

c8 

20 

fd 

ae 

20 

’26 

6f 

6e6e 

: c7 

8e 

88 

c9 

a5 

14 

8d 

86 

16 

6e76 

: c9 

a5 

15 

8d 

87 

c9 

20 

fd 

4c 

6e7e 

: ae 

20 

26 

c7 

8e 

8b 

c9 

a5 

77 

6e86 

: 14 

8d 

89 

c9 

a5 

15 

8d 

8a 

4b 

6e8e 

: c9 

20 

fd 

ae 

20 

8a 

ad 

a2 

Of 

6e96 

: 84 

aO 

cb 

20 

d4 

bb 

20 

6b 

e4 

6e9e 

: e2 

a2 

36 

aO 

9f 

20 

d4 

bb 

39 

6ea6 

: a9 

04 

a0 

cb 

20 

a2 

bb 

20 

79 

6eae 

: b4 

e2 

a9 

e8 

aO 

bf 

20 

Of 

01 

6eb6 

: bb 

a2 

3b 

aO 

9f 

20 

d4 

bb 

6b 

6ebe 

: 38 

ad 

86 

c9 

ed 

45 

c8 

8d 

ef 

6ec6 

: 50 

9f 

ad 

87 

c9 

ed 

46 

c8 

f9 

6ece 

: 8d 

51 

9f 

38 

ad 

88 

c9 

ed 

15 

6ed6 

: 47 

c8 

8d 

52 

9f 

90 

03 

18 

ea 

6ede : 

: 90 

01 

60 

a9 

00 

8d 

8c 

c9 

6e 

6ee6 : 

: 8d 

8d 

c9 

85 

09 

a9 

00 

8d 

56 

6eee : 

: 8e 

c9 

18 

ad 

45 

c8 

6d 

8c 

86 

6ef6 : 

; c9 

85 

14 

ad 

46 

c8 

6d 

8d 

b8 

6efe 

: °9 

85 

15 

38 

ad 

88 

c9 

ed 

f8 

6f06 . 

: 8e 

o9 

aa 

78 

aO 

34 

84 

01 

f2 

6f0e . 

: 20 

11 

dO 

aO 

00 

31 

fd 

aO 

c2 

6fl6 : 

: 37 

84 

01 

58 

c9 

00 

dO 

03 

cl 

6fle : 

: 4c 

c9 

6f 

ac 

8e 

c9 

a9 

00 

9e 

6f26 : 

: 84 

63 

85 

62 

a2 

90 

38 

20 

d9 

6f2e : 

: 49 

bc 

a9 

36 

aO 

9f 

20 

28 

de 

6f36 : 

: ba 

a2 

45 

aO 

9f 

20 

d4 

bb 

6c 

6f3e : 

: a9 

3b 

aO 

9f 

20 

28 

ba 

20 

Of 

6f46 : 

: 01 

b8 

8d 

41 

9f 

18 

98 

6d 

27 

6f4e ; 

: 8c 

c9 

8d 

40 

9f 

ad 

4l 

9f 

d6 

6f56 : 

: 6d 

8d 

c9 

8d 

41 

9f 

18 

ad 

7b 

6f5e : 

: 40 

9f 

6d 

89 

c9 

8d 

40 

9f 

44 

6f66 : 

; ad 

41 

9f 

6d 

8a 

c9 

8d 

41 

f9 


6f6e 

9f 

ac 

40 

9f 

c9 

01 

90 

Oc 

66 

6fb6 

9f 

85 

15 

ae 

45 

9f 

20 

4f 

a3 

6f76 

dO 

07 

cO 

28 

bO 

03 

18 

90 

a4 

6fbe 

dO 

aO 

eO 

8c 

2d 

dO 

aO 

37 

f2 

6f7e 

03 

4c 

ca 

6f 

a9 

45 

aO 

9f 

ce 

6fc6 

84 

01 

58 

ea 

ee 

8e 

c9 

ad 

24 

6f86 

20 

a2 

bb 

20 

01 

b8 

38 

ad 

fc 

6fce 

8e 

c9 

cd 

52 

9f 

90 

23 

fO 

eb 

6f8e 

8b 

c9 

e5 

14 

8d 

45 

9f 

a8 

cd 

6fd6 

21 

18 

ad 

8c 

c9 

69 

01 

8d 

07 

6f96 

a9 

00 

e5 

15 

8d 

46 

9f 

cO 

66 

6fde 

8c 

c9 

90 

03 

ee 

8d 

c9 

ad 

bl 

6f9e 

c8 

bO 

de 

c9 

00 

dO 

da 

78 

92 

6fe6 

8d 

c9 

cd 

51 

9f 

90 

Oe 

ad 

07 

6fa6 

aO 

34 

84 

01 

aO 

70 

8c 

2d 

bc 

6fee 

8c 

c9 

cd 

50 

9f 

90 

06 

fO 

55 

6fae 

dO 

ad 

40 

9f 

85 

14 

ad 

41 

8b 

6ff6 

04 

60 

4c 

fO 

6e 

4c 

eb 

6e 

31 



Name 

sprayl 




bf40 bf80 

Listing 10. 

bf40 

00 

00 

00 

00 

40 

00 

00 

04 

4d 

bf48 

08 

42 

40 

80 

00 

00 

00 

00 

92 

»SPRAY 1« 

bf50 

91 

10 

10 

04 

00 

00 

a9 

00 

15 

Spritedaten für 

bf58 

05 

3a 

40 

20 

dd 

04 

09 

bb 

28 

»CAD2001«. 

bf60 

00 

00 

be 

20 

Oa 

55 

00 

80 

60 

Bitte mit dem 

bf68 

da 

00 

08 

20 

08 

00 

8a 

80 

f4 

MSE (Seite 159) 

bf70 

00 

00 

20 

08 

00 

00 

02 

44 

Oa 

eingeben. 

bf78 

00 

00 

00 

40 

00 

00 

00 

ff 

80 


Listing 9. 
»OBELIQUE.OBJ« 
dient zum 
Verzerren von 
Parallelogrammen. 
Bitte mit dem 
MSE (Seite 159) 
eingeben. 

— 


Name : spray2 


bf40 bf80 


Listing 11. 
»SPRAY 2« Wei¬ 
tere Spritedaten 
für »CAD2001«. 

Bitte mit dem 
MSE (Seite 159) 
eingeben. 


bf40 : 04 08 00 00 40 00 02 02 59 
bf48 : 08 00 28 40 00 80 00 10 87 
bf50 : 0a 20 00 a4 00 05 71 00 ed 
bf58 : 50 cc 00 01 b2 44 04 fc '86 
bf60 : 00 01 f5 00 22 58 20 00 c4 
bf68 : a5 00 05 68 00 10 02 08 f4 
bf70 : 00 80 00 00 10 80 04 00 c6 
bf78 : 20 20 02 00 00 40 00 ff 2b 


J- 


Bildsdiirmzeidien in 
schillernden Farben 


Texte mit schillernden Farben können Sie jetzt auf 
den Bildschirm zaubern. Sie erfahren auch, mit 
welchen Tricks so etwas programmiert wird. 

D ieses Programm erzeugt Farbeffekte, wie sie beim 
Spiel »Alleycat« Vorkommen. Daher auch der Name 
»ALLEY. SIM.«. Die Bildschirmzeichen einer Zeile 
werden dabei in acht Farben wiedergegeben. Zusätzlich 
scrollen die ein Pixel breiten Farbbalken nach oben. 

Die Farbinformationen der Farbbalken werden aus einer 
Tabelle mit 32 Farben gelesen. Diese Tabelle ist jederzeit 
veränderbar. Der Farbeffekt läßt sich natürlich nur durch 
den Rasterzeileninterrupt realisieren. 

Das MSE-Listing »ALLEY. SIM.« (Listing 1) laden Sie 
nach dem Abtippen bitte absolut mit »LOAD "ALLEY. 
SIM." ,8.1«- Der Aufruf der Routine erfolgt über einen SYS- 
Befehl mit folgender Syntax: 

SYS 49152, Zelle, Geschwindigkeit, Breite, 
Hintergrundfarbe 

Die notwendigen Parameter wollen wir Ihnen ausführlich 
erklären: 

Zeile: 

Als Zeile wird die Rasterzeile bezeichnet, bei welcher der 
erste Rasterzeileninterrupt ausgelöst wird, um das Farb¬ 


spektrum der Bildschirmzeichen zu verwirklichen. Sie er¬ 
rechnet sich folgendermaßen: 

Rasterzeile = 50 + (Bildschirmzeile * 8) 

Die Bildschirmzeilen werden von 0 bis 24 numeriert. Ver¬ 
ändert man diese Formel, indem man einen Wert zwischen 
1 und 7 addiert beziehungsweise subtrahiert, erzielt man 
weitere interessante Effekte. Dabei erstreckt sich das Farb¬ 
spektrum über zwei Bildschirmzeilen, die jedoch nur teil¬ 
weise schillernde Farben besitzen. 

Geschwindigkeit: 

Die Geschwindigkeit gibt an, wie schnell das Farbspek¬ 
trum gescrollt wird. Dieser Parameter kann Werte zwischen 
1 und 255 annehmen, wobei der Wert 1 die schnellste und 
der Wert 255 die langsamste Geschwindigkeit erzeugt. 

Breite: 

Mit der Breite wird die Anzahl der schillernden, ein Pixel 
dicken Farbstreifen bestimmt. Das beeinflußt auch die Brei¬ 
te des Farbspektrums. Um dieses sehr einducksvoll zu ge¬ 
stalten, eignet sich der Wert 8 am besten. Werte, die kleiner 
als 8 sind, erniedrigen die Anzahl der Farbstreifen im Spek¬ 
trum. Höhere Werte sollte man vermeiden, da sie die Breite 
nicht mehr beeinflussen, sondern nur unregelmäßige, 
dicke Farbstreifen auf dem Bildschirm hervorrufen. Ein un¬ 
kontrolliertes Flackern ist dann die Folge. 
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GRAFIK-LISTINGS 


C64 


Name 

alley. sim. 



cOOO eOda 

c050 

ad 

19 

dO 

8d 

19 

dO 

ad 

12 

63 









c058 

dO 

c9 

00 

ro 

4a 

a2 

00 

bd 

60 

C000 

20 fd ae 

20 

9e 

b7 

8e 

dl 

54 

c060 

7e 

cO 

8d 

21 

dO 

bd 

9e 

cO 

bd 

c008 

cO 8e 33 

cO 

20 

fd 

ae 

20 

el 

c068 

a8 

88 

dO 

fd 

e8 

eO 

08 

dO 

9f 

C010 

9e b7 8e 

ae 

cO 

20 

fd 

ae 

66 

c070 

ee 

a9 

00 

8d 

21 

dO 

a9 

00 

24 

C018 

20 9e b7 

8e 

6e 

cO 

20 

fd 

b0 

o078 

8d 

12 

dO 

4e 

31 

ea 

01 

07 

48 

c020 

ae 20 9e 

b7 

8e 

72 

cO 

78 

ed 

c 080 

03 

Od 

05 

Oe 

06 

Oa 

02 

04 

ce 

c028 

ad Od de 

29 7f 09 

01 

8d 

17 

c088 

08 

09 

Of 

Oe 

Ob 

00 

00 

Ob 

21 

c030 

Od de a9 

82 

8d 

12 

dO 

ad 

6e 

c090 

0c 

Oe 

09 

08 

04 

02 

Oa 

06 

6b 

c038 

11 dO 29 

7f 

8d 

11 

dO 

a9 

e4 

c098 

Oe 

05 

Od 

03 

07 

01 

02 

08 

5d 

c040 

81 8d la 

dO 

a9 

50 

8d 

14 

a4 

cOaO 

08 

08 

09 

08 

09 

08 

Oa 

ee 

c7 

c048 

03 a9 cO 

8d 

15 

03 

58 

60 

8d 

c0a8 

d8 

cO 

ad 

da 

cO 

c9 

03 

fO 

af 


cObO : 

: 03 

4c 

dO 

cO 

ad 

7e 

cO 

48 

88 

c0b8 : 

: aO 

01 

b9 

7e 

cO 

88 

99 

7e 

cb 

cOcO : 

: cO 

c8 

c8 

cO 

20 

dO 

f3 

68 

58 

c0c8 : 

: 8d 

9d 

cO 

a9 

00 

8d 

d8 

cO 

da 

cOdO : 

: a9 

82 

8d 

12 

dO 

4c 

bc 

fe 

cO 

e0d8 : 

: 00 

5b 

Oa 

02 

Oa 

00 

08 

00 

Oa 


Listing 1. »ALLEY. SIM.« gibt Bild¬ 
schirmzeichen ein schillerndes Farb¬ 
spektrum. Bitte mit dem MSE 
(Seite 159) eingeben. 


J 

fl############################# 

) 

## 


## 

J 

## 

alley. sim. 

## 

) 

## 

by 

## 

i 

## 


K# 

i 

** 

Stefan Landfried 

## 

i 

## 


## 

) 

•H * # # X K ### # ## # ** 4» X # ## # ###### K # # 

org $cOOO 

; Anfangsadresse = 49152 

:getbyt 

» $b79e 

; Adressen 

für Parameterübergabe 

: ehkkom 

= $aefd 

; prüft auf Komma 


jsr ehkkom 
jsr getbyt 
stx modifyl+1 
stx modify2+l 
jsr ehkkom 
jsr getbyt 
stx modify3+l 
jsr ehkkom 
jsr getbyt 
stx modify4+l 
jsr ehkkom 
jsr getbyt 
stx modify5+l 
sei 

lda $deOd 
and #*01111111 
ora #*00000001 
sta $dc0d 
:modify2 lda #130 

sta 53248+18 
lda 53248+17 
and #$7f 
sta 53248+17 
lda #*10000001 


Programmstart und Abfrage 
der verschiedenen Parameter 
Rasterzeilenpositionen 
des Farbsorollens modifizieren 
auf Komma prüfen 
Parameter holen 
Geschwindigkeit modifizieren 
auf Komma prüfen 
Parameter holen 
Breite modifizieren 
auf Komma prüfen 
Parameter hohlen 
Hintergrundfarbe modifizieren 
Interrupt sperren 
CIA-Timer 
; ausschalten 


; Rasterzeile Vorwahlen 

High-Byte des Rasterstrahls 
; ausschalten 


:zahl b 02,08,08,08,09,08,09,08,10 


Zählcodes für die 
Warteschleife 


:scroll inc speed 
lda speed 


Speed erhöhen 
und überprüfen 


:modify3 emp #03 

i Endwert erreioht 


beq next 

; falls ja:eigentliches Scrollen 


Jmp modlfyl 

; falls nicht: normal weiter 

:next 

lda färb 

; ersten Farbcode laden 


pha 

i auf Stack schieben 


Idy #01 

i Y-Reglster als Index 

:op 

lda farb,y 

j Schleife 

dey 

; in der alle 


sta farb.y 

; Farben um 


iny 

; ein Byte nach vorne 


iny 

; gerückt 


cpy #32 
bne op 

; werden 


pla 

; ersten Wert wieder hinten 


sta farb+31 

; reinschieben 


lda #00 

sta speed 

; Geschwindigkeitszähler auf 
null setzen 


:modifyl lda #130 


g m»»> 

:speed 


sta 53248+18 
jmp Jfebc 

b $00 


; nächsten Rasterinterrupt 
bestimmen 

ins Rasterregister schreiben 
Sprung zum Ende der Interrupt¬ 
routine 

Geschwindigkeitszähler für 
Farbenscroll 


Listing 2. »ALLEY. SIM. SRC« Ist der dokumentierte 
Sourcecode von »ALLEY. SIM.« im Input-Ass-Format. 


: irq 


: loopl 


:1p 


sta 53248+26 
lda # < irq 
sta $0314 
lda # > irq 
sta $0315 
cli 
rts 

lda 53248+25 
sta 53248+25 
lda 53248+18 
omp #000 
beq scroll 
Idx #00 
lda farb.x 
sta 53281 

lda zahl.x 
tay 
dey 
bne lp 


lnx 

:modify4 cpx #8 
bne loopl 

:modlfy5 lda #00 
sta 53281 
lda #000 
sta 53248+18 
Jmp $ea31 


Rasterzeileninterrupt 
vorwählen 

; Low-Byte der neuen Routine 
; schreiben 

; High-Byte der neuen Routine 
; schreiben 
j Interrupt zulassen 
; zurück ins Basic 
j Interruptflag löschen 
i um Errors zu vermeiden 
i Rasterstrahl überprüfen 
; 000 erreicht ? 
j falls ja zur Scrollroutine 
; X-Reglster als Indexzähler 
j Farbcode laden 
j und ins Hindergrundfarbreg. 

schreiben 
; den Zähler laden 
; Austausch von Akku nach Y 
; Wartescheife 

; Je größer der Zähler desto 
länger die 
; Schleife 

j X-Register erhöhen 
; schon alle 8 Zeilen ? 

; falls nicht zu loopl 
; Hintergrundfarbe poken 

; Rasterstahl vorwählen 


Sprung zur normalen Interrupt¬ 
routine 

:farb b 01,07,03,13,05,14,06,10 
b 02,04,08,09,15,12,11,00 
b 00,11,12,14,09,08,04,02 
b 10,06,14,05,13,03,07,01 ; Farbcodes 


10 REM DEMO <058> 

20 REM BY <249> 

30 REM STEFAN LANDFRIED <130> 

40 REM KELHEIMERSTR. 9 <126> 

50 REM 8421 PAINTEN <249> 

70 REM <132> 

72 IF A=1 THEN 90 <134> 

74 PRINT"{CLR.SPACE>ANDERE FARBEN (Y/N) ?" <252> 

75 GET A*:IF A*=""THEN 75 <181> 

76 IF A*="Y"THEN 190 <081> 

80 IF A=0 THEN A=1JLOAD"ALLEY. SIM.",8.1 <084> 

90 SYS 49152,130,2,B,0! <01B> 

100 REM IN ZEILE 10 ((8*10)+50) <006> 

110 REM ZIEMLICH SCHNELL UND ALLE BALKEN <158> 
120 PRINT"<BLACK.CLR>" <242> 

130 PRINT"<RVS0N,9D0WN.6SPACE>THIS IS ONLY 

A LITTLE DEMO<11SPACE>" <171> 

140 GET A*:IF A*=""THEN 140 <014> 

150 GOTO 150 <158> 

160 REM FARBENTAUSCH <244> 

170 REM <232> 

180 REM <242> 

190 FOR 1=49278 TO 49308:READ A:POKE I.AiN 

EXT:GOTO 90 <153> 

200 DATA 11.12,15,15,15,1,12,11,4,6,6,14,, 

1,14,14,6: REM 16 FARBEN <17B> 

210 DATA 4.2,2,10,1,10,10,2,5,13,3,3,3,1,1 

3,5: REM INSGESAMT 32 FARBEN <159> 

220 REM IN DEN DATAZEILEN KOENNEN DIE GEWU 

ENSCHTEN FARBEN EINGETRAGEN WERDEN <064> 

230 REM END <1B6> 

Listing 3. »DEMO« zeigt Ihnen, wie »ALLEY. SIM.« genutzt 
wird. Bitte mit dem Checksummer (Seite 159) eingeben. 
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ln Verbindung mit dem Zeilenparameter erreicht man, 
daß nur die unteren »x« Pixel in den vorgegebenen Farben 
scrollen. So ergeben sich folgende Formeln: 

Breite = x ; x muß kleiner als 8 sein 
Zeile = 50 + (Bildschirmzeile * 8) + (8-x) 
Hintergrundfarbe: 

Die Angabe der Hintergrundfarbe ist notwendig, da nach 
dem Programmstart das Hintergrund-Farbregister 53281 
nicht mehr adressierbar ist. Jede Schreibanweisung in die¬ 
ses Register wird ignoriert. Außerdem wird über dieses Re¬ 
gister der ganze Farbeffekt erzielt. Das Programm muß wis¬ 
sen, welche Hintergrundfarbe der Bildschirm vor und nach 
dem Farbspektrum besitzt. 

Der Programmiertrick 


Will man aber trotzdem die Hintergrundfarbe verändern, so 
könnte man »ALLEY. SIM.« erneut auffufen, nur mit geän¬ 
derter Hintergrundfarbe. Während der Anlaufzeit friert al¬ 
lerdings das Farbspektrum für kurze Zeit ein. Eleganter ist 
daher folgende Methode: 

Man schreibt den neuen Farbcode an die Adresse 49266 
(im Sourcecode »modify5+1«), 

POKE 49266,HF : REM HF = Hintergrundfarbe 
Der Programmiertrick für diesen Effekt basiert auf einer 
ausgefeilten Rasterzeileninterrupt-Technik. Dabei wird in 
der durch den Zeilenparameter festgelegten Rasterzeile 
ein VIC-lnterrupt ausgelöst. Durch diesen Interrupt über¬ 
schreibt man die Hintergrundfarbe mit einem Wert aus der 
Farbtabelle. Danach wird ein Interrupt in der folgenden Ra¬ 
sterzeile ausgelöst und die Hintergrundfarbe gewechselt. 


Dies geschieht so lange, bis die »Breite« des Farbspek¬ 
trums erreicht ist. Ist das Farbspektrum gefüllt, wird die Hin¬ 
tergrundfarbe anhand des Parameters »Hintergrundfarbe« 
außerhalb des Spektrums hergestellt. 

Die Rasterzeile 0 löst abermals einen Interrupt aus und 
ruft dabei das Farbscroll-Unterprogramm auf, welches die 
Farbtabelle mit den 32 Farben um eine Position nach oben 
scrollt. Auf diese Weise erreicht man den schillernden 
Effekt. 

Die Farbtabelle liegt im Bereich von 49278 bis 49309 und 
kann natürlich verändert werden. 

Um zu bewirken, daß die Buchstaben selbst in den Far¬ 
ben schillern, müssen die Buchstaben die normale Hinter¬ 
grundfarbe besitzen und invertiert auf den Bildschirm ge¬ 
schrieben werden. Durch das Rasterzeileninterrupt- 
Programm werden diese sichtbar gemacht. Die Kombina¬ 
tion von Zeichenfarbe und Invertierzustand (revers oder 
nicht revers) erzielen die verschiedensten Effekte. 

In der Kürze liegt die Würze 


Für Assembler-Freaks haben wir den Sourcecode des 
Assembler-Programmes abgedruckt (Listing 2). Der Sour¬ 
cecode ist gut dokumentiert und besitzt das Format des As¬ 
semblers »Input-Ass« (von Input 64). Der assemblierte Ob¬ 
jektcode hat eine Länge von nur 218 Byte und belegt den 
Bereich von $C000 bis $C0DA. »ALLEY. SIM.« ist also ein 
sehr kurzes Programm mit einem erstaunlichen Ergebnis. 

Listing 3 ist ein Demoprogramm, das die Funktionsweise 
von »ALLEY. SIM.« grafisch demonstriert. 

(Stefan Landfried/Thomas Lipp/kn) 


Überschriften 
am laufenden Band 


Mit »Spramycs« lassen sich Texte auf dem Bild¬ 
schirm als Laufschrift darstellen. Die Position der 
Texte ist frei wählbar. Dabei werden auch die Bild¬ 
schirmränder benutzt. Durch ein Farb-Scrolling 
erzielt das Programm ungewöhnliche Effekte. 

D as Programm »Spramycs« (Listing 1) wurde speziell 
für lange und große Laufschriften geschrieben, die 
sich beispielsweise in andere Programme einbinden 
oder auch separat abspeichern und wieder starten lassen. 
Diese Laufschriften dienen somit vielfältigen Zwecken. 
Dem Anwender stehen verschiedene menügesteuerte 
Funktionen zur Verfügung, die das Arbeiten erheblich ver¬ 
einfachen. So können selbst minutenlange Botschaften er¬ 
stellt werden, die sich einfach und bequem editieren und 
damit ganz auf die jeweiligen Wünsche abstimmen lassen. 
Konkret heißt dies, daß mit »Spramycs« große (doppelt ho¬ 
he) Buchstaben überall auf dem Bildschirm plaziert werden 
können. Dabei gibt es nicht — wie sonst üblich — schwarze 
Streifen an den Rändern, die alle acht Zeilen des Freiraums 
beeinträchtigen, der durch das Abschalten des Rahmens 
entsteht. Dies wird durch ein »Überlisten« des VIC erreicht. 
Allerdings hat diese Methode einen kleinen Nachteil, der 
nicht verschwiegen werden soll: Über die gesamte Bild¬ 


schirmbreite kann »unter« den Laufschrift-Sprites nichts 
anderes dargestellt werden. Es ist also nicht möglich, die 
Laufschrift beispielsweise »über« eine Grafik zu legen. 
Doch ist das im Vergleich zu den vielen Vorteilen, die das 
Programm bietet, nur ein geringer, vernachlässigbarer 
Nachteil. 

Wie bereits erwähnt, ist die Laufschrift an beinahe jeden 
beliebigen Ort des Bildschirms zu legen. Zusätzlich kann 
man auch Geschwindigkeit und »Dichte« der Laufschrift be¬ 
stimmen. Eine weitere Besonderheit ist das »Farbscrolling« 
in der Laufschrift: die Buchstaben flackern dabei durch zy¬ 
klisches Vertauschen der Sprite-Farben. 

Die Verwendung von eigenen Zeichensätzen ist eben¬ 
falls möglich, wobei man nicht an feste Speicheradressen 
gebunden ist. Die Laufschriften dürfen eine Länge von 512 
Zeichen (eine Seite) bis zu mehreren Kilobyte Text haben. 
Dementsprechend variiert auch die Zeit, die ein voller 
Durchlauf eines Textes benötigt. Bei niedrigster Geschwin¬ 
digkeit dauert eine »Botschaft« von 1024 Zeichen Umfang 
(entspricht zwei Textseiten) zwischen zwei und drei Minu¬ 
ten. Da sich jeder eingegebene Text abspeichern und sepa¬ 
rat starten läßt, ist eine sehr einfache und dennoch originel¬ 
le Anwendung das Schreiben kleiner Mitteilungen an 
Freunde und Bekannte, die über diese Art der Computer- 
Post sicherlich staunen werden. 
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Ein Beispiel für eine effektvolle Laufschrift zeigt das Pro¬ 
gramm »Demo« (Listing 2). Geben Sie bitte dieses Listing 
mit dem Checksummer ein (Eingabehinweise Seite 159), 

Nach dem Start lädt das kurze Demo das Maschinen-Pro- 
gramm »Demo-Scroll« (Listing 3) nach. Geben Sie bitte vor 
dem Start dieses Programm mit dem MSE ein (Eingabehin¬ 
weise Seite 159) und speichern es auf Diskette. Das Erstel¬ 
len einer Laufschrift, wie der in diesem Demo gezeigten, ist 
mit Hilfe von »Spramycs« auch für Sie kein Problem mehr. 

Hinweise zur Bedienung 


»Spramycs« meldet sich nach dem Programmstart mit ei¬ 
nem Menü (Bild 1), das die verschiedenen Funktionen aufli¬ 
stet. 

<1 >: Text editieren 

Dieser Menüpunkt dient zur Eingabe und Veränderung 
von Laufschrifttexten. Auf dem Bildschirm erscheint je¬ 
weils ein Balken, der die untere Grenze des Eingabefeldes 
anzeigt. Es werden stets nur die ersten 512 Zeichen pro 
Bildschirmseite übernommen. Beim Editieren steht der üb¬ 
liche Basic-Editor mit allen bekannten Möglichkeiten zur 
Verfügung. Man kann also auch mit <SHIFT CLR/ 
H0ME > die ganze Textseite löschen. Beim Einfügen einer 
Zeile sollte man aufpassen, daß nicht eine Zeilenverschie¬ 
bung ausgelöst wird. Dann besteht nämlich eine Leerzeile 
im Text, und man muß die nachfolgenden Teile der Seite 
öeu eingeben. 

<2>/<3>: Laufschrift starten/stoppen 

Damit wird die Laufschrift »von Hand« gestartet oder ge¬ 
stoppt. Beim Anwähien der Punkte 1,7, 8 und 10 wird die 
Laufschrift automatisch gestoppt, bei Punkt 6 in jedem Fall 
gestartet. Es kann Vorkommen, daß der Computer beim 
Starten der Laufschrift »festhängt«. Der Grund dafür ist in 
einer Eingabeschleife ohne Tastatur-Interrupt zu suchen. 
Das Programm ist in diesem Fall aber nicht wirklich abge¬ 
stürzt, sondern kann nach < RUN/STOP > < RESTORE > 
problemlos neu aktiviert werden. Allerdings ist dann ein 
Programmstart mit »GOT012« anzuraten, weil so die wich¬ 
tige Variable »EA« erhalten bleibt, die das Ende beim Spei¬ 
chern kennzeichnet. Dies gilt allerdings nur, wenn man 
sich auf einer anderen als der ersten Textseite befunden 
hat. Ist das nicht der Fall, kann ein sofortiger Neustart ohne 
erneutes Einlesen des Programms mit »RUN 11« erfolgen. 

< 4 > / < 5 >: Nächste/Letzte Textseite 

Diese Menüpunkte ermöglichen die Bearbeitung der 
nächsten beziehungsweise vorherigen 512 Zeichen der 
Laufschrift. Beim Speichern muß stets die letzte 
512-Zeichen-Seite angewählt sein, damit die Laufschrift 
mit dem Programm richtig und vollständig gesichert wird. 

< 6 >: Position/Geschwindigkeit/Dichte 

Mit diesen Befehlen werden Ort und Darstellungsweise 
der Schrift eingestellt. Hier eine kurze Beschreibung der 
drei Parameter: 

»Geschwindigkeit« gibt an, um wie viele Pixel die Schrift 
pro Rasterdurchlauf gescrollt wird. Je größer dieser Wert, 
desto schneller die Schrift. 

»Dichte« bestimmt, nach welcher Anzahl von Durchläu¬ 
fen der nächste Buchstabe in den Puffer kopiert wird. Die 
Zeichen werden nämlich nicht direkt in die Sprites ge¬ 
schrieben, sondern in diesen Puffer, von wo sie in das rech¬ 
te Sprite gescrollt werden. Für normale Schriftdichte ist hier 
bei einer Geschwindigkeit von »1« der Wert »8« einzuset¬ 
zen. Für dieselbe Dichte bei Geschwindigkeit »2« ist dieser 
Wert gleich »4«. Größere Werte bewirken größere Lücken 
zwischen den Buchstaben und umgekehrt. Kleinere Werte 
als die normalen können zu interessanten Effekten führen. 
Probieren Sie einmal mit Geschwindigkeit »1« die Dichte- 


Werte »7« oder »6« aus (mit dem Original-Zeichensatz). So 
erspart man sich fast das Erstellen neuer Zeichensätze. 
Das Programm gibt automatisch den der jeweiligen Ge¬ 
schwindigkeit entsprechenden Dichtewert vor. Will man 
also die normale Dichte verwenden, ist hier nur 
< RETURN > zu drücken. 

Bei »Position« handelt es sich um die jeweilige Rasterzei¬ 
le, in die die Laufschrift eingeblendet wird. In manchen Zei¬ 
len ist das Abschalten des Rahmens nicht ganz sauber. Ei¬ 
ne Zeile höher oder tiefer ist es dann meist besser. Ledig¬ 
lich in den Zeilen 0 bis 50, 243 bis 247 und ab 251 ist keine 
Laufschrift möglich; dies hängt mit dem Abschalten des un¬ 
teren beziehungsweise oberen Rahmens zusammen. 
<7>: Textspeicher löschen 

Durch Anwählen von Punkt 7 und Bestätigen der nachfol¬ 
genden Sicherheitsabfrage wird der gesamte Textspeicher 
bis einschließlich der gerade angewählten Textseite ge¬ 
löscht, das heißt mit Leerzeichen gefüllt. Der Text kann da¬ 
nach über Punkt 1 neu eingegeben werden. 

<8>: Zeichensatzadresse 

Hier wird die Startadresse des Zeichensatzes, den man 
benutzen möchte, angegeben. Dies geschieht folgender¬ 
maßen: Das High-Byte eines Zeichensatzes erhält man, in¬ 
dem man seine Startadresse durch 256 dividiert. Soll nun 
zum Beispiel der Original-Klein-Groß-Zeichensatz verwen¬ 
det werden, so muß man die Startadresse des Zeichensat¬ 
zes im Zeichen-ROM kennen. Sie beträgt in diesem Falle 
55296. Nun teilt man diese Zahl durch 256, das Ergebnis ist 
216. Dies ist nun der Wert, den man an dieser Stelle eingibt. 


Spra«Hcs von Bernhard Jerabek 

—JL — Text editieren 
-2— Laufschrift starten 
-3— Laufschrift stoppen 
r*4- ;]aechste Textseite 
-5- Jorige Textseite 

-6- Positio n/G eschwindigkei X/T >ichte 
-7- Textspeicher loeschen 
—8— Zeichensatzadresse 
-9— Farben aendern 
-ifl-Laufschrift speichern 
-0- PrograwM beenden 

Bild 1. Das Hauptmenü von »Spramycs«. Elf Funktionen ste¬ 
hen nach dem Starten zur Auswahl. 

Es wird, wie übrigens auch bei Punkt 6, der jeweils aktuelle 
Wert angezeigt. Will man ihn übernehmen, also nichts ver¬ 
ändern, braucht man nur die Taste < RETURN > betäti¬ 
gen. Grundsätzlich können Zeichensätze im ganzen Spei¬ 
cher verwendet werden, wobei im Bereich $D000 - $DFFF 
auf den Original-Zeichensatz zugegriffen wird. Es dürfen 
also auch Zeichensätze unter dem Kernel-ROM verwendet 
werden. Einzige Bedingung ist dabei, daß die Startadresse 
des Zeichensatzes durch 256 teilbar ist. Der Zeichensatz 
muß somit auch nicht in der gerade verwendeten Video- 
Bank liegen. (Zur Erklärung: Der Speicher des C64 ist in 
vier Videobänke unterteilt. Bildschirm, Zeichensatz und 
Sprites müssen immer in derselben Bank liegen, weil der 
Videochip (VIC) nicht mehr als 16 KByte adressieren kann. 
Da der Zeichensatz für die Laufschrift jedoch über die CPU 
(Hauptprozessor) geholt wird, darf er auch außerhalb der 
Video-Bank liegen. 

<9>: Farben ändern 

Wie schon erwähnt, erzeugt das Programm eine Art 
Farb-Scrolling, und zwar dadurch, daß die acht Sprite- 
Farben zyklisch vertauscht werden. Mit dieser Funktion 
kann man nun diese Farben bestimmen. Am besten wirken 
meistens Blau- oder Grau-Spektren, das heißt die Farben 
steigern sich in der Helligkeit vom dunkelsten Ton einer Far¬ 
be bis zum Weiß. Voreingestellt ist ein Blau-Türkis-Spek- 
trum. Die gewählten Farben sollten sozusagen einen Ring 
bilden, wie auch beim voreingestellten Spektrum, also von 
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dunkel auf weiß und wieder zurück. Natürlich kann man das 
Farb-Scrolling auch abstellen, indem man acht Mal die glei¬ 
che Farbe eingibt. Will man nichts ändern, braucht man 
auch hier wieder nur < RETURN > zu betätigen. 

<10>: Laufschrift speichern 
Dieser Programmteil bietet die Möglichkeit, die Lauf¬ 
schriftdaten zusammen mit dem Laufschriftprogramm und 
allen Parametern auf Diskette oder Kassette zu speichern. 
Das Programm fragt hier zunächst nach dem File-Namen. 
Hat man es sich anders überlegt und will nun doch nicht 
speichern, so genügt es, einfach nur < RETURN > ohne 
eine vorherige Eingabe zu drücken. Auf keinen Fall darf 
man aber das Programm an dieser Stelle mit < RUN/STOP 
RESTORE> abbrechen, da zur Bereichsdefinition beim 


Speichern wichtige Basic-Vektoren verwendet werden, die 
erst nach der Rückkehr ins Menü restauriert werden. Das 
erzeugte File wird später absolut (mit »Load "Name",8,1« 
oder »Load" Name",1,1« (Kassette)) geladen und mit »SYS 
16652« gestartet. Der Befehl »SYS 16655« stoppt die Lauf¬ 
schrift. 

<0>: Programm beenden 

Programmende ohne < RUN/STOP RESTORE>. 
Experimentieren Sie einmal mit den vielen Möglichkeiten, 
die verschieden erstellte Laufschriften bieten. Überra¬ 
schen Sie Ihre Freunde mit »Liebeserklärungen« ganz be¬ 
sonderer Art. Wir wünschen viel Spaß beim Erforschen die¬ 
ses hervorragenden Programms. 

(Bernhard Jerabek/Dr. Rudolf Egg/rs) 


0 REM'" 

1 REM " = <6SPACE > -SPRAMYCS- <6SP ACE 

2 REM” = <9SPACE>V2.3{ < ?SPACE> = 

3 REM"ciVON BERNHARD JERABEK <2BPACE> = 

4 REM" = C4SPACE)TIERBARTENRIN6 308- 

5 REM"-C4SPACE}A—5081 ANIF<7SPACE> = 

6 REM" = C4SPACE >OESTERREICH C7SPACE > = 

7 REM" = TEL:0043-6246/36303{3SPACEI = 

8 REM" 

9 PRINT" {CLR, DOWN JflOMENT. .. : FOR A=16443 T 
0 17102:PRINT"<HOME>"As READ BsPOKE A,B:C 
=C+B:NEXT 

10 PRINT" {3D0WNVC: IF CO71903 THEN PRINT" 
{RVSQN >£EHLER IN DEN fiATEN{RVQFF}":END 

11 EA=17615:POKE 251,<EA AND 255):POKE 252 
,INT(EA/256):PQKE 650,128 

12 POKE 53280,6:POKE 53281,6:PRINT CHR*(14 
);"<CLR,YELLOW>3PRAMYCS{SPACE,CYAN>VON 
JERNHARD &ERABEK 

20 PRINT"{GREY 3,2D0WN>-1- JEXT EDITIEREN 
30 PRINT"—2— .LAUFSCHRIFT STARTEN 
40 PRINT"-3- iAUFSCHRIFT STOPPEN 
50 PRINT"—4— JjAECHSTE IEXTSEITE 
60 PRINT"—5— .VORIGE IEXTSEITE 


< 1B3> 

< 120 > 

< 137> 
<143> 
<234> 
<056> 

< 028 > 
<237> 
< 006 > 


<016> 


<214> 


<036> 


< 155> 
<106> 
<177> 

< 122 > 
<091 > 
<228> 


70 PRINT”—6— £OSITION/££SCHWINDIGKEIT/£ICH 


TE 


<018> 

<077> 
<215> 
< 167> 
<025> 
<093> 


80 PRINT"-7- XEXTSPEICHER LOESCHEN 
90 PRINT"—8— ZEICHENSATZADRESSE 
100 PRINT"—9— EARBEN AENDERN 
110 PRINT"—10-LAUFSCHRIFT SPEICHERN 
120 PR INT "-0- .PROGRAMM BEENDEN{2DOWN> 

500 INPUT A:ON A+l GOSUB 11000,1000,2000,3 
000,4000,5000,6000,7000,8000,9000,1000 
0 <107> 

510 GOTO 12 <210> 

998 END <238> 

999 ''PIT *«♦*»♦♦*«♦* <018> 

1000 POKE 53280,0:SYS 16446:PRINT"CCLRJIEX 

T MIT NORMALEM 31LDSCHIRMEDITOR EIN- <246> 
1010 PR INT "GEBEN. V.DR.SIJHT ! ÜICHT MIT DEM 

£URSOR <141> 

1020 PRINT"AUS DEM BILDSCHIRM FAHREN! <219> 

1030 PR INT "EINGABE MIT < .Hf.T_U.RM ; BEENDEN. <031 > 
1040 PRINT"12DQWN5-XASTE-":WAIT 198,1:P0KE 

198,0 ' <091> 

1050 SYS 16452:PQKE 19,1:INPUT"{HOME}A*: 

POKE 19,0:SYS 16449:RETURN <038> 

1999 N *_*_*_»»_**.*»-**>» < 151 > 

2000 SYS 16443:RETURN <199> 

2999 '' .♦.*.*-♦■».♦-».».♦■».♦.».♦.».*.*■»■»0 FF<072> 

3000 SYS 16446:RETURN <057> 

3999 "X<117> 

4000 SYS 16455:POKE 252,PEEK(252)+2:RETURN <073> 

5000 SYS 16458:POKE 252,PEEK(252)-2:RETURN <203> 

5999 " *.^*.*.*«.***«P □ S/SPFFD/DICHT» <186> 

6000 PRINT" {CLR>.POSITION DER LAUFSCHRIFT " 

PEEK(16640);:POKE 211,24:SYS 5B640 <009> 

6010 INPUT P:IF P<50 OR P>251 THEN 6000 <183> 

6020 POKE 16640,P AND 255:SYS 16443 <025> 

6030 F'RINT" -CHOME,3D0WNIfiESCHWINDIGKEIT "PE 

EK(16641);:POKE 211,15:SYS 58640 <229> 

6040 INPUT BsPOKE 16641,G AND 255 <153> 

6050 PRINT"{HOME,5D0WN >£ICHTE{2SPACE >"INT( 

8/G+.5)asPOKE 211,7:SYS 58640 <233> 

6060 INPUT D:POKE 16642,D AND 255 <105> 

6070 RETURN <030> 


7000 SYS 16446:A*“"":INPUT"ICLR5IEXTSPEICH 
ER LOESCHEN (J=JA>";A*:IF A*<>"J"THEN 

7002 <196> 

7001 SYS 16461 < 160 > 

7002 RETURN <202> 

7999 '‘HAR-ADR,* L * ^A *.*.*. <023> 

8000 PRINT"{CLRIZEICHENSATZ-Ü13YTE "PEEK(1 
6643);:POKE 211,18:SYS 58640:IMPUT ZS <192> 

8010 POKE 16643,ZS AND 255:RETURN <169> 

8999 "■WJjmWJ. W gJEOLORS at ttWZ. <168> 

9000 PRINT"<CLR}";:FOR A=0 TO 7 <203> 

9010 PRINT"£ARBE"A PEEK(16644+A);:POKE 211 

,7:SYS 58640:INPUT F:POKE 16644+A,F A 
ND 255 <013> 

9020 NEXT:RETURN <069> 

10000 SYS 16446:POKE 253,PEEK(45):POKE 254 

,PEEK(46) <123> 

10010 POKE 43,0:POKE 44,65:POKE 45,PEEK(25 

1):POKE 46,PEEK(252):CLR < 022 > 

10020 INPUT " <CLR }£.I LENAME " ; F*: IF F*= " " THEN 

10060 <215> 

10030 GN=B:PRINT"I3D0WN,RVS0N>fi<RV0FF>ISK/ 

IRVSON >X<RVOFF >APE?":WAIT 198,1:GET 
A*:IF A*="T"THEN GN=1:G0T0 10050 <111> 

10040 OPEN 1,8,15,"I":CLQSE 1 <129> 

10050 SAVE F*,GN,1 <097> 

10060 POKE 43,1:POKE 44,8:POKE 45,PEEK(253 

):POKE 46,PEEK(254) < 029 > 

10070 GOTO 510:REM RETURN WEGEN CLR <079> 

10099 " ND<246> 

11000 CLR:END <151> 

31999 " *.*.*.*.*.*.*.*.*.*>.».»M ASCH INENPROGRAMM.*.*. <133> 

32000 DATA 76,18,65,76,155,66,76,116,64,76 
,140,64,76,164,64,76,201,64,76,80,64 <154> 

32001 DATA 120,165,1,72,169,49,133,1,162,2 
,160,0,169,32,153,207,66,200,208,250 < 060> 

32002 DATA 238,96,64,202,208,240,169,66,14 

1.96.64.104.133.1.88.96.32.237.64.16 

0 <236> 

32003 DATA 0,185,0,4,153,207,66,185,0,5,15 

3,207,67,200,208,241,134,1,88,96,32 <097> 

32004 DATA 237,64,160,0,185,207,66,153,0,4 

,185,207,67,153,0,5,136,208,241,134 <046> 

32005 DATA 1 ,B8,96,173,126,64,24,105,2,1 41 
,126,64,141,147,64,141,96,64,141,107 <105> 

32006 DATA 64,24,105,1,141,132,64,141,153, 

64.173.38.66.24.105.2.141.38.66.96.1 

69 <155> 

32007 DATA 56,141,167,64,141,194,64,169,23 

3.141.168.64.141.195.64.32.164.64.16 

9 <160> 

32008 DATA 24,141,167,64,141,194,64,169,10 

5.141.168.64.141.195.64.96.120.166.1 <174> 

32009 DATA 169,49,133,1,169,160,160,41,153 
,0,6,136,16,250,96,0,151,1,8,216,6,1 

4 <013> 

32010 DATA 3,13,1,13,3,14,76,18,65,76,155, 
66,120,160,0,152,153,0,62,153,0,63,1 

53 <231> 

32011 DATA 248,61,136,208,244,169,207,133, 
9,169,66,133,10,169,0,133,168,141,25 

5 <085> 

Listing 1. »Spramycs 2.3« erzeugt effektvolle Lauf¬ 
schriften auf dem Bildschirm. Bitte mit dem Check¬ 
summer (Seite 159) eingeben. 
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32012 DATA 63,141,28,208,141,14,220,169,25 
5,141,21,208,141,29,208,141,23,20B,1 

69 < 192 > 

32013 DATA 193,141,16,208,169,1,141,26,208 
,169,145,141,20,3,169,65,141,21,3,17 

3 < 028 > 

32014 DATA 0,65,141,18,208,173,17,208,41,1 
27,141,17,208,160,15,24,173,0,65,105 <012> 

32015 DATA! 1,153,0,208,136,185,190,66,153, 
0,208,136,16,238,160,248,152,153,0,7 <016> 

32016 DATA 200,208,249,160,0,185,4,65,153, 
39,208,200,192,8,208,245,BB,96,173,1 

7 <129> 

32017 DATA 208,170,41,247,141,17,208,160,1 
6,136,16,253,165,0,160,20,189,255,25 

5 <031> 

3201B DATA 189,255,255,165,0,206,22,208,23 

8,22,208,173,18,20B,56,233,1,41,7,9 <082> 

32019 DATA 24,141,17,208,136,208,226,142,1 

7,208,173,25,208,141,25,208,172,206 <148? 

32020 DATA 66,136,208,21,172,39,208,162,0, 

189,40,208,157,39,208,232,224,7,208 <105? 

32021 DATA 245,140,46,208,160,3,140,206,66 

,172,205,66,200,204,2,65,208,65,120 <016> 

32022 DATA 166,1,169,49,133,1,169,0,133,17 

0,164,168,177,9,160,3,10,38,170,136 <021> 

32023 DATA 208,250,133,169,165,170,24,109, 
3,65,133,170,160,7,177,169,153,248,6 

1 <01B> 

32024 DATA 136,16,248,230,168,208,13,165,1 
0,24,105,1,201,68,20B,2,169,66,133,1 

0 <084 > 


32025 DATA 134,1,88,160,0,140,205,66,173,1 
,65,72,162,21,160,7,185,248,61,10,15 

3 <222> 

32026 DATA 248,61,62,200,63,62,199,63,62,1 

98,63,62,136,63,62,135,63,62,134,63 <205? 

32027 DATA 62,72,63,62,71,63,62,70,63,62,8 
,63,62,7,63,62,6,63,62,200,62,62,199 <131> 

32028 DATA 62,62,198,62,62,136,62,62,135,6 

2,62,134,62,62,72,62,62,71,62,62,70 <1B7> 

32029 DATA 62,62,8,62,62,7,62,62,6,62,202, 

202,202,136,16,171,104,56,233,1,208 <226> 

32030 DATA 160,76,49,234,120,169,49,141,20 

,3,169,234,141,21,3,160,1,140,14,220 <06B> 


32031 DATA 136,140,26,208,140,21,208,169,2 
00,141,22,208,169,27,141,17,208,88,9 

6 <116? 

32032 DATA 240,0,40,0,88,0,136,0,184,0,232 

,0,24,0,72,0,3 < 069 > 

Llsting 1. (Schluß) 


10 1F A=0 THEN A=lrLOAD"DEMO-SCROLL",8.1 <090> 

20 POKE 53280,6:P0KE 53281,6 <184> 

30 SYS 16652:POKE 53277,127 <227> 

40 PRINT"CCLR,BREY 3,3POWNJBYS16655!REM TO 

EX IT <HOMEJ <143> 


Llsting 2. »Demo« zeigt eine Laufschrift. Das Demo lädt das 
Programm »Demo-Scroll« von Diskette nach. Bitte mit dem 
Checksummer eingeben (Eingabehinweise Seite 159). 


Name : demo-scroll 4100 44cf 
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dO 
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dO 

a9 

52 

4148 : 

01 

8d 
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dO 

a9 
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41 

8d 
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03 
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dO 
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dO 
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10 
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a5 

00 

ce 

16 

dO 
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: dO 
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dO 
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c8 
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dO 

e8 

eO 
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dO 

f5 

cf 
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2e 

dO 

aO 

03 

8c 

ce 

42 

20 

4le8 
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cd 

42 

c8 

cc 

02 

41 

dO 

a8 

4lf0 
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78 

a6 

01 

a9 

31 

85 

01 

73 

4lf8 

: a9 

00 

85 

aa 

a4 

a8 

bl 

09 

cO 

4200 
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03 

Oa 

26 

aa 

88 

dO 

fa 

91 

4208 

: 85 

a9 

a5 

aa 

18 

6d 

03 

4l 

9c 

4210 

: 85 

aa 

aO 

07 

bl 

a9 

99 

f8 

b4 
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10 

f8 

e6 

a8 

dO 

Od 

cd 
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0a 

18 
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01 

c9 

44 

dO 

Of 
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a9 

42 

85 

Oa 
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01 

58 

ca 

4230 
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00 

8c 

cd 

42 

ad 

01 

41 

c5 

4238 
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a2 

15 

aO 

07 

b9 

f8 

3d 

c7 


4240 : 

Oa 

99 

f8 

3d 

3e 

c8 

3f 

3e 

aO 

4248 : 

c7 

3f 

3e 

c6 

3f 

3e 

88 

3f 

9e 

4250 : 

3e 

87 

3f 

3e 

86 

3f 

3e 

48 

d5 

4258 : 

: 3f 

3e 

47 

3f 

3e 

46 

3f 

3e 

00 

4260 : 

: 08 

3f 

3e 

07 

3f 

3e 

06 

3f 

f5 

4268 : 
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7e 
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£ 

c6 

3e 

57 

4d 
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3e 

3e 

48 

3e 

3e 

47 

3e 

25 

4280 : 
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46 

3e 

3e 

08 

3e 

3e 

07 

b2 

4288 : 

: 3e 

3e 

06 

3e 

ca 

ca 

ca 

88 

6e 

4290 : 

: 10 

ab 

68 

38 

e9 

01 

dO 

aO 

c2 

4298 : 

; 4c 

31 

ea 

78 

a9 

31 

8d 

14 

c9 

42a0 : 

: 03 

a9 

ea 

8d 

15 

03 

aO 

01 

d2 

42a8 : 

: 8c 

Oe 

de 

88 

8c 

la 

dO 

8c 

79 

42b0 

: 15 

dO 

a9 

c8 

8d 

16 

dO 

a9 

dl 

42b8 

: lb 

8d 

11 

dO 

58 

60 

fO 

00 

45 

42c0 

: 28 

00 

58 

00 

88 

00 

b8 

00 

6a 

42c8 

: e8 

00 

18 

00 

48 

05 

02 

44 

f4 

42d0 

: 09 

05 

13 

20 

09 

13 

14 

20 

de 

42d8 
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09 

Oe 

20 

44 

05 

Od 

Of 

a8 

42e0 
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06 

15 

05 

12 

20 

05 

09 

32 

42e8 

: Oe 

05 

20 

4c 

01 
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13 

01 
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08 

12 

09 
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14 

2c 

20 

8f 
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05 

20 

Od 
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20 

70 
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4f 
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05 
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20 

4d 

4a 
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05 

07 

Oc 

09 

03 

08 

Ob 

d4 
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09 

l4 

05 

Oe 
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15 

7c 
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: 05 
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4l 
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4338 
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04 
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13 
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2b 

4348 

: 08 

05 

12 

16 

Of 

12 

12 

01 

e6 
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05 

Oe 

04 

05 

Oe 

20 

4c 

b8 

4358 
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15 

06 

13 

03 

08 

12 

09 

93 

4360 
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14 

07 

05 

Oe 

05 

12 

01 

26 

4368 
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Of 

12 

13 

20 

13 

09 

Oe 

c6 

4370 

: 04 

20 

16 

Of 

12 

08 

01 

Oe 

6d 
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05 

Oe 

2e 

20 

50 

12 

Of 

33 
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09 

05 

12 

05 

Oe 

20 

53 
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4388 : 

09 

05 

20 04 

Of 

03 

08 

20 

06 

4390 

05 

09 

Oe Od 

01 

Oc 

20 

Oe 

4c 

4398 

05 

15 

05 20 

46 

01 

12 

02 

26 

43a0 

05 
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la 
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43 cO 
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Oe 

67 

43d0 

20 

01 

15 13 

2e 

20 

44 

09 

20 
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20 
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12 

Ob 
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Oe 

ce 
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08 
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05 
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Oe 

Od 
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05 
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8f 

4418 

14 
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20 

01 

Oe 

13 

a9 

4420 

10 
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05 03 

08 

05 

Oe 

04 

c4 

4428 
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Of 

12 

Od 

20 

fd 

4430 

01 

Oc 
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22 

42 

12 

09 

8f 

4438 

05 

06 
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07 

05 

Oe 

15 

c8 

4440 

14 

la 
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17 

09 

12 

04 

75 

4448 

2e 
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5e 

4450 
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Oe 

20 
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20 

20 

20 

90 
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20 

20 
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20 

20 

20 

20 

98 
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20 

20 
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20 

20 

20 

20 

aO 
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20 

20 
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20 
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20 

20 

a8 

44b 0 

: 20 

20 
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20 

20 

20 

20 

bO 
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20 
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20 

20 

20 

20 

b8 
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20 
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20 

20 

20 

20 

cO 
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: 20 

20 
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20 

20 

20 
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88 


Listing 3. »Demo-Scroll« wird vom Beispielprogramm »Demo« nachgeladen. 
(Eingabehinweise Seite 159). Bitte mit dem MSE eingeben. 
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C64 


GRAFIK-LISTINGS 


Blitzschnelle Grafik-Routinen 

für Giga-Ass 


Zu einem Assembler wie Giga-Ass gehören hochauflösender Grafik. Sie bilden den Grund- 
Unterprogramm-Bibliotheken. Die hier vorge- stock einer universell einsetzbaren Assembler¬ 
stellten Grafik-Routinen erleichtern das Erstellen Makro-Bibliothek für alle Anwendungszwecke. 


I m folgenden wird eine Sammlung von Grafik-Unterpro¬ 
grammen vorgestellt, die als Makros aufgerufen wer¬ 
den. Eine solche Sammlung kann natürlich nie vollstän¬ 
dig sein. Wir beschränken uns hier auf die wesentlichen 
Funktionen zum Verwalten von Grafikseiten. Dazu gehören 
das Setzen von Punkten, das Zeichnen von Linien und Krei¬ 
sen sowie das Darstellen von Text auf dem Grafikbild¬ 
schirm. 



Ol 


Bild 1. Das 
Circle-Demo 
unter anderem 
schöne Grafik 


Dieser Kern von Grafik-Routinen umfaßt in der vorliegen¬ 
den Fassung weniger als 3 KByte, die im Hauptspeicher re¬ 
sident sind. Dabei ist kein fester Speicherbereich vorge¬ 
schrieben, dadie Routinen mit dem ».BASE«-Befehl reloka- 
tibel, also frei zu verschieben sind. 

Das Wichtigste über hochauflösende Grafik 

Der Video-Chip des C64 erlaubt eine hochauflösende 
Grafik mit maximal 320 x 200 Punkten, das ergibt 64000 
Einzelpunkte. Jeweils acht Einzelpunkte sind in einem Byte 
untergebracht, so daß 8000 Byte für eine Grafikseite benö¬ 
tigt werden. Dazu kommt noch der Farbspeicher, der in die¬ 
sem Fall 1 KByte groß ist. 

Da der Video-Chip nur jeweils 16 KByte auf einmal adres¬ 
sieren kann, müssen Einzelpunktspeicher (die sogenannte 
»Bit-Map«) und Farbspeicher jeweils zusammen in einem 
16-KByte-Block liegen. Bei einem Adreßraum von 64 KByte 
sind daher folgende vier Grafikseiten vorhanden: 


Nr. 

0 

1 

2 

3 

Bit-Map 

$2000 

$6000 

$a 000 

$e 000 

Farbspeicher 

$0400 

$5c00 

S8c00 

$cc 00 


Die Bit-Map-Speicherbereiche können prinzipiell auch 
bei den Adressen $0000, $4000, $8000 und $C000 begin¬ 
nen. Die Belegung $2000, $6000, $A000 und $E000 ist je¬ 
doch sinnvoller, da insbesondere bei $A000 und $E000 das 
unter dem ROM befindliche RAM genutzt wird, welches 
sonst kaum Verwendung findet. 

In weiten Grenzen willkürlich ist die Wahl des Farbspei- 
chers, der sich natürlich nicht mit der Bit-Map überschnei¬ 
den sollte. Über ein Register ($D018) läßt sich der Farbspei¬ 
cher in 1-KByte-Schritten verschieben. Wir halten aber an 
den in der Tabelle angegebenen Adressen fest. 

Die Eingabe der Grafik-Routinen 
In Listing 1 sind die Grafik-Routinen als fertiges Maschi- 
nen-Programm ausgedruckt. In dieser Version wird der 
Speicherplatz $A000 bis $AB2F belegt. Geben Sie das Pro¬ 
gramm ein und speichern Sie es auf Ihrer Arbeitsdiskette. 
Es wird im folgenden immer wieder benötigt. 

Die Grafik-Routinen lassen sich auch mit eigenen Pro¬ 
grammen, unabhängig von Giga-Ass verwenden. Die ent¬ 
sprechenden Einsprungadressen und Parameterblöcke 
sind in Tabelle 1 verzeichnet. 

Makros sparen Arbeit 


Speziell für das Arbeiten mit Giga-Ass wurde nun ein soge¬ 
nanntes »Makro Merge-File« entwickelt. Dessen Quellcode 
finden Sie in Listing 2. 

Listing 2 ist mit dem Giga-Ass einzugeben und auf Ihrer 
Arbeitsdiskette zu speichern. Wir wollen uns nun ein Bei¬ 
spielprogramm für die Anwendung dieser Makros an¬ 
schauen: 

10.BASE $6000 
20.START $6000 
30 PAGE 3 
40 CLEAR 
50 C0L0R $0c 
60 CIRCLE 160,100,80 
70 SPACEWAIT 
80 OFF 
90 RTS 

Bevor Sie die Assemblierung starten, ist das »Makro 
Merge-File« mit dem Merge-Befehl (»M«) an den Quelltext 
anzuhängen, falls es sich nicht bereits im Quelltextspei¬ 
cher befindet. Außerdem müssen Sie den Objektcode der 
Grafik-Routinen in den dafür vorgesehenen Speicherbe¬ 
reich geladen haben. 

Das eiste Beispiel: der Kreis 


Nach erfolgter Assemblierung erscheint ein Kreis auf dem 
Grafikbildschirm. Damit dieser sichtbar bleibt, folgt 
im Beispielprogramm auf den CIRCLE-Befehl ein SPACE- 
WAIT-Befehl. Erst nach Drücken der SPACE-Taste wird der 
Grafikbildschirm mit dem OFF-Befehl wieder ausgeschal¬ 
tet. Möchten Sie diese oder andere Beispielprogramme, 
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die die Grafik-Routinen verwenden, speichern, so emp¬ 
fiehlt es sich, die Makro-Definitionen ab Zeile 60000 vorher 
zu löschen. Es reicht ja, diese einmal in Form des Merge- 
Files auf Diskette gespeichert zu haben. 

Zu jedem Grafik-Befehl mit Parametern gibt es zwei Ver¬ 
sionen: Bei der ersten Version werden die Parameter direkt 
als Zahlenwerte eingegeben. Diese Version ist für einzelne, 
unveränderliche Grafik-Ausgaben gedacht. Sollen sich je¬ 
doch während des Programmablaufs einzelne Parameter 
verändern, etwa innerhalb einer Schleife, so ist diese erste 
Version nicht geeignet. 

Für veränderliche Parameter gibt es daher eine zweite 
Version, erkennbar an dem an den Namen angehängten »I« 
(zum Beispiel LINEI, CIRCLEI). Bei dieser Version werden 
als Parameter nicht die direkten Werte, sondern deren 
Adressen angegeben, 

Das bedeutet: Während der Assemblierung sind die tat¬ 
sächlichen Parameter nicht bekannt, sondern nur die Stel¬ 
len im Speicher, an denen sie während der Ausführung des 
Programms aufzufinden sind. 

Man nennt diese Art der Parameter-Angabe indirekt. In¬ 
direkte Parameter-Angabe ist immer dann zu wählen, wenn 
die Parameter sich während der Laufzeit des Programms 
ändern sollen. 

Konzentrische Kreise mit CIRCLEI 


Beispielsweise lassen sich unter Verwendung des 
CIRCLEI-Befehls konzentrische Kreise auf den Grafik- 
Bildschirm zeichnen. Vergessen Sie nicht, vor dem Assem- 
blieren den Objektcode der Grafik-Routinen in den Spei¬ 
cher zu laden und das Makro Merge-File anzuhängen. 
10.BASE $6000 
20.START $6000 
30 PAGE 3 

40 CLEAR 

50 C0L0R $0c 


60 

LDA #10 

140 

BCC LOOP 

70 

STA RAD 

150 

SPACEWAIT 

8ÜL00P CIRCLEI XC,YC,RAD 

160 

OFF 

90 

LDA RAD 

170 

RTS 

100 

CLC 

180XC 

.WORD 160 

110 

ADC #10 

190YC 

.BYTE 100 

120 

STA RAD 

200RAD 

.DS 1 

130 

CMP #100 




Das Format der Makro-Befehle 


PAGE 

Parameter X: 0 bis 3 (Nummer der Grafikseite) 

Dieser Befehl initialisiert eine Grafikseite, indem die 
Video-Chip-Register und die internen Zeiger entsprechend 
gesetzt werden. Bevor irgendeine andere Grafik-Routi¬ 
ne verwendet wird, muß entweder der PAGE oder der 
DESIGN-Befehl einmal aufgerufen worden sein. Danach 
wird im Regelfall ein CLEAR und ein COLOR-Befehl folgen. 
Gesetzt werden folgende internen Zeiger: 

$FD (High-Byte der Startadresse der Bit-Map), 

$FE (High-Byte der Endadresse der Bit-Map), 

$FF (High-Byte der Startadresse des Farbspeich^rs). 

Diese drei Speicherstellen dürfen nicht anderweitig be¬ 
nutzt werden, solange auf die Grafik-Routinen zugegriffen 
wird. 

DESIGN 

Parameter: wie bei PAGE 

Im Gegensatz zu PAGE setzt DESIGN nur die internen 
Zeiger $FD, $FE und $FF. Die Betriebsart des Video-Chips 
wird i RC.it verändert. 

DESIGN erlaubt interessante Anwendungen. Mit diesem 
Befehl kann zum Beispiel eine Grafikseite angezeigt wer¬ 
den, während eine andere unsichtbar aufgebaut wird. 


Adresse 

Befehl 

Parameter 

$c000 

PAGE 

X-Register: Grafikseite 

$c003 

DESIGN 

X-Register: Grafikseite 

$c006 

OFF 

keine 

$c009 

INV 

keine 

$c00c 

CLEAR 

keine 

$c00f 

COLOR 

Akkumulator: Farb-Code 

$c012 

SETCOL 

Akkumulator: Zeile 

X-Reglster: Spalte 

Y-Register: Farb-Code 

$c015 

CLEARDOT 

siehe ACCESS 

$c018 

SET 

siehe ACCESS 

$c01b 

TEST 

siehe ACCESS 

$c01e 

ACCESS 

Akkumulator: X-Koordinate (LSB) 
X-Register: X-Koordinate (MSB) 
Y-Register: Y-Koordinate 

$c021 

X0L 

X0-Koordinate (LSB) 

$c022 

X0H 

XO-Koordinate (MSB) 

$c023 

Y0 

YO-Koordinate 

$c024 

T1L 

Xi-Koordinate (LSB) 

$c025 

XIH 

Xi-Koordinate (MSB) 

$c026 

Y1 

Yl-Koordinate 

$c027 

LINE 

keine Register; $c021 bis $c026 

$c02a 

CLINE 

keine Register: $c021 bis $c026 

$c02d 

FX0L 

XO-Koordinate (LSB) 

$c02e 

FX0H 

XO-Koordinate (MSB) 

$c02f 

FY0 

YO-Koordinate 

$c030 

FX1L 

Xi-Koordinate (LSB) 


Adresse 

Befehl 

Parameter 

$c031 

FX1H 

Xi-Koordinate (MSB) 

$c032 

FY1 

Yl-Koordinate 

$c033 

FRAME 

keine Register; $c02d bis $c032 

$c036 

CFRAME 

keine Register; $C02D bis $c032 

$c039 

FILL 

Akkumulator; X-Koordinate (LSB) 
X-Register: X-Koordinate (MSB) 
Y-Register: Y-Koordinate 

$c03c 

TX 

Anfangsspalte Text 

$c03d 

TY 

Anfangszeile Text 

$c03e 

EXPX 

horizontale Ausdehnung 

$c03f 

EXPY 

vertikale Ausdehnung 

$c040 

CASE 

Zeichensatz 

$c041 

TEXT 

Akkumulator: Textadresse (LSB) 
Y-Register: Textadresse (MSB) 
X-Register: Textfarbe 

$c044 

RAD 

Radius (für CIRCLE) 

$C045 

CIRCLE 

Akkumulator: X-Koordinate (LSB) 
X-Register: X-Koordinate (MSB) 
Y-Register: Y-Koordinate 

$c048 

CCIRCLE 

Akkumulator: X-Koordinate (LSB) 
X-Register: X-Koordinate (MSB) 
Y-Reglster: Y-Koordinate 

$c04b 

LINES 

Akkumulator: Koord.-Tab. (LSB) 
Y-Register: Koord.-Tab. (MSB) 

$c04e 

LINESC 

Akkumulator: Koord.-Tab. (LSB) 
Y-Register: Koord.-Tab. (MSB) 



Tabelle 1. Übersicht der Einsprungpunkte sowie der Übergabeparameter für die Grafik-Routinen (Jump table) 
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Wird nur DESIGN verwendet und kein PAGE-Befehl, so 
wird weiterhin der normale Textbildschirm ($0400 bis 
$07FF) angezeigt, während die Grafik-Routinen »im Hinter¬ 
grund« arbeiten. In diesem Fall läßt sich allerdings die Gra¬ 
fikseite 0 nicht nutzen, da diese den normalen Textbild¬ 
schirm als Farbbildschirm verwendet. Wollen Sie trotzdem 
den Textbildschirm und Grafikseite 0 gleichzeitig benutzen, 
so muß der Textbildschirm in einen anderen Speicherbe¬ 
reich verschoben werden, zum Beispiel mit 
POKE 53272,56:P0KE 648,12:SYS 58692 
nach $0C00 (3072) bis $0FFF (4095). 

Im Extremfall sind Sie unter Verwendung von DESIGN in 
der Lage, vier Grafikbildschirme gleichzeitig zu verwalten! 
OFF 

Parameter: keine 

OFF schaltet von der Grafikseite auf den Textbildschirm 
$0400 bis $07FF zurück. Die Grafikseiten selbst werden da¬ 
von nicht berührt, sie werden lediglich nicht mehr ange¬ 
zeigt. Sie lassen sich auch mit DESIGN (siehe oben) weiter¬ 
hin anwählen und mit den Grafik-Routinen verändern. 

INV 

Parameter: keine 

INV invertiert die gesamte aktuelle Grafikseite. Aus je¬ 
dem gesetzten Punkt wird ein gelöschter und umgekehrt. 

CLEAR 

Parameter: keine 

CLEAR löscht die gesamte aktuelle Grafikseite. Alle Ein¬ 
zelpunkte werden gelöscht. Durch anschließendes INV er¬ 
reicht man, daß alle Einzelpunkte gesetzt sind. 

COLOR 

Parameter: Byte-Wert 

COLOR füllt den gesamten Farbspeicher mit dem vorge¬ 
gebenen Byte-Wert. Dieser ist nach folgender Regel zu bil¬ 
den: Byte-Wert = Fl x 16 + F2. Dabei ist »Fl« die Farbe der 
gesetzten Bits, also die Zeichenfarbe, und »F2« die Farbe 
der gelöschten Bits, also die Hintergrundfarbe. Zum Bei¬ 
spiel bewirkt COLOR $6E, daß dunkelblau auf hellblauem 
Hintergrund gezeichnet wird. 

SETCOLOR 

Parameter: Zeile, Spalte, Byte-Wert 

Bei der hochauflösenden Grafik des C64 wird jedem 
Block von 8x8 Einzelpunkten eine gemeinsame Zeichen- 
und Hintergrundfarbe zugeordnet. Um die Position dieser 
Blöcke zu bestimmen, stellt man sich eine Grafikseite wie 
den Textbildschirm in 25 Zeilen mit je 40 Spalten unterteilt 
vor. Dabei sind die Zeilen von 0 bis 24 und die Spalten von 
0 bis 39 durchnumeriert. Der Byte-Wert für die Farbe wird 
wie bei COLOR gesetzt. Die Zeichenfarbe ist bestimmt 
durch das High-Nibble, die Hintergrundfarbe durch das 
Low-Nibble. 

Befehle zur Ansteuerung 
von Einzelpunkten 

CLEARDOT, SET, TEST, ACCESS 

Parameter: X-Koordinate, Y-Koordinate 

Mit diesen vier Befehlen lassen sich Einzelpunkte in der 
Bit-Map ansprechen. Es gibt drei Operationen: 

1. Löschen von Einzelpunkten (CLEARDOT), 

2. Setzen von Einzelpunkten (SET) und 

3. Testen von Einzelpunkten (TEST). 

Um diese drei Operationen gemeinsam zu behandeln, 
wurde ein Operations-Flag eingeführt, das für die entspre¬ 
chende Operation steht. Dieses Flag steht in der Speicher¬ 
zelle $0002 in der Zero-Page. Dieses Flag ist: 

$00, falls der angegebene Einzelpunkt gelöscht werden 
soll; 

$01, falls er gesetzt werden soll und 
$FF, wenn er getestet werden soll. 


Die Befehle CLEARDOT, SET oder TEST arbeiten folgen¬ 
dermaßen: Sie setzen das Flag in der Speicherzelle $0002 
auf den erforderlichen Wert. Anschließend rufen sie AC¬ 
CESS auf, um den angegebenen Einzelpunkt mit der ge¬ 
wünschten Operation anzusteuern. Der Anwender hat also 
die Wahl: Entweder ruft er CLEARDOT, SET oder TEST ex¬ 
plizit auf, oder er setzt die Speicherzelle $0002 selbst und 
verwendet dann den ACCESS-Befehl. 

Die Koordinaten-Achsen haben ihren Ursprung in der lin¬ 
ken oberen Ecke der Grafikseite. Der Punkt mit den Koordi¬ 
naten (0,0) ist also der Punkt in dieser Ecke. Die X-Achse 
reicht nun horizontal bis zum rechten Bildschirmrand, die 
Y-Achse vertikal zum unteren Bildschirmrand. Dabei laufen 
die zugehörigen Koordinaten bei der X-Achse von 0 bis 319 
($13F) beziehungsweise bei der Y-Achse von 0 bis 199 
($C7). Der Punkt in der rechten unteren Ecke der Grafiksei¬ 
te hat somit die Koordinaten (319,199). Da die X-Koordinate 
größere Werte als 255 annimmt, werden zu ihrer Speiche¬ 
rung 2 Byte (also ein 16-Bit-Wort) benötigt. Darauf ist bei der 
indirekten Parameter-Angabe zu achten. Koordinaten, die 
außerhalb des oben definierten Bereichs liegen, haben kei¬ 
ne Auswirkung. 

Mit der TEST-Operation kann überprüft werden, ob ein 
Einzelpunkt gesetzt oder gelöscht ist. Das Ergebnis wird im 
Carry-Flag abgelegt. Es ist gleich 0, falls der Punkt gelöscht 
ist, und gleich 1, wenn er gesetzt ist. 

Befehle zum Zeichnen von Linien 


LINE, LINEC 

Parameter: X0, Y0, XI, Y1 

Der Befehl LINE X0,Y0,X1,Y1 zeichnet eine Linie von den 
Koordinaten (X0,Y0) zu (Xi;71). Der Befehl LINEC 
XO.Y' 1 I ,Y1 löscht diese Linie. Da bereits bei der Ansteue¬ 
rung von Einzelpunkten eine Bereichsüberprüfung der 
Koordinaten erfolgt, können Linien durchaus über den Bild¬ 
schirmrand hinausreichen, ohne daß dies negative Auswir¬ 
kungen hat. Es wird dann nur der innerhalb des Bild¬ 
schirms liegende Teil der Linie dargestellt. 

FRAME und CFRAME 

Pfrnpmptpr' Yfl YD Y1 Y1 

Der Befehl FRAME X0,Y0,X1,Y1 zeichnet ein Rechteck 
mit dem linken oberen Eckpunkt (X0,Y0) und dem rechten 
unteren Eckpunkt (X1,Y1). Die Reihenfolge der beiden Eck¬ 
punkte spielt dabei keine Rolle. DerCFRAME-Befehl löscht 
nach dem gleichen Prinzip den Rahmen mit den angege¬ 
benen Eckpunkten. 

FILL 

Parameter: X-Koordinate, Y-Koordinate 

Der FILL-Befehl dient zum Ausfüllen der mit FRAME er¬ 
zeugten Rechtecke. Die Füllfunktion startet an dem Punkt 
mit den vorgegebenen Koordinaten. Sollte dieser Punkt be¬ 
reits gesetzt sein, so stoppt die Funktion. Fehlen die 
Begrenzungslinien, so wird bis zum Bildschirmrand gefüllt. 

Da diese Grafik-Routine nur auf Rechtecke abgestimmt 
ist, die mit FRAME erzeugt wurden, füllt sie unregelmäßige 
Figuren nur zum Teil aus. In diesem Fall sind mehrere Auf¬ 
rufe des FILL-Befehls mit geeigneten Startpunkten notwen¬ 
dig. 

TEXT 

Parameter: 

1. Adresse des anzuzeigenden Textes 

2. Anfangszeile 

3. Anfangsspalte 

4. horizontale Ausdehnung 

5. vertikale Ausdehnung 

6. Zeichensatz 

7. Textfarbe 
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Dieser Befehl schreibt einen beliebigen Text in die aktuel¬ 
le Grafikseite. Anzugeben sind: 

1. Die Adresse, ab der die ASCII-Codes des Textes im Spei¬ 
cher stehen. Hinter dem letzten Zeichen muß ein Null-Byte 
($00) folgen. 

2. Die Anfangszeile und 

3. die Anfangsspalte des Textes. 

Hierdurch wird die Position vorgegeben, ab der der vor¬ 
gegebene Text in die Grafikseite geschrieben wird. Zulässi¬ 
ge Werte entsprechen denen von SETCOL. 

4. Die horizontale und 

5. die vertikale Ausdehnung. 

Beide Parameter haben Werte von 0 bis 3. Bei 0 wird der 
Text angezeigt wie auch auf dem Textbildschirm, während 
bei größeren Werten die Buchstaben in der entsprechen¬ 
den Richtung vergrößert erscheinen. 

6. der Zeichensatz. Bei einem Wert von 0 werden Groß¬ 
buchstaben und Grafiksymbole verwendet, bei 1 Groß- und 
Kleinbuchstaben. 

7. die Textfarbe. Dieser Wert dient zum indirekten Aufruf von 
SETCOL, so daß der angezeigte Text in der gewünschten 
Farbe erscheint. Wählt man als Textfarbe den Wert $FF, 
wird TEXTCOL nicht aufgerufen; die voreingestellte Zei¬ 
chenfarbe bleibt erhalten . 

CIRCLE und CCIRCLE 
Parameter: Mittelpunkt (X,Y), Radius 
CIRCLE X,Y,R zeichnet einen Kreis mit dem Mittelpunkt, 
der durch (X,Y) gegeben ist, und dem Radius R in die ak¬ 
tuelle Grafikseite. CCIRCLE löscht den entsprechenden 
Kreis. Ein Beispiel für eine Routine, die den CIRCLE-Befehl 
verwendet (Bild 1) finden Sie in Listing 3. 

LINES 

LINESC 

Parameter: die Adresse einer Koordinatentabelle 

LINES und LINESC ermöglichen das Zeichnen bezie¬ 
hungsweise Löschen von Streckenzügen, um komplexere 
Figuren darzustellen. Parameter ist die Adresse einer vom 
Anwender vorzugebenden Tabelle, die eine Folge von Ein¬ 
zelpunkten enthält. Jeweils deren X- und Y-Koordinaten 
werden angegeben. Zwischen je zwei aufeinanderfolgen¬ 
den Punkten wird eine Linie gezogen. Beim Aufbau der 
Koordinatentabelle ist zu beachten, daß jeder Einzelpunkt 


durch drei Byte dargestellt wird: Zwei Byte enthalten die 
X-Koordinate, das dritte die Y-Koordinate des betreffenden 
Punktes. Die Tabelle wird abgeschlossen durch einen 
Punkt, dessen X-Koordinate $FFFF ist. 

Zur Verdeutlichung ein Beispiel. Folgendes Programm 
zeichnet ein Parallelogramm auf den Grafikbildschirm: 

10.BASE $6000 
20.START $6000 


30 

PAGE 3 

40 

CLEAR 

50 

C0L0R $0c 

60 

LINES 

1 TAB 

70 

SPACEWAIT 

80 

OFF 


90 

RTS 


100TAB 

.WORD 

80 

110 

.BYTE 

100 

120 

.WORD 

160 

130 

.BYTE 

60 

140 

.WORD 

240 

150 

.BYTE 

100 

160 

■ WORD 

160 

170 

.BYTE 

140 

180 

.WORD 

80 

190 

.BYTE 

100 

200 

.WORD 

$ffff 


Den Source-Code der Grafik-Routinen konnten wir aus 
Platzgründen an dieser Stelle nicht veröffentlichen. Sie fin¬ 
den ihn jedoch mit dem Programm »Giga-Ass 1.0« und eini¬ 
gen zusätzlichen Demo-Programmen auf der Leserser¬ 
vice-Diskette. 

Abschließend weisen wir noch einmal darauf hin, daß zu 
jedem voranstehenden Befehl zwei Versionen existieren, 
eine rr' direkter und die andere mit indirekter Parameter- 
Angabe. Hinter den Namen der indirekten Version wird ein¬ 
fach ein »I« angehängt. 

Achtung: Die naheliegenden Namen CLINE, CLINEI, 
CLINES, CLINESI konnten wegen der Überschneidung mit 
dem Befehl CLI nicht verwendet werden und wurden durch 
LINEC, LINEIC, LINESC, LINESIC ersetzt. 

(Thomas Dachsei / rs) 
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c9 

84 

4l 

00 

cl 

84 

49 

10 

dl 

clb8 

05 

05 

05 

06 

06 

06 

07 

07 

fd 

c030 

00 

00 

00 

4c 

65 

c6 

4c 

69 

4b 

c0f8 

d9 

a4 

71 

40 

11 

e4 

b9 

90 

c8 

clcO 

07 

08 

08 

09 

09 

09 

Oa 

Oa 

04 

c038 

c6 

4c 

eb 

c6 

00 

00 

00 

00 

f8 

clOO 

69 

44 

21 

00 

el 

c4 

a9 

90 

eO 

clc8 

Oa 

Ob 

Ob 

Oc 

Oc 

Od 

Od 

Oe 

16 

c040 

00 

4c 

50 

c8 

00 

4c 

9b 

c9 

f8 

cl08 

79 

64 

51 

40 

31 

24 

19 

10 

c8 

cldO 

Oe 

Of 

Of 

10 

10 

11 

11 

12 

le 

c048 

4c 

aO 

c9 

4c 

df 

ca 

4c 

e3 

2d 

cllO 

09 

04 

01 

00 

01 

04 

09 

10 

dO 

cld8 

12 

13 

13 

14 

14 

15 

15 

16 

26 

c050 

ca 

18 

78 

38 

38 

04 

5c 

8c 

7a 

cll8 

19 

24 

31 

40 

51 

64 

79 

90 

d7 

cleO 

17 

17 

18 

19 

19 

la 

la 

lb 

ad 

c058 

cc 

00 

40 

80 

cO 

00 

40 

80 

53 

cl20 

a9 

c4 

el 

00 

21 

44 

69 

90 

9f 

cle8 

lc 

lc 

ld 

le 

le 

lf 

20 

21 

bb 

c 060 

c0 

00 

40 

80 

cO 

00 

40 

80 

4f 

cl28 

b9 

e4 

11 

40 

71 

a4 

d9 

10 

63 

clfO 

21 

22 

23 

24 

24 

25 

26 

27 

c2 

c068 

cO 

00 

40 

80 

cO 

00 

40 

80 

57 

C130 

49 

84 

cl 

00 

41 

84 

c9 

10 

ab 

clf8 

27 

28 

29 

2a 

2b 

2b 

2c 

2d 

da 

c070 

cO 

00 

00 

01 

02 

03 

05 

06 

a9 

cl38 

59 

a4 

fl 

40 

91 

e4 

39 

90 

ae 

c200 

2e 

2f 

30 

31 

31 

32 

33 

34 

d2 

c078 

07 

08 

0a 

Ob 

Oc 

Od 

Of 

10 

ed 

cl40 

e9 

44 

al 

00 

61 

c4 

29 

90 

b6 

c208 

35 

36 

37 

38 

39 

3a 

3b 

3c 

f8 

c080 

11 

12 

14 

15 

16 

17 

19 

la 

f5 

cl48 

f9 

64 

dl 

40 

bl 

24 

99 

10 

b2 

c210 

3d 

3e 

3f 

40 

41 

42 

43 

44 

00 

c088 

lb 

lc 

le 

01 

02 

04 

08 

10 

da 

cl50 

89 

04 

81 

00 

81 

04 

89 

10 

ba 

c218 

45 

46 

47 

48 

49 

4a 

4b 

4c 

08 

c090 

20 

40 

80 

00 

01 

04 

09 

10 

65 

cl58 

99 

24 

bl 

40 

dl 

64 

f9 

90 

cl 

c220 

4d 

4e 

4f 

51 

52 

53 

54 

55 

4e 

c098 

19 

24 

31 

40 

51 

64 

79 

90 

57 

cl 60 

29 

c4 

61 

00 

al 

44 

e9 

90 

49 

c228 

56 

57 

59 

5a 

5b 

5c 

5d 

5f 

98 

cOaO 

a9 

c4 

el 

00 

21 

44 

69 

90 

lf 

cl68 

39 

e4 

91 

40 

fl 

a4 

59 

10 

49 

c230 

60 

61 

62 

64 

65 

66 

67 

69 

60 

e0a8 

b9 

e4 

11 

40 

71 

a4 

d9 

10 

e3 

cl70 

c9 

84 

4l 

00 

cl 

84 

49 

10 

51 

c238 

6a 

6b 

6c 

6e 

6f 

70 

72 

73 

6c 

cObO 

49 

84 

cl 

00 

41 

84 

c9 

10 

2b 

cl78 

d9 

a4 

71 

40 

11 

e4 

b9 

90 

48 

c240 

74 

76 

77 

79 

7a 

7b 

7d 

7e 

73 



110 


SONDERHEFT 27 










C64 


GRAFIK-LISTINGS 


c248 

7f 

81 

82 

84 

85 

87 

88 

8a 

85 

c498 

5b 

4c 

b2 

c5 

ad 

21 

cO 

ae 

c3 

c6e8 : 

00 

00 

00 

8d 

e5 

c6 

8e 

e6 

37 

C250 

8b 

8d 

8e 

90 

91 

93 

94 

96 

8d 

c4a0 

22 

cO 

ac 

23 

cO 

20 

7b 

c3 

34 

C6f0 : 

c6 

8c 

e7 

c6 

20 

75 

c3 

90 

ad 

o258 

97 

99 

9a 

9c 

9d 

9f 

aO 

a 2 

95 

c4a8 

ad 

23 

cO 

cd 

26 

cO 

dO 

11 

9e 

c6f8 : 

01 

60 

ad 

e5 

c6 

ae 

e6 

c6 

5c 

c260 

a4 

a5 

a7 

a9 

aa 

ac 

ad 

af 

lc 

c4bO 

ad 

22 

cO 

cd 

25 

cO 

dO 

09 

06 

c700 : 

ac 

e7 

c6 

8d 

e8 

c6 

8e 

e9 

d6 

c268 

bl 

b2 

b4 

b6 

b7 

b9 

bb 

bd 

2a 

c4b8 

ad 

21 

cO 

cd 

24 

cO 

dO 

01 

6d 

c708 : 

c6 

8c 

ea 

c6 

20 

75 

c3 

90 

86 

o270 

be 

cO 

c 2 

c4 

c5 

c7 

o9 

cb 

31 

c4c0 

60 

ad 

23 

cO 

18 

6d 

ef 

c3 

Oc 

c710 : 

03 

4c 

9f 

c7 

ad 

e8 

c6 

ae 

b5 

c278 

cc 

ce 

dO 

d2 

d4 

d5 

d7 

d9 

49 

c4c8 

8d 

23 

cO 

ad 

ee 

c3 

fO 

CC 

37 

c718 : 

e9 

c6 

ac 

ea 

c6 

20 

70 

c3 

a3 

c280 

db 

dd 

df 

el 

e2 

e4 

e6 

e8 

41 

c4d0 

30 

12 

18 

6d 

21 

cO 

8d 

21 

4e 

c720 : 

ad 

e8 

c6 

ao 

05 

ad 

e9 

c6 

00 

C288 

ea 

ec 

ee 

fO 

f2 

f4 

f6 

f8 

67 

c4d8 

cO 

ad 

22 

cO 

69 

00 

8d 

22 

21 

c728 : 

fO 

lb 

ce 

e8 

c6 

ad 

e8 

c6 

81 

c290 

fa 

fc 

fe 

eO 

04 

90 

01 

60 

6e 

c4e0 

cO 

4c 

9c 

c4 

ce 

21 

cO 

ad 

da 

c730 : 

c9 

ff 

dO 

03 

ce 

e9 

c6 

ad 

40 

c298 

a9 

3b 

8d 

11 

dO 

a9 

c8 

8d 

fd 

c4e8 

21 

cO 

c9 

ff 

dO 

ae 

ce 

22 

de 

c738 : 

e8 

c6 

ae 

e9 

c6 

ac 

ea 

c6 

77 

o2aO 

16 

dO 

bd 

51 

cO 

8d 

18 

dO 

32 

c4fO 

cO 

4c 

9c 

c4 

a2 

00 

8e 

f6 

e8 

c740 : 

20 

75 

c3 

90 

cf 

ad 

e5 

c6 

ad 

c2a8 

8a 

49 

03 

8d 

00 

dd 

8a 

18 

93 

c4f8 

o3 

ad 

fO 

c3 

8d 

f5 

c3 

ad 

39 

c748 : 

ae 

e6 

c6 

8d 

e8 

c6 

8e 

e9 

9f 

c2b0 

6a 

6a 

6a 

69 

20 

85 

fd 

69 

10 

c500 

fl 

c3 

8d 

f4 

c3 

8e 

f3 

c3 

dd 

c750 : 

c6 

ad 

e9 

c6 

fo 

07 

ad 

e8 

10 

c2b8 

20 

85 

fe 

bd 

55 

cO 

85 

ff 

84 

c508 

a2 

18 

ad 

f4 

c3 

38 

ed 

f2 

5c 

c758 : 

c6 

c9 

40 

bO 

25 

ee 

e8 

c6 

24 

c2c0 

60 

eO 

04 

90 

e9 

60 

a9 

lb 

22 

c510 

c3 

a8 

ad 

f3 

c3 

e9 

00 

90 

be 

c760 : 

dO 

03 

ee 

c9 

c6 

ad 

e8 

c6 

b6 

o2c8 

8d 

11 

dO 

a9 

15 

8d 

18 

dO 

07 

c518 

08 

8c 

f4 

c3 

8d 

f3 

c3 

38 

14 

c768 : 

ae 

e9 

c6 

ac 

ea 

c6 

20 

75 

a2 

c2d0 

a9 

03 

8d 

00 

dd 

60 

a9 

7f 

e5 

c520 

24 

18 

2e 

f9 

c3 

2e 

f8 

c3 

34 

c770 : 

c3 

bO 

Of 

ad 

e8 

c6 

ae 

e9 

58 

c2d8 

8d 

Od 

de 

a9 

35 

85 

01 

aO 

ld 

c528 

2e 

f7 

c3 

Oe 

f6 

c3 

2e 

f5 

37 

c778 : 

c6 

ac 

ea 

c6 

20 

70 

c3 

4c 

55 

c2e0 

00 

84 

fb 

a6 

fd 

86 

fc 

bl 

61 

c530 

c3 

2e 

f4 

c3 

2e 

f3 

c3 

ca 

e7 

c780 : 

51 

c7 

ad 

e5 

c6 

ae 

e6 

c6 

08 

c2e8 

fb 

49 

ff 

91 

fb 

c8 

dO 

f7 

f3 

0538 

10 

dO 

ad 

f7 

c3 

8d 

fa 

c3 

37 

c788 : 

8d 

e8 

c6 

8e 

e9 

c6 

ad 

e8 

6a 

c2f0 

e6 

fc 

e8 

e4 

fe 

dO 

fO 

a9 

b8 

c540 

ad 

f8 

c3 

8d 

fb 

c3 

ad 

f9 

94 

c790 : 

c6 

ae 

e9 

c6 

ac 

ea 

c6 

88 

4f 

c2f8 

37 

85 

01 

60 

a9 

00 

85 

fb 

e7 

c548 

c3 

8d 

fc 

c3 

ad 

22 

cO 

cd 

14 

c798 : 

cO 

ff 

fO 

03 

4c 

03 

c7 

ad 

4c 

03 OO 

a6 

fd 

86 

fc 

a8 

91 

fb 

08 

7f 

c550 

25 

cO 

dO 

09 

ad 

21 

cO 

cd 

ad 

c7a0 : 

e5 

c6 

ae 

e6 

c6 

ac 

e7 

c6 

70 

c308 

d0 

fb 

e6 

fc 

e8 

e4 

fe 

dO 

82 

c558 

24 

cO 

dO 

01 

60 

ad 

21 

cO 

aa 

c7a8 : 

8d 

e8 

c6 

8e 

e9 

c6 

8c 

ea 

Oa 

o310 

f4 

60 

aO 

00 

84 

fb 

a6 

ff 

lf 

c560 

ae 

22 

cO 

ac 

23 

cO 

20 

7b 

95 

c7b0 : 

c6 

c8 

cO 

c8 

90 

01 

60 

8c 

cf 

c318 

86 

fc 

a2 

03 

91 

fb 

c8 

dO 

e3 

c568 

c3 

ad 

ee 

c3 

30 

Oa 

ee 

21 

87 

c7b8 : 

ea 

c6 

20 

75 

c3 

90 

01 

60 

42 

c320 

fb 

e6 

fc 

ca 

10 

f6 

60 

eO 

23 

c570 

oO 

dO 

12 

ee 

22 

cO 

dO 

Od 

80 

c7c0 : 

ad 

e8 

c6 

ae 

e9 

c6 

ac 

ea 

c6 

c328 

28 

bO 

04 

c9 

19 

90 

01 

60 

bd 

0578 

ce 

21 

cO 

ad 

21 

cO 

c9 

ff 

fc 

c7c8 : 

c6 

20 

70 

c3 

ad 

e8 

c6 

dO 

12 

o330 

Oa 

Oa 

Oa 

48 

85 

fb 

a9 

00 

aa 

o580 

dO 

03 

ce 

22 

cO 

ce 

fa 

c3 

cO 

c7d0 : 

05 

ad 

e9 

c6 

fO 

lb 

ce 

e8 

f4 

C338 

85 

fc 

06 

fb 

26 

fc 

06 

fb 

97 

0588 

dO 

c2 

ad 

23 

cO 

18 

6d 

ef 

eb 

c7d8 : 

c6 

ad 

e8 

c6 

c9 

ff 

dO 

03 

6e 

c340 

26 

fc 

68 

18 

65 

fb 

85 

fb 

46 

c590 

c 3 

8d 

23 

cO 

18 

ad 

fc 

c3 

65 

c7eO : 

ce 

e9 

c6 

ad 

e8 

c6 

ae 

e9 

5d 

c348 

a9 

00 

65 

fc 

85 

fo 

8a 

65 

lf 

o598 

6d 

f9 

c3 

8d 

fc 

c3 

ad 

fb 

4l 

c7e8 : 

c6 

ac 

ea 

c6 

20 

75 

c3 

90 

76 

c350 

fb 

85 

fb 

a5 

fc 

65 

ff 

85 

c7 

c5a0 

c3 

6d 

f8 

c3 

8d 

fb 

C 3 

ad 

f3 

e7f0 : 

cf 

ad 

e5 

c6 

ae 

e6 

c6 

8d 

40 

o358 

fc 

a2 

00 

al 

fb 

29 

Of 

81 

22 

c5a8 

f7 

c3 

69 

00 

8d 

fa 

c3 

4c 

34 

c7f8 : 

e8 

c6 

8e 

e9 

c6 

ad 

e9 

c6 

33 

c360 

fb 

98 

Oa 

Oa 

Oa 

Oa 

01 

fb 

58 

o5bO 

4c 

c5 

a2 

00 

8e 

f6 

c3 

ad 

92 

c800 : 

fO 

07 

ad 

e8 

c6 

c9 

40 

bO 

19 

0368 

81 

fb 

60 

48 

a9 

00 

fO 

08 

76 

c5b8 


8d 

£5 c3.Se 

f4 

c3 

ba 

c808 : 

25 

ee 

e8 

c6 

dO 

03 

ee 

e9 

6c 

c370 

48 

a9 

01 

dO 

03 

48 

a9 

ff 

00 

o5cO 

8e f3 

c3 

‘a2 18 4d 

'.4 

c3 

d7 

c810 : 

c6 

ad 

e8 

c6 

ae 

e9 

c6 

ac 

6e 

c378 

85 

02 

68 

cO 

c8 

bO 

Oa 

eO 

2c 

c5c8 

38 

ed 

fO 

c3 

a8 

ad 

f3 

c3 

fb 

c818 : 

ea 

c6 

20 

75 

c3 

bO 

Of 

ad 

75 

c380 

01 

90 

07 

dO 

04 

c9 

40 

90 

56 

c5dO 

e9 

00 

90 

08 

8c 

f4 

c3 

8d 

79 

c820 : 

e8 

c6 

ae 

e9 

c6 

ac 

ea 

c6 

5f 

c388 

01 

60 

48 

29 

f8 

85 

fb 

8a 

bl 

c5d8 

f3 

03 

38 

24 

18 

2e 

f9 

c3 

a2 

c828 : 

20 

70 

c3 

4c 

fd 

c7 

ad 

e5 

9b 

c390 

18 

65 

fd 

85 

fc 

98 

4a 

4a 

dd 

o5eO 

2e 

f8 

c3 

2e 

f7 

c3 

Oe 

f6 

05 

c830 : 

c6 

ae 

e6 

c6 

8d 

e8 

c6 

8e 

38 

0398 

4a 

aa 

bd 

59 

cO 

18 

65 

fb 

2c 

c5e8 

03 

2e 

f5 

c3 

2e 

f4 

c3 

2e 

ae 

C838 : 

e9 

c6 

ac 

ea 

c6 

4c 

bl 

c7 

32 

c3a0 

85 

fb 

bd 

72 

cO 

65 

fc 

85 

17 

c5fO 

f3 

03 

ca 

10 

dO 

ad 

f7 

c3 

5b 

c840 : 

00 

00 

00 

00 

00 

00 

00 

00 

41 

c3a8 

fc 

98 

29 

07 

65 

fb 

85 

fb 

60 

o5f8 

8d 

fa 

c3 

ad 

f8 

c3 

8d 

fb 

85 

c848 : 

00 

00 

00 

00 

00 

00 

00 

00 

49 

c3b0 

a9 

7f 

8d 

Od 

de 

a9 

35 

85 

19 

c 600 

c3 

ad 

f9 

c3 

8d 

fc 

c3 

ad 

bc 

c850 : 

8d 

68 

c8 

8c 

69 

c8 

8e 

4f 

8b 

c3b8 

01 

68 

29 

07 

49 

07 

aa 

bd 

Oc 

c608 

23 

cO 

cd 

26 

cO 

dO 

01 

60 

lb 

c858 : 

c8 

ad 

3c 

cO 

c9 

28 

bO 

Oc 

d7 

o3c0 

8b 

cO 

aO 

00 

a6 

02 

30 

16 

3b 

c6l0 

ad 

21 

cO 

ae 

22 

cO 

ac 

23 

75 

c860 : 

ad 

3d 

cO 

c9 

19 

bO 

05 

ad 

9c 

o3c8 

dO 

Ob 

31 

fb 

51 

fb 

91 

fb 

ld 

06 I 8 

cO 

20 

7b 

c3 

ad 

23 

cO 

18 

67 

c868 : 

ff 

ff 

dO 

05 

a9 

00 

85 

02 

fO 

c3d0 

a9 

37 

85 

01 

60 

11 

fb 

91 

38 

c620 

6d 

ef 

c3 

8d 

23 

cO 

ce 

fa 

91 

c870 : 

60 

ee 

68 

c8 

dO 

03 

ee 

69 

2e 

c3d8 

fb 

a9 

37 

85 

01 

60 

31 

fb 

f6 

c628 

o3 

dO 

de 

ad 

ee 

e3 

30 

Oa 

22 

c878 : 

c8 

ac 

4f 

c8 

10 

07 

c9 

20 

24 

c3e0 

fO 

06 

a9 

37 

85 

01 

38 

60 

27 

c630 

ee 

21 

cO 

dO 

12 

ee 

22 

cO 

9c 

c880 : 

dO 

38 

4c 

85 

c9 

48 

a9 

00 

b6 

c3e8 

a9 

37 

85 

01 

18 

60 

00 

00 

33 

c638 

dO 

Od 

ce 

21 

cO 

ad 

21 

cO 

e6 

c888 : 

85 

14 

85 

15 

ac 

4f 

c8 

ad 

df 

c3f0 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

c640 

c9 

ff 

dO 

03 

ce 

22 

cO 

18 

cf 

c890 : 

3c 

cO 

18 

65 

14 

aa 

ad 

3d 

a7 

c3f8 

00 

00 

00 

00 

00 

a9 

01 

dO 

eb 

c648 

ad 

fc 

c3 

6d 

f9 

c3 

8d 

fc 

00 

c898 : 

cO 

18 

65 

15 

20 

27 

c3 

a5 

f6 

c400 

02 

a9 

00 

85 

02 

a2 

ff 

ad 

18 

o650 

c3 

ad 

fb 

c3 

6d 

f8 

c3 

8d 

2a 

c8a0 : 

14 

cd 

3e 

cO 

fO 

04 

e6 

14 

35 

c408 

25 

cO 

cd 

22 

cO 

fO 

04 

bO 

4a 

c658 

fb 

c3 

ad 

f7 

c3 

69 

00 

8d 

42 

c8a8 

dO 

e2 

a5 

15 

cd 

3f 

cO 

fO 

bl 

c4l0 

Oo 

90 

Oc 

ad 

24 

cO 

cd 

21 

df 

c 660 

fa 

c3 

4c 

07 

c6 

a9 

01 

dO 

8f 

c8b0 

08 

a9 

00 

85 

14 

e6 

15 

dO 

ac 

c4l8 

cO 

90 

04 

fO 

01 

e8 

e8 

8e 

58 

0668 

02 

a9 

00 

85 

02 

ad 

2d 

cO 

b3 

c8b8 

d3 

68 

c9 

40 

90 

12 

c9 

60 

bb 

c420 

ee 

c3 

a2 

ff 

ad 

26 

cO 

cd 

43 

c670 

ae 

2e 

cO 

ac 

2f 

cO 

8d 

21 

6c 

c8c0 

90 

Ob 

c9 

80 

90 

04 

c9 

cO 

2a 

c428 

23 

cO 

90 

04 

fO 

01 

e8 

e8 

de 

c678 

cO 

8e 

22 

cO 

8c 

23 

cO 

ad 

60 

c8c8 

90 

03 

38 

e9 

40 

38 

e9 

40 

13 

c430 

8e 

ef 

c3 

fO 

67 

ad 

ee 

o3 

ec 

c 680 

30 

cO 

ae 

31 

cO 

ac 

2f 

cO 

92 

c8d0 

85 

f9 

a9 

00 

85 

fa 

a2 

03 

7d 

o438 

fO 

62 

ad 

24 

cO 

38 

ed 

2.1 

11 

c688 

8d 

24 

cO 

8e 

25 

cO 

8c 

26 

00 

c8d8 

06 

09 

26 

fa 

ca 

dO 

f9 

ad 

3a 

c440 

cO 

8d 

fO 

o3 

ad 

25 

cO 

ed 

5e 

c690 

oO 

20 

05 

c4 

ad 

30 

cO 

ae 

f7 

c 8 e 0 

40 

cO 

29 

01 

Oa 

Oa 

Oa 

69 

d7 

c448 

22 

cO 

8d 

fl 

03 

ad 

ee 

o3 

59 

c698 

31 

cO 

ac 

32 

cO 

8d 

21 

CO 

19 

c8e8 

dO 

65 

fa 

85 

fa 

78 

a9 

33 

5b 

c450 

10 

15 

ad 

fO 

03 

49 

ff 

18 

2b 

c 6 a 0 

8e 

22 

cO 

8c 

23 

cO 

20 

05 

c4 

c8f0 

85 

01 

aO 

07 

bl 

f9 

99 

40 

dl 

c458 

69 

01 

8d 

fO 

c3 

ad 

fi 

c3 

bc 

c6a8 

c4 

ad 

2d 

cO 

ae 

2e 

cO 

ac 

5f 

c8f8 

c8 

88 

10 

f8 

a9 

37 

85 

01 

94 

c460 

49 

ff 

69 

00 

8d 

fl 

03 

ad 

d6 

c6b0 

2f 

cO 

8d 

21 

cO 

8e 

22 

cO 

51 

c900 

58 

ad 

3c 

cO 

Oa 

Oa 

Oa 

8d 

8a 

c468 

26 

cO 

38 

ed 

23 

cO 

8d 

f2 

Oe 

c6b8 

8c 

23 

cO 

ad 

2d 

cO 

ae 

2e 

ac 

c908 

48 

c8 

a9 

00 

69 

00 

8d 

49 

7e 

c470 

c3 

ad 

ef 

c3 

10 

Ob 

ad 

f2 

74 

c6c0 

cO 

ac 

32 

cO 

8d 

24 

cO 

8e 

95 

c910 

c8 

ad 

3d 

cO 

Oa 

Oa 

Oa 

8d 

4a 

c478 

c3 

49 

ff 

18 

69 

01 

8d 

f2 

9d 

c6c8 

25 

cO 

8c 

26 

cO 

20 

05 

c4 

eO 











c480 

c3 

ee 

fO 

c3 

dO 

03 

ee 

fl 

34 

c6d0 

ad 

30 

cO 

ae 

31 

cO 

ac 

32 

cb 











c488 

03 

ee 

f2 

c3 

ad 

fl 

C 3 

dO 

12 

c6d8 

cO 

8d 

21 

cO 

8e 

22 

cO 

8c 

d5 

Llsting 

1 . » 

OBJEKTCODE SCOOO«. 

Bit- 

c490 

63 

ad 

fO 

c3 

cd 

f2 

c3 

bO 

63 

c6e0 

23 

cO 

4c 

05 

c4 

00 

00 

00 

63 

te mit dem 

MSE 

Seite 

159) eingeben 
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GRAFIK-LISTINGS 


C 64 


c918 : 

: 4c 

c 8 

ad 

3f 

cO 

29 

03 

8 d 

98 

c920 : 

: 4e 

e 8 

a9 

00 

85 

15 

a9 

07 

f 2 

c928 : 

: 85 

14 

ad 

48 

c 8 

8 d 

4a 

c 8 

df 

c930 : 

: ad 

49 

c 8 

8 d 

4b 

c 8 

a4 

15 

ld 

c938 : 

: a 6 

14 

b9 

40 

c 8 

3d 

8 b 

cO 

85 

c940 : 

: 08 

68 

29 

02 

49 

02 

85 

02 

c 6 

c948 : 

: ad 

3e 

cO 

29 

03 

8 d 

4d 

c 8 

cd 

C950 : 

: ad 

4a 

c 8 

ae 

4b 

c 8 

ac 

4c 

70 

c958 : 

: c 8 

20 

7b 

c3 

ee 

4a 

c 8 

dO 

8 e 

c960 ; 

: 03 

ee 

4b 

c 8 

ce 

4d 

c 8 

10 

61 

c968 : 

: e7 

06 

14 

10 

c9 

ee 

4c 

c 8 

90 

C970 : 

: ce 

4e 

c 8 

10 

bl 

e 6 

15 

ad 

9b 

c978 

: 3f 

cO 

29 

03 

8 d 

4e 

c 8 

a5 

7c 

c980 

: 15 

c9 

08 

d 0 

al 

ae 

3c 

cO 

98 

c988 

: e 8 

8 a 

18 

6 d 

3e 

cO 

8 d 

3c 

02 

c990 

: cO 

4c 

59 

c 8 

00 

00 

00 

00 

e 6 

c998 

: 00 

00 

00 

48 

a9 

01 

dO 

03 

8 d 

c9a0 

: 48 

a9 

00 

85 

02 

68 

8 d 

94 

30 

c9a8 

: c9 

8 e 

95 

c9 

8 c 

96 

c9 

ee 

d9 

c9b0 

: 44 

cO 

ae 

44 

cO 

eO 

02 

b 0 

05 

c9b8 

: 01 

60 

bd 

93 

cO 

8 d 

97 

c9 

35 

c9c0 

: bd 

93 

cl 

8 d 

98 

c9 

ca 

8 e 

89 

c9c8 

: 9a 

c9 

ac 

44 

cO 

20 

a2 

b3 

f9 

c9d0 

: 20 

0c 

bc 

aO 

4b 

20 

a 2 

b3 

el 


c9d8 : 

: 20 

2b 

ba 

20 

fe 

ba 

20 

fe 

85 

o9e0 : 

: ba 

20 

9b 

bc 

a9 

00 

8d 

99 

2d 

c9e8 ; 

; c9 

ae 

99 

c9 

38 

ad 

97 

c9 

8b 

c9f0 : 

: fd 

93 

cO 

85 

14 

ad 

98 

c9 

3c 

c9f8 : 

: fd 

93 

cl 

85 

15 

ae 

9a 

c9 

a5 

caOO : 

; bd 

93 

cl 

c5 

15 

fO 

05 

90 

be 

ca08 : 

: Od 

4c 

13 

ca 

bd 

93 

cO 

c5 

60 

calO : 

: 14 

90 

03 

ce 

9a 

c9 

18 

ad 

bb 

cal8 : 

: 9a 

c9 

6d 

96 

c9 

a8 

18 

ad 

63 

ca 20 : 

: 94 

c9 

6d 

99 

c9 

85 

14 

ad 

9c 

ca28 : 

: 95 

c9 

69 

00 

85 

15 

a5 

14 

bc 

ca30 . 

: a6 

15 

20 

7b 

c3 

38 

ad 

96 

ba 

ca38 : 

: c9 

ed 

9a 

c9 

a8 

a5 

14 

a6 

2d 

ca40 : 

: 15 

20 

7b 

c3 

18 

ad 

96 

c9 

99 

ca48 : 

: 6d 

9a 

c9 

a8 

38 

ad 

94 

c9 

61 

ca50 : 

; ed 

99 

c9 

85 

14 

ad 

95 

c9 

c5 

ca58 : 

: e9 

00 

85 

15 

a5 

14 

a6 

15 

05 

ca60 : 

: 20 

7b 

c3 

38 

ad 

96 

c9 

ed 

c8 

ca68 : 

: 9a 

c9 

a8 

a5 

14 

a6 

15 

20 

dl 

ca70 : 

: 7b 

c3 

18 

ad 

94 

c9 

6d 

9a 

Ob 

ca78 : 

: c9 

85 

14 

ad 

95 

c9 

69 

00 

0c 

ca80 : 

: 85 

15 

18 

ad 

96 

c9 

6d 

99 

ec 

ca88 : 

: c9 

a8 

a5 

14 

a6 

15 

20 

7b 

lc 

ca90 : 

: c3 

38 

ad 

96 

c9 

ed 

99 

c9 

b3 


ca98 

a8 

a5 

14 

a6 

15 

20 

7b 

c3 

b5 

caaO 

38 

ad 

94 

c9 

ed 

9a 

c9 

85 

f3 

caa8 

14 

ad 

95 

c9 

e9 

00 

85 

15 

10 

cabO 

18 

ad 

96 

c9 

6d 

99 

c9 

a8 

9a 

cab8 

a5 

14 

a6 

15 

20 

7b 

c3 

38 

11 

cacO 

ad 

96 

c9 

ed 

99 

c9 

a8 

a5 

be 

cae8 

14 

a6 

15 

20 

7b 

c3 

18 

ad 

Oa 

cadO 

99 

c9 

69 

01 

8d 

99 

c9 

c5 

21 

cad8 

65 

fO 

03 

4c 

e9 

c9 

60 

a2 

b3 

caeO 

01 

dO 

02 

a2 

00 

86 

02 

85 

66 

cae8 

14 

84 

15 

aO 

04 

bl 

14 

10 

d6 

cafO 

01 

60 

aO 

00 

bl 

14 

8d 

21 

7e 

caf8 

cO 

c8 

bl 

14 

8d 

22 

cO 

c8 

8a 

cbOO 

bl 

14 

8d 

23 

cO 

c8 

bl 

14 

c4 

cb08 

8d 

24 

cO 

c8 

bl 

14 

8d 

25 

2d 

cblO 

cO 

c8 

bl 

14 

8d 

26 

cO 

c8 

c2 

cbl8 

a5 

14 

18 

69 

03 

85 

14 

a5 

f3 

cb20 

15 

69 

00 

85 

15 

20 

05 

c4 

8b 

cb28 

4c 

eb 

ca 

ff 

ff 

ff 

ff 

ff 

lc 


Llsting 1. »Objektcode $c000<< enthält 
die Grafik-Routinen für Glga-Ass. 
Bitte mit dem MSE eingeben 
(Eingabehinweise auf Seite 159). 


60000;********************************* 
60010;* 

60020;* 

60030;* 

60040;* 

60050;* 

60060 ;* 

60070;********************************* 
60080; 

60090;- 

60100; dieses file ist einem giga-ass 
60110 ; quelltext, der auf die graflk- 
60120; routinen zugreift, mit dem m- 
60130; befehl anzuhaengen. 

60140; 

60150; den makros muss ueber die basis 
60160; adresse ba mitgeteilt werden, 
60170; an welcher stelle im Speicher 
60180; die grafik-routinen liegen. 
60190; 

60200; die makros selbst greifen nur 
60210 ; ueber die die grafik-routinen 
60220; einleitende jump-table auf die 
60230; routinen zu. 

60240; 

60250;- 

60260; wichtig: zwischen Makroname und 
Parametern MUSS 

60270; ein <SHIFTSPACE> stehen. 

60280 ;. 

60290; 

60300; zu jeder grafik-routine mit 
60310; Parametern gibt es zwei makros: 
60320; 

60330; a) ein makro, der als Parameter 
60340; die aktuellen Parameter 

60350; selbst als wert-parameter 

60360; erhaelt 

60370; (call by value) 

60380; 

60390; b) ein makro, der als Parameter 
60400; diejenigen adressen mltge- 

60410; teilt bekommt, an denen die 
60420; aktuellen parameter stehen 

60430; (call by reference) 

60440; 

60450; makros vom typ b) unterscheiden 


grafik-makros merge file 
zu den 

giga-ass grafik-routinen 


60460; sich von denjenigen vom typ a) 
60470; durch ein angehaengtes i 
60480; (z.b. linei, framei, eirclei), 
60490; welches fuer indirekte 
60500; parameter-angabe steht. 

60510; 

60520;- 

60530; :• ILIO P 

60540.global ba=$c000 
60550; 

60560;=============================== 

60570; grafik-routinen uebergreifende 
60580; makros 

60590;=============================== 

60600; 

60610.macro spacewait 

60620 lda 203 

60630 cmp #$3c 

60640 bne *-4 

60650 lda 203 

60660 cmp #$3c 

60670 beq *-4 

60680.endmacro 

60690.macro bordercolor 

60700 lda #color 

60710 sta $d020 

60720.endmacro 

60730.macro backgroundcolor 

60740 lda # color 

60750 sta $d021 

60760.endmacro 

60770.macro interrupton 

60780 lda #$81 

60790 sta $dc0d 

60800.endmacro 

60810 .macro lcv xcval,yeval 

60820 lda # <(xoval) 

60830 ldx # >(xcval) 

60840 ldy #ycval 

60850.endmacro 
60860 .macro lei xcadr.ycadr 
60870 lda xcadr 

60880 ldx xcadr+1 

60890 ldy ycadr 

60900.endmacro 


60910.macro mev xcval,ycval.adr 
60920 lcvxcval,ycval 

60930 sta adr 

60940 stx adr+1 

60950 sty adr+2 

60960.endmacro 

60970.macro mci xcadr,ycadr,adr 
60980 lda xcadr 

60990 ldx xcadr+1 

61000 ldy ycadr 

61010 sta adr 

61020 stx adr+1 

61030 sty adr+2 

61040.endmacro 
61050; 

61060; 

61070;= = = = = = = = = = s = s = = = = = = = = = = = = ss = =; 
61080 ; makros zum aufruf der 
61090; grafik-routinen 
61100;============================= 

61110 ; 

61120 .macro page val 
6113 0 ldx #val 

61140 jsr ba+$00 

61150.endmacro 
61160 .macro page iadr 
61170 ldx adr 

61180 jsr ba+$00 

61190.endmacro 
61200.macro design val 

61210 ldx #val 

61220 Jsr ba+$03 

61230.endmacro 
61240.macro design iadr 

61250 ldx adr 

61260 jsr ba+$03 

61270.endmacro 
61280.macro off 
61290 Jsr ba+$06 

61300.endmacro 
61310.macro inv 
61320 jsr ba+$09 

61330 interrupton 

61340.endmacro 
61350.macro clear 
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GRAFIK-LISTINGS 


61360 j sr ba+$Oc 

61370.endmacro 
61380.raacro oolor val 
61390 Ida ■# val 

61400 jsr ba+$0f 

61410.endmacro 
61420.macro colori adr 

61430 Ida adr 

61440 jsr ba+$0f 

61450.endmacro 
61460.macro setcol lnval,clval.coval 
Ida 
ldx 
ldy 


# lnval 
#clval 
#coval 


jsr ba +$12 


61470 
61480 
61490 
61500 

61510.endmacro 
61520.macro setcoli lnadr,cladr,coadr 
61530 Ida lnadr 

61540 ldx cladr 

61550 ldy coadr 

61560 jsr ba+$12 

61570.endmacro 

61580;. 

61590; einzelpunkt makros 

61600;.. 

61610 .macro cleardot xcval,ycval 
61620 lcv xcval,ycval 

61630 jsr ba+$15 

61640 interrupton 

61650.endmacro 

61660.macro cleardoti xcadr,ycadr 
61670 lei xcadr,ycadr 

61680 jsr ba+$15 

61690 interrupton 

61700.endmacro 
61710.macro set xcval,ycval 
61720 lcv xcval,ycval 

61730 j sr ba+$18 

61740 interrupton 

61750.endmacro 
61760.macro seti xcadr,ycadr 
61770 lei xeadr,yeadr 

61780 jsr ba+$18 

61790 interrupton 

61800.endmacro 
61810.macro test xeval,yeval 
61820 lcv xcval,ycval 

61830 j sr ba+$lb 

61840 interrupton 

61850.endmacro 

61860.macro testi xcadr.ycadr 
61870 lei xcadr.ycadr 

61880 jsr ba+$lb 

61890 interrupton 

61900.endmacro 

61910.macro access xcval,ycval 

61920 lcv xcval.ycval 

61930 jsr ba+$le 

61940 interrupton 

61950.endmacro 

61960.macro accessi xcadr,ycadr 
61970 lei xcadr.ycadr 

61980 j sr ba+$le 

61990 interrupton 

62000 .endmacro 


62010;.-. 

62020; makros fuer mehrere punkte 

62030;. 

62040.macro line x0val,y0val,xlval,ylval 
62050 mev xOval,yOval,ba+$21 

62060 mev xlval,ylval,ba+$24 

62070 jsr ba+$27 

62080 interrupton 

62090.endmacro 

62100 .macro linei x0adr,y0adr,xladr,yladr 
62110 mci x 0 adr,y 0 adr,ba +$21 

62120 mci xladr,yladr,ba+$24 

62130 J sr ba+$27 


62140 interrupton 

62150.endmacro 

62160.macro linec x0val,y0val,xlval,ylval 
62170 incv xOval,yOval,ba+$21 

62180 mev xlval,ylval,ba+$24 

62190 jsr ba+$2a 

62200 interrupton 

62210.endmacro 


62220.macro lineic x0adr,y0adr,xladr,yladr 

62230 mci x0adr,y0adr,ba+$21 

62240 mci xladr,yladr,ba+$24 

62250 jsr ba+$2a 

62260 interrupton 

62270.endmacro 

62280 .macro frame x0val,y0val,xlval,ylval 
62290 mev xOval,yOval,ba+$2d 

62300 mev xlval,ylval,ba+$30 

62310 jsr ba+$33 

62320 interrupton 

62330.endmacro 

62340.macro framei x0adr,y0adr,xladr,yladr 
62350 mci x0adr,y0adr,ba+$2d 

62360 mci xladr,yladr,ba+$30 

62370 jsr ba+$33 

62380 interrupton 

62390.endmacro 

62400.macro cframe xOval,yOval,xlval,ylval 
62410 mev xOval,yOval,ba+$2d 

62420 mev xlval,ylval,ba+$30 

62430 jsr ba+$36 

62440 interrupton 

62450.endmacro 

62460.macro cframei x0adr,y0adr,xladr,yladr 
62470 mci x0adr,y0adr,ba+$2d 

62480 mci xladr,yladr,ba+$30 

62490 jsr ba+$36 

62500 interrupton 

62510.endmacro 


S-*6R OflLI 




?/>.macro fill xcval,yoval 
530 lcv xeval,ycval 

62540 jsr ba+$39 

62550 interrupton 

62560. endmacro 

62570.macro filli xcadr,ycadr 
62580 lei xcadr,ycadr 

62590 _ jsr ba+$39 

62600 interrupton 


62610.endmacro 


62620.macro text adr, line, column, expx, expy, 
case,textcolor 


62630 

Ida 

#column 

62640 

sta 

ba+$3c 

62650 

Ida 

#line 

62660 

sta 

ba+$3d 

62670 

Ida 

#expx 

62680 

sta 

ba+$3e 

62690 

Ida 

#expy 

62700 

sta 

ba+$3f 

62710 

Ida 

#case 

62720 

sta 

ba+$40 

62730 

Ida 

# <(adr) 

62740 

ldy 

# > (adr) 

62750 

ldx 

#textcolor 

62760 

Jsr 

ba+$4l 

62770 

interrupton 

62780.endmacro 




62790.macro texti iadr, iline, icolumn, iexpx, lexpy, 
icase, itextcolor 


62800 

Ida icolumn 

62810 

sta ba+$3c 

62820 

Ida iline 

62830 

sta ba+$3d 

62840 

Ida iexpx 

62850 

sta ba+$3e 

62860 

Ida iexpy 

62870 

sta ba+$3f 

62880 

Ida icase 

62890 

sta ba+$40 


Listing 2. »Makro Merge- 
File«. Bitte mit dem Giga- 
Ass eingeben. Wichtig: 
Zwischen Makro-Name 
und Parametern muß 
<SHIFT SPACE > stehen. 
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62900 lda iadr 

62910 ldy iadr+1 

62920 ldx itextcolor 

62930 jsr ba+$4l 

62940 interrupton 

62950.endmacro 

62960.macro circle xcval,ycval,radval 

62970 lda #radval 

62980 sta ba+$44 

62990 lcv xcval.ycval 

63000 jsr ba+$45 

63010 interrupton 

63020.endmacro 

63030.macro circlei xcadr,ycadr,radadr 

63040 lda radadr 

63050 sta ba+$44 

63060 loi xcadr,ycadr 

63070 jsr ba+$45 

63080 interrupton 

63090.endmacro 

63100 .maoro coircle xcval,ycval,radval 

63110 lda # radval 

63120 sta ba+$44 

63130 lcv xcval.ycval 

63140 Jsr ba+$48 

63150 interrupton 

63160.endmacro 

63170.macro ccirclei xcadr,ycadr,radadr 

63180 lda radadr 

63190 sta ba+$44 

63200 lei xcadr,ycadr 

63210 jsr ba+$48 

63220 interrupton 

63230.endmacro 

63240.macro lines pointer 

63250 lda # <(pointer) 

63260 ldy # >(pointer) 

63270 jsr ba+$4b 

63280 interrupton 

63290.endmacro 
63300.macro linesi ipointer 

63310 lda ipointer 

63320 ldy ipointer+1 

63330 jsr ba+$4b 

63340 interrupton 

63350.endmacro 
63360.macro linesc pointer 
63370 lda # < (pointer) 

63380 ldy # >(pointer) 

63390 Jsr ba+$4e 

63400 interrupton 

63410.endmacro 
63420.macro linesic ipointer 
63430 lda ipointer 

63440 ldy ipointer+1 

63450 Jsr ba+$4e 

63460 interrupton 

63470.endmacro 


G4SR 


Listing 2. 

»Makro Merge-File« 
Bitte mit Giga-Ass 
eingeben. 


1 Dn lIi 


24;* mit dem m befehl an diesen * 

25;# quelltext angehaengt worden * 

26 ;* sein. * 

27;* * 

28;********************************* 
100.base $7000 
110.Start demo 


120 demo 

130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290; 

300 
310 
320 
330 
340 
350 
360 
370; 

380 

390 

400 

410; 3. 
420 


10 ;********************************* 
11 »* * 

12;* giga-ass grafik-routinen demo * 

13;*.* 

14;* * 

15;* achtung: vor assemblieren * 
16;* muessen zwei Voraussetzungen * 
17;* erfuellt sein: * 

18 <* * 
19;* 1. der objektoode der grafik- * 
20;* routinen muss in den Speicher * 
21;* geladen worden sein. * 

22 ;* * 
23;* 2. das makro merge-file muss * 


450 

460 

470 

480 

490exit 

500 

510 

520 

530tl 

540t2 

550t3 

560t4 

570subr 

580 

5901oopl 

600 

610 

620 

630 

640 

6501oop2 

660 

670 

680 

690 

700xc 

710yc 

720rad 


design 3 
clear 
color $bf 

text tl,6,9,1,3.0,0 

page 3 

border $f 

frame 35,35,290,90 

frame 40,40,285,85 

fill 37,64 

fill 287,64 

text t 2 ,13, 6 ,0,1,1,0 

text t3,17,6,0,0,1,0 

text t4,19,7,0,0,1,0 

spaeewait 

border $c 

clear 

color $c 

1. aufruf 

lda #160 
sta xc 
lda #0 
sta xc+1 
lda #100 
sta yc 
jsr subr 

2. aufruf 

lda #228 
sta yc 
jsr subr 
aufruf 

lda #54 
sta xc 
lda #1 
sta xc+1 
lda #10 
sta yc 
jsr subr 
off 

lda #0 
sta 198 
rts 

.text "circle demo 
.text "Giga-Ass Grafik-Routinen Demo 
• text "Zum Abbruch <SPACE> druecken! 
.text "Jetzt weiter mit <SPACE>... 
lda #2 
sta rad 

circlei xc,yc,rad 
exitkey 
lnc rad 
bne loopl 
lda #2 
sta rad 

ccirclei xc,yc,rad 
exitkey 


lnc rad 
bne loop2 
rts 
.ds 2 
.ds 1 
.ds 1 


730.global exitadr=exit 
740.macro exitkey 


750 

760 

770 

780 

790 

800 

810 cont 

820.endmacro 


lda 203 

emp #$3c 
bne cont 
pla 
pla 

jmp exitadr 


Listing 3. 

»Circle Demo« demon¬ 
striert den Befehl zum 
Zeichnen von Kreisen 
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GRAFIK-LISTINGS 


Wechselstube für Bilder 


»Pic-Changer« konvertiert die Bilder aller gängi¬ 
gen Malprogramme. Dies gilt für den Multicolor- 
und den Hires-Modus des C64. Die Formate von 

B ekanntlich unterscheidet der C64 zwischen einem 
Multicolor- und einem Hires-Grafik-Modus. Oft 
wünscht man sich das Umsetzen der Bilder von der ei¬ 
nen zur anderen Darstellungsart, zum Beispiel für den Aus¬ 
druck einer Hardcopy. Ein anderes Problem bei Mal- und 
Zeichenprogrammen sind die unterschiedlichen Formate, 
mit denen Bilder gespeichert werden. Diese erschweren 
es, mit dem einen Programm erstellte Bilder mit einem an¬ 
deren zu bearbeiten. »Pic-Changer« (Listing 1) bietet bei 
diesen Problemen ausgezeichnete Hilfestellung. Das Pro¬ 
gramm ist dank einer einfachen Menü-Steuerung sehr 
leicht zu bedienen und erklärt sich weitgehend selbst. Wei¬ 
tere hilfreiche Eigenschaften sind ein zusätzliches Menü 
für Disk-Operationen sowie das automatische Abfangen 
von Fehlbedienungen, zum Beispiel bei der Verwendung 
ungültiger Dateinamen. Das Programm »Pic-Changer« ist 
vollständig in Maschinensprache geschrieben und ist mit 
dem MSE (Hinweise auf Seite 159) einzugeben. 



Bild 1. Das Hauptmenü von »Pic-Changer« ist die Schalt¬ 
zentrale unserer »Bild-Wechselstube«. Die Formate ver¬ 
schiedener Grafik-Programme wandelt das Programm um. 

Nach dem Laden mit »LOAD " PIC-CHANGER * ,8,1« und 
anschließendem Starten mit RUN erscheint das Hauptme¬ 
nü (Bild 1), von dem aus die verschiedenen Funktionen auf¬ 
gerufen werden. Die einzelnen Menüpunkte lassen sich so¬ 
wohl mit dem Joystick (in Port 1 oder 2) als auch mit den 
Cursor-Tasten anwählen. Nach Druck auf den Feuerknopf, 
auf die SPACE-Taste oder auf < RETURN > werden die 
Funktionen ausgeführt. 

Befehle des Houptmenüs 


Bild laden 

Bevor Sie ein Bild bearbeiten können, müssen Sie es in 
den Arbeitsspeicher laden. Als Untermenü erhalten Sie zu¬ 
nächst eine Liste der verfügbaren Bildformate, die durch 
die Namen der jeweiligen Malprogramme charakterisiert 
werden. Im einzelnen sind dies: 

Koalapainter, 

Blazing Paddies, 

Paint Magic (siehe 64’er Sonderheft 23), 

Doodle, 

Hi-Eddi (farbig), 

Art Studio und Advanced Art Studio sowie 
Standard. 


Ausgangsbild und Zielbild sind frei wählbar. End¬ 
lich können Sie fremde Bilder mit Ihrem Lieb¬ 
lingsprogramm bearbeiten. 

Das Format »Standard« speichern unter anderem Hi- 
Eddi (schwarz/weiß) und Starpainter, außerdem Printfox im 
nicht komprimierten Modus (Bilder, die mit »0:name« abge¬ 
speichert wurden). Das Programm fragt nun nach dem Na¬ 
men des Grafik-Files. Hat man aus Versehen das falsche 
Format angegeben, so ist bei dieser Frage nur 
< RETURN > zu drücken, danach kann neu gewählt wer¬ 
den. Wenn Sie den Namen des Bildes nicht mehr genau 
wissen, können Sie über den Menüpunkt »Directory« das 
Inhaltsverzeichnis der eingelegten Diskette auflisten. Maxi¬ 
mal 20 Einträge erscheinen auf dem Bildschirm, danach 
wird durch Tastendruck oder Feuerknopf (am Joystick) wei¬ 
tergeblättert. Selbstverständlich dürfen Sie bei der Angabe 
des Namens auch die bekannten »Joker« <?> und < * > 
benutzen. Diese ersetzen zum Beispiel auf einfache Weise 
das bei Koalapainter verwendete Grafikzeichen am Na¬ 
mensanfang. Das jeweils geladene Bild wird durch 
<SPACE> angezeigt, mit < RETURN > oder Feuerknopf 
gelangt man wieder ins Hauptmenü. 

Bild abspeichern 

Alle geladenen Bilder lassen sich in einem beliebigen an¬ 
deren Format speichern (Auswahl wie bei »Bild laden«). Da¬ 
bei ist zu beachten, daß bei einem Wechsel von Multicolor- 
zu Hires-Bild oder umgekehrt erst der Menüpunkt »Bild 
konvertieren« ausgeführt werden sollte. Da die verschiede¬ 
nen : 'ormate unterschiedliche File-Längen verwenden, 
können bei einem Formatwechsel Farbinformationen verlo¬ 
rengehen, zum Beispiel bei einem Abspeichern im Paint- 
Magic-Format. Aber auch beim Konvertieren gehen in eini¬ 
gen Fällen Informationen verloren. 

Bild retten 

Das aktuelle Bild wird »gerettet«, das heißt, im Hinter¬ 
grund festgehalten. Es kann später durch die Funktion 
»Bild zurückholen« wieder verwendet werden. Diese Siche¬ 
rung sollte immer vor einer Konvertierung von Multicolor- 
zu Hires-Bildern erfolgen. Ist das erzielte Ergebnis unbe¬ 
friedigend, kann man danach ohne erneutes Laden ein an¬ 
deres Konvertierungs-Verfahren wählen. 

Bild zurückholen 

Wurde vorher ein Bild »gerettet«, so läßt es sich hiermit 
wieder zurückhoien. Das aktuelle Bild wird bei diesem Vor¬ 
gang durch das »gerettete« Bild ersetzt beziehungsweise 
überschrieben. 

Bild ansehen 

Während nach »Bild laden« das aktuelle Bild automa¬ 
tisch angezeigt wird, gestattet dieser Menüpunkt, zu jedem 
späteren Zeitpunkt in den Grafikbildschirm zurückzuschal¬ 
ten. Mit <SPACE>, <RETURN> oder Feuerknopf ge¬ 
langt man wieder zum Hauptmenü. 

Bild konvertieren 

Dies ist der umfangreichste und auch wichtigste Teil von 
»Pic-Changer«. Zwei weitere Untermenüs sind hier wähl¬ 
bar, deren Bedienung mit der des Hauptmenüs identisch 
ist. Sie gelangen von den Untermenüs auch jederzeit in das 
Hauptmenü zurück. Das Konvertieren von Bildern ist im¬ 
mer dann angebracht, wenn Multicolor-Bilder als Hires- 
Bilder gespeichert werden sollen oder umgekehrt (zum 
Beispiel ein Paint Magie-Bild in eine Standard-Hires- 
Grafik). Beim Konvertieren von »Multi« zu »Hires« stehen 
vier verschiedene Verfahren zur Verfügung: 
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»Multi — Hires 1« 

Das Video-RAM wird hier mit einem festen Wert über¬ 
schrieben, Dadurch entstehen allerdings Streifen. 

»Multi — Hires 2« 

Zusätzlich zu dem ersten Verfahren wird die Bitmap hier 
nach zwei aufeinanderfolgenden, gleichen Bytes durch¬ 
sucht. Werden diese gefunden, so werden die geraden Bits 
des zweiten Byte mit den ungeraden Bits vertauscht. Da¬ 
durch verschwinden die Streifen. Das Ergebnis ist ver¬ 
gleichbar mit dem des T-Befehls beim »Hardmaker« (64'er 
Ausgabe 24). 

»Multi — Hires 3« 

Bei diesem Verfahren wird den Farben ein Muster zuge¬ 
ordnet. Von zwei Byte werden jeweils zwei übereinanderlie¬ 
gende Bits untersucht. Zu den zweimal 2 Bit (Nummern 00, 
01, 10, 11) werden die entsprechenden Farben aus Video- 
und Farb-RAM sowie dem Hintergrund ermittelt und jeder 
Farbe gemäß ihrer Helligkeit ein Wert zugeordnet. 

Verfahren zur Bildumrechnung 


Aus diesen beiden Werten wird der Mittelwert gebildet und 
diesem ein Muster zugeordnet. Da dieses Muster 4 Bit ent¬ 
spricht, gibt es insgesamt fünf Muster, und zwar: 


0 

1 

2 

3 

4 

00 

00 

01 

11 

11 

00 

01 

10 

10 

11 


Dieses Muster wird anstelle der zweimal 2 Bit in die Bit¬ 
map eingetragen. Dadurch entstehen gleichmäßige Flä¬ 
chen, die den Farben entsprechen. Um diese Grauwert- 
Konvertierung flexibel zu halten, kann in einem eigenen 
Untermenü die Farbzuordnung geändert werden. Jeder 
der 16 zur Verfügung stehenden Farben kann ein beliebi¬ 
ges Muster (0 - 4) zugeordnet werden. Dies ist besonders 
dann nützlich, wenn zum Beispiel zwei aneinandergren¬ 
zenden Flächen dasselbe Muster zugeordnet ist, wodurch 
sie nach der Konvertierung nicht mehr zu unterscheiden 
wären. Eine weitere Anwendung ergibt sich, wenn große 
Teile des Bildes schwarz sind. Will man anschließend eine 
Hardcopy erstellen, kann man beispielsweise das Muster 
für Schwarz auf »0« setzen und dadurch das Farbband 
schonen. Hat man vor einer Konvertierung das Bild »geret¬ 


tet«, so ist es möglich, mit »Bild zurückholen«, »Bild anse- 
hen«, »Farbtabelle ändern« und »Konvertieren« so lange zu 
experimentieren, bis das Ergebnis zufriedenstellend ist. 
Mit dem Menüpunkt »Default-Farbtabelle« wird die Vorein¬ 
stellung der Farbzuordnungen übernommen. Dies ist dann 
sinnvoll, wenn nach mehreren Änderungen kein vernünfti¬ 
ges Ergebnis mehr zu erzielen ist. 

»Multi — Hires 4« 

Da bei den bisher besprochenen Verfahren stets die Far¬ 
be verlorengeht, eignen sich diese eigentlich nur für die Er¬ 
stellung einer Hardcopy. Bei diesem vierten Verfahren blei¬ 
ben dagegen die Farben erhalten. Dazu wird eine Tabelle 
der Häufigkeiten aller vier Farben eines 8x8 Punkte großen 
Ausschnittes erstellt. Diese vier Farben werden nun auf 
zwei reduziert, indem die beiden am seltensten vorkom¬ 
menden Farben auf die am häufigsten vorkommende Far¬ 
be gesetzt werden. 

Beim Konvertieren in der umgekehrten Richtung, »Hires 

- Multi«, wird die Bitkombination »11« zu »01« und »00« wird 
zu »10«, alles andere ist wie bei »Multi — Hires«. Die Farbin¬ 
formation bleibt dabei erhalten, und die Bilder sehen nach 
der Konvertierung fast genauso aus wie das Original. 

Multicolor-Modus an / Hires-Modus an 

Durch diese beiden Punkte des Hauptmenüs erfolgt le¬ 
diglich ein Wechsel des Grafik-Modus. Man erfährt da¬ 
durch, wie das Bild ohne Konvertierung aussieht. 

Disk-Menü 

Drei Funktionen stehen hier zur Verfügung, deren Einzel¬ 
heiten aus dem Floppy-Handbuch ersichtlich sind: 

- Directory - Inhaltsverzeichnis der Diskette 
anzeigen, 

- Kommando senden - Diskettenbefehle für Formatieren, 
File löschen und so weiter, 

- Fehlerkanal lesen - zeigt die aktuelle Status-Meldung. 

Rahm^-farbe 

Hier wird das aktuelle Bild angezeigt und durch Drücken 
von < RETURN > ein fortlaufendes Andern der Rahmen¬ 
farbe ermöglicht. Das ist beispielsweise dann sehr nütz¬ 
lich, wenn ein eingelesenes Bildformat keine Rahmenfarbe 
enthält, das Bild jedoch in einem Format gespeichert wer¬ 
den soll, welches eine Rahmenfarbe vorsieht. Letzteres ist 
der Fall bei Blazing Paddies, Paint Magic sowie beiden Art- 
Studios. Durch Druck auf den Feuerknopf oder auf 
< SPACE > wird diese Funktion wieder verlassen. 

Wir wünschen Ihnen viel Spaß beim Umwandeln Ihrer 
Lieblingsbilder. (Ulrich Faßbender/Dr. Rudolf Egg/rs) 


Name 

pic-changer 



0801 lee6 

08al 

53 

4b 

2d 

4d 

45 

4e 

55 

45 

35 

0951 

45 

53 

00 

50 

4l 

49 

4e 

54 

8a 











08a9 

00 

52 

41 

48 

4d 

45 

4e 

46 

fO 

0959 

20 

4d 

41 

47 

49 

43 

00 

44 

90 

0801 

00 

08 

00 

00 

9e 

32 

30 

36 

ae 

08bl 

4l 

52 

42 

45 

00 

45 

4e 

44 

4l 

0961 

4f 

4f 

44 

4c 

45 

00 

48 

49 

fb 

0809 

31 

00 

00 

00 

4c 

bc 

08 

0a 

19 

08b9 

45 

00 

00 

a9 

00 

8d 

8a 

02 

ce 

0969 

2d 

45 

44 

44 

49 

20 

46 

4l 

04 

0811 

50 

49 

43 

2d 

43 

48 

41 

4e 

94 

08cl 

a9 

37 

85 

01 

20 

08 

lc 

ad 

95 

0971 

52 

42 

45 

00 

41 

52 

54 

20 

6e 

0819 

47 

45 

52 

20 

56 

20 

31 

2e 

23 

08c9 

b5 

lb 

8d 

20 

dO 

ad 

b6 

lb 

ff 

0979 

53 

54 

55 

44 

49 

4f 

00 

4l 

66 

0821 

31 

00 

42 

49 

4c 

44 

20 

4c 

0c 

08dl 

8d 

21 

dO 

a9 

08 

8d 

86 

02 

63 

0981 

44 

56 

2e 

20 

4l 

52 

54 

20 

b8 

0829 

41 

44 

45 

4e 

00 

42 

49 

4c 

77 

08d9 

ad 

10 

08 

8d 

5b 

ld 

a9 

11 

a9 

0989 

53 

54 

55 

44 

49 

4f 

00 

53 

9a 

0831 

44 

20 

41 

42 

53 

50 

45 

49 

7d 

08el 

85 

fb 

a9 

08 

85 

fc 

20 

39 

02 

0991 

54 

4l 

4e 

44 

41 

52 

44 

00 

5a 

0839 

43 

48 

45 

52 

4e 

00 

42 

49 

bc 

08e9 

ld 

a9 

23 

85 

fb 

a9 

08 

85 

8d 

0999 

44 

49 

52 

45 

43 

54 

4f 

52 

78 

0841 

4c 

44 

20 

52 

45 

54 

54 

45 

d5 

08fl 

fc 

20 

8f 

ld 

a9 

Ob 

20 

3d 

73 

09al 

59 

00 

48 

4l 

55 

50 

54 

4d 

f8 

0849 

4e 

00 

42 

49 

4c 

44 

20 

5a 

6d 

08f9 

lc 

0a 

aa 

bd 

Oe 

09 

8d 

09 

ee 

09a9 

45 

4e 

55 

45 

00 

00 

00 

aO 

55 

0851 

55 

52 

55 

45 

43 

4b 

48 

4f 

lc 

0901 

09 

bd 

0f 

09 

8d 

0a 

09 

20 

5b 

09b 1 

00 

a0 

8e 

9f 

00 

9c 

00 

aO 

bf 

0859 

4c 

45 

4e 

00 

42 

49 

4c 

44 

04 

0909 

ff 

ff 

4c 

bc 

08 

d7 

09 

21 

58 

09b9 

00 

aO 

00 

aO 

00 

aO 

01 

01 

29 

0861 

20 

41 

4e 

53 

45 

48 

45 

4e 

68 

0911 

Od 

4b 

11 

ce 

11 

51 

12 

f4 

bO 

09cl 

01 

00 

00 

00 

01 

00 

Od 

11 

29 

0869 

00 

42 

49 

4c 

44 

20 

4b 

4f 

77 

0919 

12 

50 

19 

58 

19 

a3 

19 

60 

79 

09c9 

11 

42 

49 

4c 

44 

4e 

41 

4d 

2e 

0871 

4e 

56 

45 

52 

54 

49 

45 

52 

cf 

0921 

19 

24 

09 

68 

68 

20 

ac 

lc 

Oe 

09dl 

45 

20 

3f 

20 

00 

00 

ad 

b5 

lc 

0879 

45 

4e 

00 

4d 

55 

4c 

54 

49 

2b 

0929 

a9 

Od 

20 

d2 

ff 

60 

68 

68 

31 

09d9 

lb 

8d 

20 

dO 

ad 

b6 

lb 

8d 

f5 

0881 

43 

4f 

4c 

4f 

52 

2d 

4d 

4f 

cb 

0931 

60 

Oe 

42 

49 

4c 

44 

20 

4c 

52 

09el 

21 

dO 

20 

08 

lc 

ad 

32 

09 

7e 

0889 

44 

55 

53 

20 

41 

4e 

00 

48 

68 

0939 

41 

44 

45 

4e 

00 

4b 

4f 

41 

d2 

09e9 

8d 

5b 

ld 

a9 

33 

85 

fb 

a9 

43 

0891 

49 

52 

45 

53 

2d 

4d 

4f 

44 

c2 

0941 

4c 

4l 

00 

42 

4c 

41 

5a 

49 

4l 

09fl 

09 

85 

fc 

20 

39 

ld 

a9 

3e 

aO 

0899 

55 

53 

20 

41 

4e 

00 

44 

49 

51 

0949 

4e 

47 

20 

50 

41 

44 

44 

4c 

2d 

09f9 

iT\ 

CO 

fb 

a9 

09 

85 

fc 

20 

8f 

e7 
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OaOl : 

ld 

a9 

Oa 

20 

3d 

lc 

8d 

d6 

12 

0c59 

a9 

38 

85 

fb 

a9 

c3 

85 

fc 

c8 

Oebl 

20 

79 

Od 

a9 

00 

8d 

ba 

le 

9a 

0a09 : 

09 

Oa 

aa 

bd 

le 

Oa 

8d 

19 

14 

0c61 

a9 

00 

85 

fd 

a9 

c8 

85 

fe 

20 

0eb9 

a9 

aO 

8d 

bb 

le 

a9 

7f 

8d 

d5 

Oall : 

Oa 

bd 

ir 

Oa 

8d 

la 

Oa 

20 

15 

0c69 

a9 

03 

8d 

3c 

le 

a9 

e8 

8d 

6d 

Oecl 

e3 

le 

a9 

lf 

8d 

e4 

le 

a 2 

bf 

0al9 : 

ff 

ff 

4c 

d7 

09 

el 

Oa 

31 

50 

0c71 

61 

le 

a9 

00 

8d 

67 

le 

20 

19 

0ec9 

02 

20 

a7 

le 

a9 

b8 

8d 

ba 

95 

0 a 21 : 

Ob 

87 

Ob 

d8 

Ob 

00 

Oc 

28 

ff 

0c79 

39 

le 

a9 

40 

85 

fb 

a9 

bf 

92 

Oedl 

le 

a9 

lb 

8d 

bb 

le 

a9 

01 

92 

0a29 : 

Oe 

56 

Oe 

ac 

Oc 

08 

la 

2f 

cl 

0 c 81 

85 

fc 

a9 

00 

85 

fd 

a9 

CC 

77 

0ed9 

8d 

e3 

le 

a9 

00 

8d 

e4 

le 

51 

0a31 : 

09 

a9 

c7 

8d 

eb 

ld 

a9 

09 

13 

0c89 

85 

fe 

a9 

03 

8d 

3c 

le 

a9 

df 

Oeel 

a 2 

02 

20 

a7 

le 

a9 

b9 

8d 

b3 

0a39 : 

8d 

ec 

ld 

20 

ea 

ld 

aO 

00 

a2 

0c91 

e8 

8d 

61 

le 

a9 

00 

8d 

67 

fc 

0ee9 

ba 

le 

a9 

lb 

8d 

bb 

le 

a9 

03 

0a4l : 

84 

c6 

20 

57 

fl 

c9 

Od 

fO 

9f 

0c99 

le 

20 

39 

le 

ad 

29 

c3 

8d 

28 

Oefl 

80 

8d 

e3 

lc 

a9 

00 

8d 

e4 

8f 

0a49 : 

06 

99 

00 

02 

c8 

dO 

f3 

98 

70 

Ocal 

b9 

lb 

ad 

28 

c3 

8d 

b8 

lb 

la 

0ef9 

le 

a2 

02 

20 

a7 

le 

a9 

00 

ff 

0a51 : 

48 

a9 

Od 

20 

d2 

ff 

68 

a8 

d5 

0ca9 

4c 

cb 

Oc 

20 

32 

Oa 

a9 

00 

fc 

OfOl 

8d 

ba 

le 

a9 

cc 

8d 

bb 

le 

Oc 

0a59 : 

a9 

00 

99 

00 

02 

cO 

00 

dO 

31 

Ocbl 

8d 

22 

le 

a9 

CC 

8d 

23 

le 

Oe 

0f09 

a9 

00 

8d 

e3 

le 

a9 

04 

8d 

ec 

0a6l : 

03 

4c 

2f 

09 

a9 

01 

85 

b8 

al 

0cb9 

a9 

f6 

8d 

lf 

le 

a9 

03 

8d 

7b 

Ofll 

e4 

le 

a2 

02 

20 

a7 

le 

a9 

f8 

0a69 : 

a9 

08 

85 

ba 

a9 

00 

85 

b9 

f3 

Occl 

19 

le 

a9 

e8 

8d 

33 

lc 

20 

9c 

0fl9 

00 

8d 

ba 

le 

a9 

c8 

8d 

bb 

el 

0a71 : 

a9 

00 

85 

bb 

a9 

02 

85 

bc 

2d 

0cc9 

16 

le 

78 

a9 

34 

85 

01 

a9 

08 

0f21 

le 

a9 

00 

8d 

e3 

le 

a9 

04 

a3 

0a79 : 

20 

68 

le 

08 

a9 

01 

20 

c3 

01 

Ocdl 

00 

85 

fb 

a9 

aO 

85 

fc 

a9 

45 

0f29 

8d 

e4 

le 

a2 

02 

20 

a7 

le 

00 

0a81 : 

ff 

28 

bO 

05 

20 

4a 

lb 

90 

43 

0cd9 

00 

85 

fd 

a9 

eO 

85 

fe 

a9 

da 

Of31 

4c 

17 

11 

20 

79 

Od 

a9 

8e 

15 

0a89 : 

07 

a9 

37 

85 

01 

4c 

2f 

09 

25 

Ocel 

lf 

8d 

3c 

le 

a9 

40 

8d 

61 

2f 

0f39 

8d 

ba 

le 

a9 

9f 

8d 

bb 

le 

72 

0a91 : 

78 

a9 

34 

85 

01 

a9 

00 

85 

04 

0ce9 

le 

a9 

01 

8d 

67 

le 

20 

39 

28 

0f4l 

a9 

b2 

8d 

e3 

le 

a9 
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dd 

13 

4e 

dd 

13 

ec 

lb09 

a9 

00 

85 

bb 

a9 

02 

85 

bc 

c5 

ld61 

fa 

aO 

00 

bl 

fb 

fO 

Oc 

20 

99 

18b9 

cd 

fb 

18 

fO 

Ob 

38 

6e 

df 

94 

lbll 

20 

68 

le 

a9 

Of 

20 

c3 

ff 

23 

ld69 

d2 

ff 

e6 

fb 

dO 

02 

e6 

fc 

27 

18ol 

13 

38 

6e 

df 

13 

4c 

dl 

18 

93 

lbl9 

60 

00 

a9 

Od 

20 

d2 

ff 

20 

5e 

ld71 

4c 

64 

ld 

a9 

34 

8d 

eb 

ld 

05 

18 c9 

18 

6e 

df 

13 

18 

6e 

df 

13 

Od 

lb21 

7c 

lb 

bO 

la 

a9 

bd 

8d 

eb 

31 

ld79 

a9 

ld 

8d 

ec 

ld 

20 

ea 

ld 

6a 

18dl 

ce 

e2 

13 

dO 

d8 

aO 

00 

ad 

dd 

lb29 

ld 

a9 

la 

8d 

ec 

ld 

20 

ea 

61 

ld81 

a9 

08 

8d 

eb 

ld 

a9 

ld 

8d 

be 

18d9 

df 

13 

91 

b9 

e6 

b9 

dO 

02 

61 

lb31 

ld 

20 

a5 

ff 

c9 

Od 

fO 

06 

9c 

ld89 

ec 

ld 

20 

ea 

ld 

60 

a9 

00 

e5 

18el 

e6 

ba 

ce 

el 

13 

dO 

b5 

a5 

ee 

lb39 

20 

d2 

ff 

4c 

32 

lb 

a9 

Of 

Oc 

ld91 

8d 

07 

ld 

ac 

07 

ld 

be 

ef 

b3 

18e9 

ba 

c9 

00 

fO 

5a 

4c 

04 

18 

ee 

lb4l 

20 

c3 

ff 

20 

cc 

ff 

4c 

c8 

d6 

ld99 

lc 

c8 

b9 

ef 

lc 

a8 

ee 

07 

56 

18fl 

00 

00 

00 

00 

00 

00 

00 

00 

f2 

lb49 

ld 

20 

7c 

lb 

90 

05 

20 

3f 

29 

ldal 

ld 

ee 

07 

ld 

20 

Oc 

e5 

aO 

d6 

18 f 9 

00 

00 

00 

00 

a9 

01 

8d 

b7 

42 

lb51 

lb 

38 

60 

20 

a5 

ff 

c9 

30 

86 

lda9 

00 

bl 

fb 

fO 

Oc 

20 

d2 

ff 

ac 

1901 

lb 

20 

bd 

lb 

78 

a9 

34 

85 

bO 

lb59 

dO 

Oa 

a9 

Of 

20 

c3 

ff 

20 

db 

ldbl 

e6 

fb 

dO 

02 

e6 

fc 

4c 

aa 

e6 

1909 

01 

a9 

00 

85 

fb 

a9 

eO 

85 

2b 

lb6l 

cc 

ff 

18 

60 

48 

a9 

bd 

8d 

23 

ldb9 

ld 

e6 

fb 

dO 

02 

e6 

fc 

bl 

11 

1911 

fc 

aO 

00 

bl 

fb 

8d 

94 

13 

38 

lb69 

eb 

ld 

a9 

la 

8d 

ec 

ld 

20 

85 

ldcl 

fb 

fO 

03 

4c 

94 

ld 

60 

aO 

74 

1919 

a2 

04 

ad 

94 

13 

29 

40 

fO 

19 

lb71 

ea 

ld 

68 

20 

d2 

ff 

20 

32 

la 

ldc9 

96 

20 

34 

lc 

a9 

00 

85 

c6 

3e 

1921 

05 

a9 

01 

4c 

29 

19 

a9 

02 

cb 

lb79 

lb 38 60 a9 O.f 

8t '/3 

a9 

51 

lddl 

38 

ad 

00 

de 

2d 

01 

de 

29 

lc 

1929 

Oe 

94 

13 

Oe 

94 

13 

Od 

94 

47 

lb81 

08 

85 

ba 

a9 

Of 

85 

b9 

a9 

87 

ldd9 

10 

fO 

05 

a5 

c6 

fO 

f2 

18 

47 

1931 

13 

8d 

94 

13 

ca 

dO 

e3 

ad 

bO 

lb89 

la 

85 

bb 

a9 

lb 

85 

bc 

20 

9b 

ldel 

a9 

00 

85 

c6 

aO 

96 

4c 

34 

ld 

1939 

94 

13 

91 

fb 

c8 

dO 

d4 

e6 

6f 

lb91 

68 

le 

a5 

ba 

20 

Oc 

ed 

20 

23 

lde9 

lc 

ad 

ff 

ff 

fO 

Oe 

20 

d2 

81 

1941 

fc 

a5 

fc 

c9 

00 

dO 

CC 

a9 

95 

lb99 

fe 

ed 

a5 

90 

dO 

07 

a2 

Of 

f7 

ldfl 

ff 

ee 

eb 

ld 

dO 

03 

ee 

ec 

cl 

1949 

37 

85 

01 

58 

4c 

c8 

ld 

a9 

61 

lbal 

20 

c6 

ff 

18 

60 

a9 

88 

8d 

b8 

ldf9 

ld 

4c 

ea 

ld 

60 

85 

b9 

aO 

f5 

1951 

01 

8d 

b7 

lb 

4c 

51 

12 

a9 

55 

lba9 

eb 

ld 

a9 

le 

8d 

ec 

ld 

20 

46 

leOl 

00 

84 

9d 

bl 

bb 

fO 

03 

c8 

c2 

1959 

00 

8d 

b7 

lb 

4c 

51 

12 

ee 

e7 

lbbl 

ea 

ld 

38 

60 

00 

00 

00 

00 

44 

le09 

dO 

f9 

84 

b7 

a9 

08 

85 

ba 

54 

1961 

b8 

lb 

20 

bd 

lb 

20 

c8 

ld 

77 

lbb9 

00 

00 

00 

00 

ad 

b8 

lb 

8d 

e2 

lell 

a9 

00 

4c 

a5 

f4 

98 

48 

a9 

Ob 

1969 

90 

f5 

60 

Oe 

44 

49 

53 

4b 

40 

lbcl 

20 

dO 

ad 

b9 

lb 

8d 

21 

dO 

30 

lel9 

ff 

fO 

16 

aO 

00 

a9 

ff 

88 

88 

1971 

2d 

4d 

45 

4e 

55 

45 

00 

44 

68 

lbc9 

a9 

00 

8d 

00 

dd 

ad 

11 

dO 

07 

le21 

99 

ff 

ff 

cO 

00 

dO 

f8 

ec 

la 

1979 

49 

52 

45 

43 

54 

4f 

52 

59 

61 

lbdl 

09 

20 

8d 

11 

dO 

a9 

38 

8d 

c6 

le29 

23 

le 

ce 

19 

le 

30 

06 

dO 

4f 

1981 

00 

4b 

4f 

4d 

4d 

4l 

4e 

44 

45 

lbd9 

18 

dO 

a9 

00 

85 

fb 

a9 

c8 

34 

le31 

ee 

aO 

ff 

dO 

e8 

68 

a8 

60 

be 

1989 

4f 

00 

46 

45 

48 

4e 

45 

52 

b3 

lbel 

85 

fc 

a9 

00 

85 

fd 

a9 

d8 

ef 

le39 

98 

48 

a9 

ff 

fO 

21 

aO 

00 

fa 

1991 

4b 

4l 

4e 

4l 

4c 

00 

48 

4l 

al 

lbe9 

85 

fe 

a9 

03 

8d 

3c 

le 

a9 

3f 

le4l 

88 

bl 

fb 

ae 

67 

le 

fO 

06 

ae 

1999 

55 

50 

54 

4d 

45 

4e 

55 

45 

7c 

lbfl 

e8 

8d 

61 

le 

a9 

00 

8d 

67 

5c 

le49 

aa 

bl 

fd 

91 

fb 

8a 

91 

fd 

d4 

19al 

00 

00 

ad 

b5 

lb 

8d 

20 

dO 

04 

lbf9 

le 

20 

39 

le 

ad 

b7 

lb 

fO 

20 

le51 

cO 

00 

dO 

ec 

e6 

fc 

e6 

fe 

d3 

19a9 

ad 

b6 

lb 

8d 

21 

dO 

ad 

6c 

52 

IcOl 

03 

4c 

20 

lc 

4c 

2b 

lc 

a9 

98 

le59 

ce 

3c 

le 

30 

06 

dO 

el 

aO 

83 

19bl 

19 

8d 

5b 

ld 

a9 

6d 

85 

fb 

lf 

lc09 

03 

8d 

00 

dd 

a9 

lb 

8d 

11 

5a 

le6l 

ff 

dO 

dd 

68 

a8 

60 

00 

aO 

lc 

19b9 

a9 

19 

85 

fc 

20 

39 

ld 

a9 

83 

lcll 

dO 

ad 

16 

dO 

29 

ef 

8d 

16 

OC 

le69 

ff 

c8 

bl 

bb 

dO 

fb 

84 

b7 

le 

19c 1 

78 

85 

fb 

a9 

19 

85 

fc 

20 

22 

lcl9 

dO 

a9 

15 

8d 

18 

dO 

60 

ad 

9a 

le71 

20 

cO 

ff 

90 

11 

a9 

88 

8d 

9f 

19c9 

8f 

ld 

a9 

04 

20 

3d 

lc 

Oa 

42 

lc21 

16 

dO 

29 

ef 

09 

10 

8d 

16 

5b 

le79 

eb 

ld 

a9 

le 

8d 

ec 

ld 

20 

16 

19dl 

aa 

bd 

e4 

19 

8d 

df 

19 

bd 

6c 

lc29 

dO 

60 

ad 

16 

dO 

29 

ef 

8d 

89 

le 81 

ea 

ld 

20 

c8 

ld 

38 

60 

Od 

4a 

19d9 

e5 

19 

8d 

eO 

19 

20 

ff 

ff 

5d 

lc31 

16 

dO 

60 

a2 

00 

ca 

dO 

fd 

bl 

le89 

Od 

42 

49 

54 

54 

45 

20 

46 

11 

19el 

4c 

a3 

19 

08 

la 

cO 

la 

lb 

8c 

lc39 

88 

dO 

fa 

60 

8d 

a4 

lc 

a9 

b6 

le91 

4c 

4f 

50 

50 

59 

20 

45 

49 

el 

19e9 

lb 

2f 

09 

00 

00 

00 

24 

00 

6f 

lc4l 

00 

8d 

a3 

lc 

20 

ac 

lc 

aO 

8d 

le99 

4e 

53 

43 

48 

41 

4c 

54 

45 

bd 

19fl 

Od 

57 

45 

49 

54 

45 

52 

20 

ld 

lc49 

46 

20 

34 

lc 

ae 

a3 

lc 

a5 

f4 

leal 

4e 

20 

2e 

2e 

2e 

00 

20 

c9 

48 

19 f 9 

4d 

49 

54 

20 

54 

41 

53 

54 

49 

lc51 

c6 

fO 

lb 

a9 

00 

85 

c6 

ad 

2e 

lea9 

ff 

a9 

00 

85 

90 

aa 

ad 

e4 

Oc 

laOl 

45 

2f 

46 

49 

52 

45 

00 

a9 

3b 

lc59 

77 

02 

c9 

91 

fO 

19 

c9 

11 

97 

lebl 

le 

dO 

05 

ad 

e3 

le 

fO 

23 

68 

la09 

14 

8d 

ec 

19 

a9 

00 

85 

90 

14 

lc61 

fO 

ld 

c9 

9d 

fO 

21 

c9 

ld 

7f 

leb9 

bd 

ff 

ff 

20 

d2 

ff 

38 

a5 

d3 

lall 

a9 

Od 

20 

d2 

ff 

a9 

01 

85 

00 

lc69 

fO 

24 

c9 

Od 

fO 

39 

ad 

00 

Of 

lecl 

90 

29 

bf 

dO 

17 

ee 

ba 

le 

00 

lal9 

b8 

a9 

08 

85 

ba 

a9 

60 

85 

de 

lc71 

de 

2d 

01 

de 

4a 

bO 

05 

ca 

94 

lec9 

dO 

03 

ee 

bb 

le 

ad 

e3 

le 

69 

la21 

b9 

a9 

ef 

85 

bb 

a9 

19 

85 

d4 

lc79 

ca 

4c 

90 

lc 

4a 

bO 

05 

e8 

21 

ledl 

dO 

03 

ce 

e4 

le 

ce 

e3 

le 

97 

la29 

bc 

20 

68 

le 

bO 

6e 

a9 

93 

lf 

lc81 

e8 

4c 

90 

lc 

4a 

bO 

04 

ca 

07 

led9 

4c 

af 

le 

18 

08 

20 

ec 

ff 

3c 

la31 

20 

d2 

ff 

a2 

01 

20 

c6 

ff 

3b 

lc89 

4c 

90 

lc 

4a 

bO 

16 

e8 

30 

2d 

leel 

28 

60 

00 

00 

aO 

60 

bO 

01 

Ob 

la39 

aO 

03 

20 

a5 

ff 

8d 

ed 

19 

6e 

lc91 

b6 

ec 

a4 

lc 

bO 

bl 

20 

ac 

de 











la4l 

a5 

90 

dO 

58 

20 

a5 

ff 

88 

ae 

lc99 

lc 

8e 

a3 

lc 

20 

ac 

lc 

4c 

d9 











la49 

dO 

fO 

8d 

ee 

19 

ae 

ed 

19 

c3 

lcal 

: 48 

lc 

00 

00 

4a 

bO 

aO 

ad 

ff 

Listing 1. 

(Schluß) 
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GRAFIK-LISTINGS 


C64 


Kaugummi-Grafiken 


Diese Routine ist für alle Grafik-Fans interessant: 
Sie ermöglicht die stufenlose Vergrößerung und 
Verkleinerung beliebiger Bildschirmausschnitte. 
Bemerkenswert sind dabei einerseits der verwen¬ 
dete Algorithmus und andererseits die hohe Ge¬ 
schwindigkeit, mit der das Programm arbeitet. 

K ennen Sie das: Sie haben eine wunderschöne Grafik 
in mühevoller Kleinarbeit erstellt. Doch was ist das? 
Da müßte doch ein Teil des Bildes ein bißchen größer 
erscheinen. Was tun? Sie benötigen eine Funktion, die 
Ausschnitte eines Bildes auf ein anderes Format bringt. 
Bietet Ihr Malprogramm diese Funktion nicht, dann hilft der 
»Verzerrer« weiter. 

Bei diesem Programm handelt es sich um ein nützliches 
Grafik-Utility. Es ermöglicht auf einfache Weise, Grafiken in 
andere Formate zu übertragen. So kann beispielsweise 
aus einer 34 x 45 Pixel-Grafik eine Grafik mit 314 x 63 Pixeln 
erstellt werden (Bild 1). 

So starten Sie den Verzerrer 



Bild 1. Die Bildverarbeitung erfolgt mit Hilfe eines Line- 
Algorithmus, der speziell für den »Verzerrer« erstellt wurde 


Geben Sie bitte Listing 1 mit dem MSE (Hinweise auf Seite 
159) ein. Das Programm wird mit dem Befehl 

LOAD "Name",8,8 


Technik ist notwendig, damit sich Quell- und Zielbereich 
überschneiden können. 

Die Initialisierung geht beim Setzen der Farben davon 
aus, daß die Zielgrafik im Speicher ab $6000 liegt, daß für 


geladen. Danach geben Sie bitte den Befehl NEW ein. 

Der Verzerrer belegt den Speicherbereich ab $5000. ßp§i§£ der Wert 3 eingesetzt wird (siehe Tabelle 1). 

Vor der ersten Benutzung muß die Routine initialisiert . „ 

werden. Dies geschieht mit dem Befehl Acht Koordinaten 

SYS 20480,SR,DE iv..-=ii; =-i- - v . - ■ ■■■■!--,.i - 


wobei die beiden Parameter SR und DE für die Nummer 
der Quell- (SR) und Zielgrafik (DE) stehen. Für beide Para¬ 
meter sind Werte von 0 bis 7 erlaubt. Der jeweilige Wert er¬ 
rechnet sich mit der Formel: 

Grafikstartadresse / 8192 


Das eigentliche Verzerren wird mit dem Befehl 

SYS 20483,XI,Y1,X2,Y2,X3,Y3,X4,Y4 

gestartet. Dabei geben die Parameter die Koordinaten 
der beiden rechteckigen Bereiche an: 


Fall 1 (Zeile lOOOOffJ 


□ -> 


Fall 2 (Zeile 20008ff) 


—» 


Fall 3 (Zeile 3O000ff) 


Fall 4 (Zeile 30O00ff> 

—» 


Bild 2. Die vier verschiedenen 
Variationen der Bildbearbeitung. 
Die Zeilennummern beziehen sich 
auf den Source-Code 
(siehe Listing 2). 


Die acht möglichen Werte für die Startadresse der Grafik 
entnehmen Sie bitte Tabelle 1. Das Programm benutzt zwei 
Speicherbereiche (Bildschirme). Der erste enthält die Gra¬ 
fik, aus der der Ausschnitt übernommen werden soll. Die¬ 
ser wird dann »verzerrt« in den zweiten eingesetzt. Diese 


- X1,Y1 linke obere Ecke des Quellbereiches, 

- X2,Y2 rechte untere Ecke des Quellbereiches, 

- X3,Y3 linke obere Ecke des Zielbereiches, 

- X4,Y4 rechte untere Ecke des Zielbereiches. 

Soll beispielsweise der Bereich von den Koordinaten 
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C64 


GRAFIK-LISTINGS 


34/78 bis 113/86 in das Rechteck von 67/23 bis 123/313 ge¬ 
wandelt werden, so lautet der Befehl: 

SYS 20483-, 34,78,113,86,67,23,123,313 

TrUkreicher Algorithmus 


Das größte Problem beim Erstellen des Algorithmus ist die 
Frage, welche Punkte beim Vergrößern vervielfacht und 
beim Verkleinern vernachlässigt werden sollen. Beim Ver¬ 
zerren ist das Verhältnis zwischen der Breite des Start- und 
des Endbildes konstant. Man kann daher einen Linien- 
Algorithmus für diese Anwendung »mißbrauchen«: Das 
Verhältnis der Breiten beider Ausschnitte gibt die Steigung 
der ersten Linie an, die Steigung der zweiten Linie hängt 
vom Verhältnis der Höhen ab. 

Es gibt vier verschiedene Fälle (Bild 2): 

1. horizontale und vertikale Vergrößerung, 

2. horizontale und vertikale Verkleinerung, 

3. horizontale Vergrößerung, vertikale Verkleinerung, 

4. horizontale Verkleinerung, vertikale Vergrößerung. 

An einem Beispiel soll dieser Algorithmus nun erklärt 
werden. In Listing 2 finden Sie den vollständigen Source- 
Code, der im Profi-Ass-Format geschrieben wurde. Die Li¬ 
nien 1 und 2 sind dabei nur gedachte Strecken, die der Ver¬ 
deutlichung dienen. 

Punkt für Punkt 


Schritt 1: Nehmen wir an, das Quellbild soll in X-Richtung 
(horizontal) vergrößert und in Y-Richtung (vertikal) verklei¬ 
nert werden. Die Steigung der 1. Linie ist also größer eins, 
die Steigung der 2. Linie kleiner eins. Beim Zeichnen der 
ersten Zeile des Zielbereichs nimmt man den ersten Punkt 
des Quellbildes und zeichnet so oft Punkte im Zielbereich 
nebeneinander, wie bei Linie 1 Punkte senkrecht gezeich¬ 
net werden. Falls bei Linie 1 ein Punkt in der Waagerechten 
gezeichnet wird, holt das Programm den nächsten Punkt 
des Quellbildes zur Berechnung. Dieser Punkt wird im Ziel¬ 
bild solange wiederholt gezeichnet, wie in der ersten Linie 
senkrechte Punkte gesetzt werden müßten. Der gleiche 
Schritt wiederholt sich so lange, bis die Breite des Zielberei¬ 
ches erreicht ist. 


Schritt 2: Nun tritt der Algorithmus für Linie 2 in Aktion. 
Da in Y-Richtung verkleinert werden soll, werden immer so 
viele Zeilen im Quellbereich übergangen, wie in Linie 2 
waagerecht erstellt werden müßten. Wird nun ein Punkt in 
Linie 2 senkrecht gezeichnet, so wird die neue Zeile des 
Quellbildes in die nächste Zeile des Zielbereiches (wie 
Schritt 1) übertragen. 

Es wurde hier der Fall 2 aus Bild 2 beschrieben. Alle an¬ 
deren Fälle unterscheiden sich prinzipiell nicht von dem 
hier beschriebenen. Die Aufteilung in vier Programmteile 
erfolgte aus Geschwindigkeitsgründen. Das Maximum ist 
hier natürlich noch nicht erreicht. Man könnte beispielswei¬ 
se eine Tabelle anlegen, in der notiert ist, wann ein Punkt 
einerZeile aus dem Quellbild in den Zielbereich übertragen 
werden muß. Die Routine würde dadurch aber nur noch län¬ 
ger werden. Wenn Sie in Maschinensprache programmie¬ 
ren, können Sie den Quell-Code (Listing 2) analysieren. 
Änderungen des Programms sollten dann keine Schwierig¬ 
keiten mehr bereiten. 


Nr. 

Highbyte 

Startadr. 

Bemerkung 

0 

0 

0 

$0000 

in der Praxis anwendbar 

1 

32 

8192 

$2000 

Bereich für Hi-Eddi und andere 

2 

64 

16384 

$4000 

wird vom Programm belegt 

3 

96 

24576 

$6000 

Slandardbereich für Zielgrafik 

4 

128 

32768 

$8000 


5 

160 

40960 

SA000 

unter BASIC-ROM im RAM 

6 

192 

49152 

$C000 

von vielen Assembler¬ 
programmen belegt 

7 

224 

57344 

m 

o 

o 

o 

Simon’s Basic 
(unter KERNAL-ROM) 


Tabelle 1. Die Startadressen der acht Grafikspeicher 


Nach diesem kurzen Exkurs in die graue Theorie bleibt 
nur noch, Ihnen viel Spaß mit diesem gelungenen Utility zu 
wünschen. Einem geübten Programmierer sollte es nicht 
schwer fallen, den Verzerrer auch von Maschinensprache 
aus aufzurufen. 

Vielleicht schreiben Sie ja ein gutes Malprogramm mit 
der Verzerrfunktion. Wir würden uns freuen, wenn Sie es 
dann an uns einsenden! 

(Jesko Schwarzer/Nikolaus Heusler/rs) 


Name : verzerrer 5000 5533 


5000 : 

4c 

9c 

54 

20 

fd 

ae 

20 

eb 

61 

5008 : 

b7 

a5 

14 

a4 

15 

85 

a4 

84 

45 

5010 : 

a5 

86 

a6 

20 

fd 

ae 

20 

eb 

54 

5018 : 

b7 

a5 

14 

a4 

15 

85 

a7 

84 

61 

5020 i 

a8 

86 

a9 

20 

fd 

ae 

20 

eb 

27 

5028 : 

b7 

a5 

14 

a4 

15 

85 

aa 

84 

7d 

5030 : 

ab 

86 

ac 

20 

fd 

ae 

20 

eb 

fb 

5038 : 

b7 

a5 

14 

a4 

15 

85 

ad 

84 

99 

5040 : 

: ae 

86 

af 

78 

a9 

30 

85 

01 

60 

5048 : 

: 38 

a5 

a7 

e5 

a4 

85 

f7 

a5 

9b 

5050 : 

: a8 

e5 

a5 

85 

f8 

38 

a5 

a9 

40 

5058 : 

: e5 

a6 

85 

f9 

38 

a5 

ad 

e5 

64 

5060 : 

: aa 

85 

fa 

a5 

ae 

e5 

ab 

85 

14 

5068 : 

: fb 

38 

a5 

af 

e5 

ac 

85 

fc 

b2 

5070 : 

: a5 

f8 

c5 

fb 

dO 

04 

a5 

f7 

36 

5078 : 

: c5 

fa 

90 

0c 

a5 

fc 

c5 

f9 

ad 

5080 : 

: bO 

03 

4c 

5a 

53 

4c 

60 

52 

ce 

5088 : 

: a5 

fc 

c5 

f9 

bO 

03 

4c 

6d 

8b 

5090 : 

: 51 

a5 

fb 

85 

64 

85 

62 

4a 

f4 

5098 : 

: 85 

9f 

85 

8c 

a5 

fa 

85 

63 

ef 

50a0 ; 

: aa 

6a 

85 

9e 

85 

8b 

a5 

fc 

fa 


50a8 : 

: 85 

12 

4a 

85 

bb 

a5 

a4 

a4 

3e 

50b0 : 

a5 

85 

8d 

84 

8e 

85 

47 

84 

47 

50b8 : 

: 48 

a5 

aa 

a4 

ab 

85 

8f 

84 

40 

50c0 : 

: 90 

85 

14 

84 

15 

20 

68 

54 

45 

50c8 : 

: aO 

00 

bl 

41 

25 

aO 

fO 

06 

24 

50d0 : 

: bl 

3f 

05 

al 

dO 

06 

a5 

al 

ad 

50d8 : 

: 49 

ff 

31 

3f 

91 

3f 

a5 

9e 

3c 

50e0 : 

: 65 

n 

85 

9e 

a5 

9f 

65 

f8 

55 

50e8 : 

: 85 

9f 

a4 

9f 

c4 

fb 

dO 

04 

dl 

50f0 : 

: a5 

9e 

c5 

fa 

90 

lc 

a5 

9e 

73 

50f8 : 

: e5 

fa 

85 

9e 

98 

e5 

fb 

85 

43 

5100 : 

: 9f 

46 

aO 

90 

Od 

66 

aO 

a5 

ce 

5108 : 

: 4l 

69 

08 

85 

4l 

90 

03 

e6 

23 

5110 : 

: 42 

18 

46 

al 

90 

Od 

66 

al 

72 

5118 : 

: a5 

3f 

69 

08 

85 

3f 

90 

03 

53 

5120 . 

: e6 

40 

18 

8a 

dO 

04 

c6 

62 

8b 

5128 

: dO 

03 

ca 

90 

9b 

a5 

bb 

65 

df 

5130 

: f9 

bO 

04 

c5 

fc 

90 

04 

e5 

6b 

5138 

: fc 

e6 

a6 

85 

bb 

e6 

ac 

a6 

f4 

5140 

: 63 

a5 

64 

65 

62 

a5 

8b 

a4 

0a 

5148 

: 8c 

85 

9e 

84 

9f 

a5 

8d 

a4 

76 

5150 

: 8e 

85 

47 

84 

48 

a5 

8f 

a4 

3c 

5158 

: 90 

85 

14 

84 

15 

a4 

12 

fO 

el 


5160 : 

06 

88 

84 

12 

4c 

c5 

50 

a9 

95 

5168 : 

: 37 

85 

01 

58 

60 

a5 

fb 

85 

db 

5170 : 

62 

85 

64 

4a 

85 

9f 

85 

8c 

7c 

5178 : 

a5 

fa 

aa 

85 

63 

6a 

85 

9e 

d2 

5180 : 

: 85 

8b 

a5 

f9 

85 

12 

4a 

85 

90 

5188 : 

: bb 

a5 

a4 

a4 

a5 

85 

8d 

84 

99 

5190 : 

; 8e 

85 

47 

84 

48 

a5 

aa 

a4 

e9 

5198 : 

: ab 

85 

8f 

84 

90 

85 

14 

84 

09 

51a0 : 

: 15 

20 

68 

54 

aO 

00 

bl 

41 

bd 

51a8 : 

: 25 

aO 

fO 

06 

bl 

3f 

05 

al 

87 

51b0 : 

: dO 

06 

a5 

al 

49 

ff 

31 

3f 

f9 

51b8 : 

: 91 

3f 

a5 

9e 

65 

f7 

85 

9e 

8f 

51c0 : 

: a5 

9f 

65 

f8 

85 

9f 

a4 

9f 

d4 

51c8 : 

: c4 

fb 

dO 

04 

a5 

9e 

c5 

fa 

9b 

51d0 : 

: 90 

lc 

a5 

9e 

e5 

fa 

85 

9e 

35 


Listing 1. 

Beliebige Grafikausschnitte stufenlos 
vergrößern und verkleinern: 

Das schafft der »Verzerrer«. 

Bitte mit dem MSE (Eingabehinweise 
Seite 159) eingeben. 
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GRAFIK-LISTINGS 


C64 


51d8 

98 

e5 

fb 

85 

9f 

46 

aO 

90 

e2 

5300 

90 

Od 

66 

aO 

a5 

41 

69 

08 

df 

5428 

53 

dO 

04 

a9 

13 

aO 

54 

8d 

bc 

51s0 

Od 

66 

aO 

a5 

4l 

69 

08 

85 

88 

5308 

85 

4l 

90 

03 

G 6 

42 

18 

8a 

a8 

5430 

60 

54 

8 c 

61 

54 

e6 

a6 

a6 

6e 

51e8 

41 

90 

03 

e6 

42 

18 

46 

al 

50 

5310 

dO 

04 

c6 

62 

dO 

04 

ca 

4c 

dl 

5438 

63 

a5 

64 

85 

62 

a5 

8c 

a4 

06 

51f0 

90 

Od 

66 

al 

a5 

3f 

69 

08 

df 

5318 

ad 

52 

a5 

bb 

65 

f9 

bO 

04 

cO 

5440 

8b 

85 

9f 

84 

9e 

a5 

8d 

a4 

9d 

51f8 

85 

3f 

90 

03 

e6 

40 

18 

8a 

87 

5320 

c5 

fc 

90 

04 

e5 

fc 

e6 

a6 

37 

5448 

8e 

85 

47 

84 

48 

a5 

8f 

a4 

34 

5200 

dO 

04 

c6 

62 

dO 

03 

ca 

90 

42 

5328 

85 

bb 

e6 

ac 

a6 

63 

a5 

64 

bf 

5450 

90 

85 

14 

84 

15 

a4 

12 

fO 

d9 

5208 

9b 

a5 

bb 

65 

fc 

bO 

06 

85 

8a 

5330 

85 

62 

a5 

8b 

a4 

8c 

85 

9e 

c3 

5458 

09 

88 

84 

12 

20 

68 

54 

4c 

38 

5210 

bb 

c5 

f9 

90 

Oc 

e5 

f9 

85 

21 

5338 

84 

9f 

a5 

8d 

a4 

8e 

85 

47 

Oa 

5460 

ff 

ff 

a9 

37 

85 

01 

58 

60 

33 

5218 

bb 

e6 

ac 

a9 

a4 

aO 

51 

dO 

dd 

5340 

84 

48 

a5 

8f 

a4 

90 

85 

14 

51 

5468 

18 

a4 

ac 

a5 

14 

29 

f8 

79 

13 

5220 

04 

a9 

09 

aO 

52 

8d 

58 

52 

e7 

5348 

84 

15 

a4 

12 

fO 

06 

88 

84 

2d 

5470 

00 

58 

85 

3f 

a5 

15 

79 

00 

ce 

5228 

8c 

59 

52 

aO 

00 

e6 

a6 

a6 

29 

5350 

12 

4c 

94 

52 

a9 

37 

85 

01 

64 

5478 

59 

85 

40 

a4 

14 

b9 

00 

5b 

fe 

5230 

63 

a5 

64 

85 

62 

a5 

8b 

a4 

fa 

5358 

58 

60 

a5 

f8 

85 

62 

85 

64 

b3 

5480 

85 

al 

a4 

a6 

a5 

47 

29 

f8 

ff 

5238 

8c 

85 

9e 

84 

9f 

a5 

8d 

a4 

66 

5360 

4a 

85 

9f 

85 

8c 

a5 

f7 

aa 

30 

5488 

79 

00 

58 

85 

41 

a5 

48 

79 

ld 

5240 

8e 

85 

47 

84 

48 

a5 

8f 

a4 

2c 

5368 

85 

63 

6a 

85 

9e 

85 

8b 

a5 

7a 

5490 

00 

5a 

85 

42 

a4 

47 

b9 

00 

d2 

5248 

90 

85 

14 

84 

15 

a4 

12 

fO 

dl 

5370 

f9 

85 

12 

4a 

85 

bb 

a5 

a4 

10 

5498 

5b 

85 

aO 

60 

20 

fd 

ae 

20 

d7 

5250 

09 

88 

84 

12 

20 

68 

54 

4c 

30 

5378 

a4 

a5 

85 

8d 

84 

8e 

85 

47 

63 

54a0 

9e 

b7 

8a 

Oa 

Oa 

Oa 

Oa 

Oa 

2b 

5258 

ff 

ff 

a9 

37 

85 

01 

58 

60 

2b 

5380 

84 

48 

a5 

aa 

a4 

ab 

85 

8f 

c4 

54a8 

85 

42 

20 

fd 

ae 

20 

9o 

b7 

ec 

5260 

a5 

f8 

85 

62 

85 

64 

4a 

85 

df 

5388 

84 

90 

85 

14 

84 

15 

20 

68 

7a 

54bO 

8a 

Oa 

Oa 

Oa 

Oa 

Oa 

85 

40 

8b 

5268 

9f 

85 

8c 

a5 

f7 

aa 

85 

63 

53 

5390 

54 

aO 

00 

bl 

4l 

25 

aO 

fO 

Oc 

54b8 

aO 

00 

84 

3f 

84 

41 

a2 

00 

3e 

5270 

6a 

85 

9e 

85 

8b 

a5 

fc 

85 

da 

5398 

06 

bl 

3f 

05 

al 

dO 

06 

a5 

eb 

54cO 

18 

98 

65 

3f 

9d 

00 

58 

08 

bl 

5278 

12 

4a 

85 

bb 

a5 

a4 

a4 

a5 

e5 

53 aO 

al 

49 

ff 

31 

3f 

91 

3f 

a5 

d5 

54c8 

a5 

40 

69 

00 

9d 

00 

59 

28 

77 

5280 

85 

8d 

84 

8e 

85 

47 

84 

48 

f4 

53 a8 

9e 

65 

fa 

85 

9e 

a5 

9f 

65 

c8 

54dO 

a5 

42 

69 

00 

9d 

00 

5a 

e8 

06 

5288 

a5 

aa 

a4 

ab 

85 

8f 

84 

90 

29 

5360 

fb 

85 

9f 

a4 

9f 

c4 

f8 

dO 

90 

54d8 

c8 

cO 

08 

90 

e4 

aO 

00 

a5 

b3 

5290 

85 

14 

84 

15 

20 

68 

54 

aO 

bb 

5368 

04 

a5 

9e 

c5 

f7 

90 

38 

a5 

lf 

54e0 

3f 

69 

3f 

85 

3f 

a5 

40 

69 

49 

5298 

00 

bl 

41 

25 

aO 

fO 

06 

bl 

73 

53cO 

9e 

e5 

f7 

85 

9e 

98 

e5 

f8 

38 

54e8 

01 

85 

40 

a5 

4l 

69 

40 

85 

de 

52a0 

3f 

05 

al 

dO 

06 

a5 

al 

49 

8b 

53c8 

85 

9f 

46 

al 

90 

Od 

66 

al 

31 

54 fO 

41 

a5 

42 

69 

01 

85 

42 

eO 

c9 

52a8 

ff 

31 

3f 

91 

3f 

18 

a5 

9e 

ca 

53dO 

a5 

3f 

69 

08 

85 

3f 

90 

03 

Ob 

54f8 

c8 

90 

c6 

a9 

80 

99 

00 

5b 

7b 

52b 0 

65 

fa 

85 

9e 

a5 

9f 

65 

fb 

ac 

53d8 

e6 

40 

18 

46 

aO 

90 

Od 

66 

3d 

5500 

c8 

4a 

90 

f9 

98 

dO 

f4 

a9 

88 

52b 8 

85 

9f 

a4 

9f 

c4 

f8 

dO 

04 

89 

53eO 

aO 

a5 

41 

69 

08 

85 

41 

90 

a3 

5508 

00 

aO 

60 

a2 

20 

85 

3f 

84 

f9 

52c0 

a5 

9e 

c5 

f7 

90 

38 

a5 

9e 

c3 

53e8 

03 

e6 

42 

18 

8a 

dO 

04 

c6 

bf 

5510 

40 

a8 

91 

3f 

c8 

dO 

fb 

e6 

cl 

52c8 

e5 

f7 

85 

9e 

98 

e5 

f8 

85 

86 

53 fO 

62 

dO 

20 

ca 

4c 

91 

53 

46 

47 

5518 

40 

ca 

dO 

f6 

aO 

00 

a9 

5c 

3a 

52d0 

9f 

46 

aO 

90 

Od 

66 

aO 

a5 

9e 

53 f 8 

aO 

90 

Od 

66 

aO 

a5 

4l 

69 

ff 

5520 

a2 

04 

84 

3f 

85 

40 

a9 

10 

ee 

52d8 

4l 

69 

08 

85 

41 

90 

03 

e6 

f3 

5400 

08 

85 

41 

90 

03 

e6 

42 

18 

ce 

5528 

91 

3f 

c8 

dO 

fb 

e6 

40 

ca 

32 

52e0 

42 

18 

46 

al 

90 

Od 

66 

al 

42 

5408 

8a 

dO 

04 

c6 

62 

dO 

04 

ca 

27 

5530 

dO 

f6 

60 

ff 

f5 

f5 

ff 

ff 

a2 

52e8 

a5 

3f 

69 

08 

85 

3f 

90 

03 

23 

5410 

4c 

a7 

53 

a5 

bb 

65 

fc 

bO 

f6 











52f0 

e6 

40 

18 

8a 

dO 

04 

c6 

62 

5b 

5418 

06 

85 

bb 

c5 

f9 

90 

Oc 

e5 

a8 











52f8 

dO 

20 

ca 

4c 

97 

52 

46 

aO 

7b 

5420 

1*9 85 bb e6 ac a9 " 

aO 

47 

Listing 1. 

(Schluß) 







0 rem clr:a$=verzerrer:openl,8,15,s:+a$:closel:savea$,8: 

370 f2 = $bb 

verifya$,8 

380 ff = $8b 

100 poke56,80:clr:sys2**)l5 

390 j 

101 ; 

400 xa = $8d ; koordinatenzwischen- 

102 ; verzerrer von j.schwarzer 1987 

410 xb = $8f ; Speicher 

103 ; 

420 xc = $47 

104 ; tested, revised and worked out by nikolaus hausier 

430 xd ^ $14 

105 ; 

440 ; 

110 .opt oo 

450 xemsk = $aO ; plotmasken 

120 *= $5000 

460 xdmsk = $al 

130 ; 

470 ; 

160 colnach = $5cOO;färbe plotgrafik 

480 ptrl = $3f ; zeiger destination, 

170 ; 

490 ptr2 = $4l ; zeiger source grafik 

180 xl = $a4 ; Speicherzellen fuer 

500 ; 

190 yl = $a6 ; ausschnittskoordlnaten 

510 ptabl = * + $800 ; tabeilen fuer grafik- 

200 x2 = $a7 

520 ptabhl = * + $900 ; zellenanfaenge 

210 y2 = $a9 

530 ptabh2 = * + $a00 j dest. & source 

220 x3 * $aa 

540 mtab = * + $b00 ; maskentabelle 

230 y3 = $ac 

550 ; 

240 x4 * $ad 

560 chkoom = $aefd ; erwartet komma im basictext 

250 y4 = $af 

570 getoor = $b7eb ; holt 16 - & 8-bit wert 

260 ; 

580 getbyt = $b79e ; holt 8-bit wert 

270 dl = $f7 ! differenzen der einzel- 

590 ; 

280 d2 = $1'9 i nen koordinaten 

1000 ; macros 1! 

290 d3 = $fa 

1010 ; erhoeht source pixelzeiger um 1 

300 d4 = $fc 

1020 inc.xc .mac 

310 ; 

1030 lsr xemsk 

320 al = $61 ; punkteanzahl & zaehler 

1040 bcc .inc.xcll 

330 a2 = $12 

1050 ror xemsk 

340 aa = $63 

1060 lda ptr2 

350 ; 

1070 ade #$08 

360 fl = $9e ; approximationswerte 

1080 sta ptr 2 
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GRAFIK-LISTINGS 


1090 bcc .ine.xcll 

3090 lda y2 

1100 lnc ptr2+l 

3100 sbc yl 

1110 olo 

3110 sta d2 

1120 ine.xcll .men 

3120 ; 

1130 ; erhoeht dest. pixelzeiger um 1 

3130 sec jdifferenz der dest. x-koord. 

1140 ine.xd .mac 

3140 lda x4 

1150 lsr xdmsk 

3150 sbc x3 

1160 boc .inc.xdll 

3160 sta d3 

1170 ror xdmsk 

3170 lda x4+l 

1180 lda ptrl 

3180 sbc x3+l 

1190 ade #$08 

3190 sta d3+l 

1200 sta ptrl 

3200 ; 

1210 boe .inc.xdll 

3210 sec jdifferenz der dest. y-koord. 

1220 ine ptrl+1 

3220 lda y4 

1230 elc 

3230 sbc y3 

1240 lnc’.xdll .men 

3240 sta d4 

1250 ; setzt in abhaengigkeit von souroe 

3241 ;#**###*###*##*#*#####**##**##*#*# 

1251 i in destination einen punkt 

3250 jinsgesammt gibt es vier moeglich- 

1260 tepl .mac 

3251 jkeiten : 

1261 ldy #$00 

3252 ; 

1270 lda (ptr2),y 

3253 jl.) vergroesserung in x-richtung 

1280 and xemsk 

3254 j vergroesserung in y-richtung 

1290 beq .tepll 

3255 JZeile 10000 ff 

1300 lda (ptrl),y 

3256 ; 

1310 ora xdmsk 

3257 ;2.) vergroesserung in x-richtung 

1320 bne .tepl2 

3258 ; Verkleinerung in y-richtung 

1330 tepll lda xdmsk 

3259 ;zelle 20000 ff 

1340 eor #$ff 

3260 ; 

1350 and (ptrl),y 

3261 j3•) Verkleinerung in x-richtung 

1360 tepl2 sta (ptrl),y 

3262 ; vergroesserung in y-richtung 

1370 .men 

3263 ;zeile 30000 ff 

1380 ; 

3264 j 

1999 ;.. 

3265 ;4.) Verkleinerung in x-richtung 

2000 jmp init ; Initialisierung 

3266 j Verkleinerung in y-richtung 

2010 ; 

3267 jzeile 40000 ff 

2020 jsr ehkeom ; holt koordinaten source 

3268 j 

2030 jsr getcor ; linke obere ecke 

3271 j ft******************************** 

2040 lda $14 

2050 ldy $15 

3260 '.da dl+ljdxsource < dxdest. 

2060 sta xl 

3290 emp d3+l 

2070 sty xl+1 

3300 bne 11 

2080 stx yl 

3310 lda dl 

2090 jsr chkcom 

3320 emp d3 

2100 jsr getcor ; rechte untere ecke 

3330 11 bcc 13; Ja, — > 13 

2110 lda $14 

3340 ; 

2120 ldy $15 

3370 lda d4;dydest. >= dysource 

2130 sta x2 

3380 emp d2 

2140 sty x2+l 

3390 bcs 12;ja,—> 12 

2150 stx y2 

3400 jmp 140000;zur zeile 40000 

2160 jsr chkcom ; holt koordinaten dest. 

3410 ; 

2170 jsr getcor ; linke obere ecke 

3440 12 Jmp 130000; zur zeile 30000 

2180 lda $14 

3450 ; 

2190 ldy $15 

3480 13 lda d4; dxdest >= dxdest. 

2200 sta x3 

3490 emp d2 

2210 sty x3+l 

3500 bcs 110000;ja, —> zeile 10000 

2220 stx y3 

3510 jmp 120000;ansonsten zeile 20000 

2230 jsr chkcom 

3520 ; 

2240 jsr getcor i rechte untere ecke 

10000 ;. 

2250 lda $14 

10010 ;x & y vergroessern 

2260 ldy $15 

10020 ; zelle 10000 

2270 sta x4 

10030 ; 

2280 sty x4+l 

10040 110000 lda d3+l;aproximationswert 

2290 stx y4 

10050 sta aa+ljund anzahl der punkte 

2300 ; 

10060 sta al+ljpro zeile 

2310 sei ; Interrupt aus 

10070 lsrjmsb's 

2320 lda #0 ; alle rom's und i/o aus 

10080 sta fl+1 

2330 sta 1 ; ( nur ram ) 

10090 sta ff+1 

2340 ; 

10110 ; 

3000 sec jdifferenz der source x-koord. 

10120 lda d3;lsb's 

3010 lda x2 

10130 sta aa 

3020 sbc xl 

10140 tax 

3030 sta dl 

3040 lda x2+l 

10150 ror 

3050 sbc xl+1 

3060 sta dl+1 

3070 ; 

Listlng 2. Der vollständige Quellcode 

3080 sec jdifferenz der source y-koord. 

zum Verzerrer im Profi-Ass-Format 
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10160 sta fl 

10970 ade d2 

10170 sta ff 

10980 ; 

10180 ; 

10990 ;appr.wert < dy dest. ? 

10190 lda d4;anzahl zellen 

11000 ; 

10200 sta a2 

11010 bcs 110160 

10210 ; 

11020 emp d4 

10240 lsr 

11030 bcc 110200; ja, alles ok 

10250 sta f2jzellen apr. wert 

11040 ; 

10260 ; 

11050 ; nein, korrigieren 

10290 Ida xl;Start x-wert speichern 

11060 ; 

10300 ldy xl+ljda sich die koordinaten 

11070 110160 sbc d4 

10310 sta xajaendern muessen diese 

11080 ; 

10320 sty xa+ljwerte restauriert 

11090 ; zeile source erhoehen 

10330 sta xc;«erden 

11100 ; 

10340 sty xc+1;(source) 

11110 lnc yl 

10350 ; 

11120 ; 

10360 Ida x3;(destlnation) 

11130 ; zeile destlnation erhoehen 

10370 ldy x3+l 

11140 ; 

10380 sta xb 

11150 110200 sta f2 

10390 sty xb+1 

11160 inc y3 

10400 sta xd 

11170 ; 

10410 sty xd+1 

11180 ; alles auf anfangszustand bis 

10420 ; 

11190 ; auf zellennummern 

10430 110011a jsr adrjstartadresse 1.punkt 

11200 110220 ldx aa 

10440 ; 

11210 Ida aa+1 

10450 ; testplot setzt entsprechend der 

11220 sta al+1 

10460 ; source ln destlnation einen punkt 

11240 ; 

10470 110030 'tepl 

11250 Ida ff 

10480 ; 

11260 ldy ff+1 

10490 ; line 1 algorithmus 

11270 sta fl 

10500 ; 

11280 sty fl+1 

10510 110040 Ida fl;appr. + dx source 

11290 ; 

10520 ade dl 

11300 Ida xa 

10530 sta fl 

11310 ldy xa+1 

10540 Ida fl+1 

11320 sta xc 

10550 ade dl+1 

11330 sty xc+1 

10560 sta fl+1 

11340 ; 

10570 J C4gfl Q 

10580 ; appr. < dx dest. ? 

inÄÖß lda xb 

Itjoo ldy xb +1 

10590 ; 

11370 sta xd 

10600 110050 ldy fl+1 

11380 sty xd+1 

10610 cpy d3+l 

11390 ; 

10620 bne 110050a 

11400 ;schon alle Zeilen ? 

10630 Ida fl 

11410 ; 

10640 emp d3 

11420 110230 ldy a2 

10650 110050a bcc 110100; ja, ok 

11430 beq endl 

10660 ; 

11440 dey 

10680 ; approximationswert korrigieren 

11450 sty a2 

10690 Ida fl;fl=fl - dx dest. 

11460 ; 

10700 sbc d3 

11470 jmp 110011a; nein, schleife 

10710 sta fl 

11480 ; 

10720 tya 

11490 endl lda #7; ja.roms ein 

10730 sbc d3+l 

11500 sta 1 

10740 sta fl+1 

11510 cli;Interrupt zulassen 

10750 ; 

11520 rts;ende 

10760 ; naechster pixel source 

11530 ; 

10770 ; 

20000 ;. 

10780 'lnc.xc 

20010 ;x verg. / y verkl. 

10790 ; 

20020 ; zeile 20000 

10800 ; naechster pixel destlnation 

20030 ; 

10810 ; 

20040 120000 lda d3+l;appr.wert und 

10820 110100 'lnc.xd 

20050 sta al+l;anzahl der punkte pro 

10830 ; 

20060 sta aa+l;zeile 

10840 ; zelle fertig ? 

20070 lsrjmsb's 

10850 ; 

20080 sta fl +1 

10860 txa 

20090 sta ff+1 

10870 bne 110120a 

20110 ; 

10880 dec al+1 

20120 lda d3;lsb 1 s 

10890 bne 110140 

20130 tax 

10900 110120a dex 

20140 sta aa 

10910 ; 

20150 ror 

10920 bcc 110030 

20160 sta fl 

10930 ; 

20170 sta ff 

10940 ; ja, naechste zelle 

20180 ; 

10950 ; line 2 algorithmus 

20190 lda d2;anzahl Zeilen 

10960 110140 Ida f2;appr.wert + dy source 

20200 sta a 2 
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20210 ; 

21010 bcs 120160 

20240 lsr 

21011 sta f 2 

20250 sta f2;llne 2 appr. wert 

21020 emp d2 

20260 { 

21030 bcc 120200;ja, ok 

20290 lda xl;pixelbeginn pro zelle 

21040 ; 

20300 ldy xl+l;speiohern 

21050 ; nein, korrigieren 

20310 sta xa;fuer souroe 

21060 ; 

20320 sty xa+1 

21070 120160 sbc d2 

20330 sta xo 

21071 sta f2 

20340 sty xc+1 

21080 ; 

20350 ; 

21090 ; zelle in dest. erhoehen 

20360 lda x3;und destinatlon 

21100 ; 

20370 ldy x3+l 

21110 inc y3 

20380 sta xb 

21120 ; 

20390 sty xb+1 

21150 120181 lda #< 120030; zelger 

20400 sta xd 

21160 ldy # >120030; verlegen 

20410 sty xd+1 

21170 bne 120200a;source zelle zeichnen 

20420 ; 

21180 ; 

20430 120011a jsr adr;adressen berechnen 

21190 ; zeiger verbiegen,source Zeilen 

20440 ; testplot setzt punkte in dest. 

21200 ; ueberspringen 

20450 ; grafik ln der gleichen färbe 

21210 120200 lda # <120140 

20460 ; wie sourcegrafik 

21220 ldy #>120140 

20470 120030 'tepl 

21230 ; 

20480 ; 

21240 120200a sta jmpl+1 

20490 ; line 1 algorlthmus 

21250 sty jmp1+2 

20500 ; 

21260 ; 

20510 120040 lda fl;appr. + dx source 

21270 ldy #$00 

20520 ade dl 

21280 ; 

20530 sta fl 

21300 inc yl; source zeile erhoehen 

20540 lda fl+1 

21310 ; 

20550 ade dl+1 

21320 ; zeile 20220 

20560 sta fl+1 

21330 ; 

20570 ; 

21340 ldx aa;alles zuruecksetzen 

20580 ; appr. < dx dest. ? 

21350 lda aa+1 

20590 ; 

21370 sta al+1 

20600 ldy fl +1 

21380 ; 

20610 cpy d3+l 

21390 lda ff 

20620 bne 120050a G4ER C 

214'». ldy ff+1 

20630 lda fl 

21410 sta fl 

20640 emp d3 

21420 sty fl+1 

20650 120050a bcc 120100;ja, dann ok 

21430 ; 

20660 ; 

21440 lda xa 

20670 ; nein, korrigieren 

21450 ldy xa+1 

20680 ; 

21460 sta xc 

20690 lda fl 

21470 sty xc+1 

20700 sbc d3 

21480 ; 

20710 sta fl 

21490 lda xb 

20720 tya 

21500 ldy xb+1 

20730 sbc d3+l 

21510 sta xd 

20740 sta fl+1 

21520 sty xd+1 

20750 ; 

21530 ; 

20760 ; naechster punkt source 

21540 janzahl zellen dest. erreicht ? 

20770 ; 

21550 ; 

20780 ’inc.xc 

21560 ldy a2 

20790 ; 

21570 beq end2;ja,ende 

20800 ; naechster punkt destination 

21580 deyjneln,erniedrigen 

20810 ; 

21590 sty a2 

20820 120100 'inc.xd 

21600 ; 

20830 ; 

21610 jsr adr;neue anfangsadresse 

20840 ; alle punkte einer zelle ? 

21620 ; 

20850 ; 

21630 jmpl jmp $ffff;springen wie befolen 

20860 txa 

21640 ; 

20870 bne 120120a 

21650 end2 lda #7; fertig 

20880 dec al +1 

21660 sta 1 

20890 bne 120140 

21670 cli 

20900 120120a dex 

21680 rts 

20910 ; 

21690 ; 

20920 bcc 120030 ;nein, schleife 

30000 ;. 

20930 ; 

30010 ;x verkl. / y vergr. 

20940 ; ja, naechste zelle 

30020 ; zeile 30000 

20950 ; line 2 algorlthmus 

30030 ; 

20960 120140 lda f2;appr. + dy dest. 

30040 130000 lda dl+1;appr. wert und 

20970 ade d4 

30050 sta al+l;anzahl der punkte pro zeile 

20980 ; 

20990 ;appr. < dy souroe 

21000 ; 

Listing 2. (Fortsetzung) 
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30060 sta aa+1;speichern (msb) 

30880 bne 130083a 

30070 lsr 

30890 dec al+1 

30080 sta fl+1 

30900 bne 130l40;ja, line 2 algorithmus 

30090 sta ff+1 

30910 130083a dex 

30110 ; 

30920 ; 

30120 lda dl;hier Isb 

30930 jmp 130030;nein, schleife 

30130 tax 

30940 ; 

30140 sta aa 

30950 ; xk source erhoehen 

30150 ror 

30960 ; 

30160 sta fl 

30970 130100 'lnc.xc 

30170 sta ff 

30980 ; 

30180 ; 

30990 jalle punkte in dest. zelle ? 

30190 lda d4janzahl zellen dest. 

31000 ; 

30200 sta a2 

31010 130120 txa 

30210 ; 

31020 bne 130120a 

30240 lsr 

31030 dec al+1 

30250 sta f2;line 2 appr. wert 

31040 bne 130l40;ja, line 2 algorithmus 

30260 ; 

31050 130120a dex 

30290 lda xljalle x-werte Zwischenspeichern 

31060 ; 

30300 ldy xl+1;source 

31070 jmp 130040;nein, schleife 

30310 sta xa 

31080 ; 

30320 sty xa+1 

31090 ; line 2 algorithmus 

30330 sta xc 

31100 ; 

30340 sty xe+1 

31110 130140 lda f2;appr.wert + dy source 

30350 ; 

31120 ade d2 

30360 lda x3;destination 

31130 ; 

30370 ldy x3+l 

31140 jappr.wert < dy dest. 

30380 sta xb 

31150 ; 

30390 sty xb+1 

31160 bcs 130160 

30400 sta xd 

31170 emp d4 

30410 sty xd+1 

31180 bcc 130200;ja, nur dest. zeile erh. 

30420 ; 

31190 ; 

30430 130011a jsr adrjadresse jechnen 

31200 ; korrigieren 

30440 ; setzt in dest einen punkt,wenn 

31210 ; 

30450 ; punkt in source gesetzt war,an- 

31220 130160 sbc d4 

30460 ; sonsten loescht er ihn 

31230 ; 

30470 130030 'tepl 

31240 ; source zeilennummer erhoehen 

30480 ; cAgp nf 

30490 ; line 1 algorithmus 

“-"lü L ,i 

30500 ; 

31270 ; 

30510 130040 clc;appr.wert + dx dest. 

31280 ; dest. zeilennummer erhoehen 

30520 lda fl 

31290 ; 

30530 ade d3 

31300 130200 sta f2;appr. wert speichern 

30540 sta fl 

31310 inc y3 

30550 lda fl+1 

31320 ; 

30560 ade d3+l 

31330 ; all xk and xappr. reset 

30570 sta fl+1 

31340 ; 

30580 ; 

31350 130220 Idx aa 

30590 ; appr.wert < dx source 

31360 lda aa+1 

30600 ; 

31380 sta al+1 

30610 ldy fl+1 

31390 ; 

30620 cpy dl+1 

31400 lda ff 

30630 bne 130050a 

31410 ldy ff+1 

30640 lda fl 

31420 sta fl 

30650 emp dl 

31430 sty fl+1 

30660 130050a bcc 130100;ja, alles klar 

31440 ; 

30670 ; 

31450 lda xa 

30680 ; nein,korrigieren 

31460 ldy xa+1 

30690 ; 

31470 sta xc 

30700 lda fl;appr. - dx source 

31480 sty xc+1 

30710 sbc dl 

31490 ; 

30720 sta fl 

31500 lda xb 

30730 tya 

31510 ldy xb+1 

30740 sbc dl+1 

31520 sta xd 

30750 sta fl+1 

31530 sty xd+1 

30760 ; 

31540 ; 

30770 ; xk source erhoehen 

31550 ; alle Zeilen ? 

30780 ; 

31560 ; 

30790 'lnc.xc 

31570 130230 ldy a2 

30800 ; 

31580 beq end3;ja, ende 

30810 ; xk dest. erhoehen 

31590 dey 

30820 ; 

31600 sty a2 

30830 'inc.xd 

31610 ; 

30840 ; 

31620 jmp 130011a;nein, schleife 

30850 ;alle punkte in dest. Zeile ? 

31630 ; 

30860 ; 

31640 end3 lda #7 

30870 txa 

31650 sta 1 
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31660 cli 

40760 ; 

31670 rts 

40770 140080 'inc.xd 

31680 ; 

40780 ; 

40000 ;- 

40790 ; xk source erhoehen 

40010 ;x verkl. / y verkl. 

40800 ; 

40020 ; zelle 40000 

40810 140081 ’lnc.xc 

40030 ; 

40820 ; 

40040 140000 lda dl+l;appr.wert + 

40830 ;alle punkte ? 

40050 sta al+l;anzahl der punkte pro 

40840 ; 

40060 sta aa+l;dest. zelle 

40850 140083 txa 

40070 lsr 

40860 bne 140083a 

40080 sta fl+l;msb 

40870 dec al+1 

40090 sta ff+1 

40880 bne I40l40;ja, naechste zelle 

40100 ; 

40890 140083a dex 

40110 lda dl;auch fuer lsb 

40900 ; 

40120 tax 

40910 jmp 140030;schleife 

40130 sta aa 

40920 ; 

40140 ror 

40930 ; xk source erhoehen 

40150 sta fl 

40940 ; plotten uebersprlngen 

40160 sta ff 

40950 140100 1 Inc.xc 

40170 ; 

40960 ; 

40180 lda d2;anzahl dest. zellen 

40970 ;alle punkte 

40190 sta a2 

40980 ; 

40200 ; 

40990 140120 txa 

40230 lsr 

41000 bne 140120a 

40240 sta f2;line 2 appr.wert 

41010 dec al+1 

40250 ; 

41020 bne 140140;fertig mit zelle 

40260 ; all xk and xappr. set 

41030 140120a dex 

40270 ; 

41040 ; 

40280 lda xl 

41050 jmp l40040;naechster pixel 

40290 ldy xl+1 

41060 ; 

40300 sta xa 

41070 ; naechste zeile 

40310 sty xa+1 

41080 ; 

40320 sta xc 

41090 140140 lda f2;appr.wert berechnen 

40330 sty xc+1 

41100 ade d4 

40340 ; 

41110 ; 

40350 lda x3 

41120 ; wert ok ? 

40360 ldy x3+l G-*6R C 

4Usu ; 

40370 sta xb 

4114Ö bcs 140160 

40380 sty xb+1 

41141 sta f2 

40390 sta xd 

41150 emp d2 

40400 sty xd+1 

41160 bcc 140200; ja, naechste source zeile 

40410 ; 

41170 ; 

40420 140011a jsr adr;adresse 1.punkt pro zelle 

41180 ;korrigieren 

40430 ; 

41190 ; 

40440 ; plotten nach bewaehrtem Schema 

41200 140160 sbc d2 

40450 ; 

41201 sta f2 

40460 140030 'tepl 

41220 ; 

40470 ; 

41230 ; yk dest erhoehen 

40480 ; line 1 algorithmus (zelle bearb.) 

41240 ; 

40490 ; 

41250 inc y3 

40500 140040 lda fljappr.wert+dx dest 

41260 ; 

40510 ado d3 

4l450 lda # <140030; zeile plotten 

40520 sta fl 

41460 ldy # >140030 

40530 lda fl+l 

41470 bne 140200a 

40540 ade d3+l 

41480 ; 

40550 sta fl+l 

41490 140200 lda # <140140;zeile nicht plotten 

40560 ; 

41500 ldy # >140140 

40570 ;appr.wert < dx source 

41510 ; 

40580 ; 

41640 140200a sta jmp2+l 

40590 140050 ldy fl+l 

41641 sty Jmp2+2 

40600 epy dl+1 

41642 ; 

40610 bne 140050a 

41650 inc yl;yk source erhoehen 

40620 lda fl 

41660 ; 

40630 emp dl 

41670 ; xk und xappr.wert reset 

40640 140050a bec 140100;ja, source erhoehen 

41680 ; 

40650 ; 

41690 140220 ldx aa 

40660 ; korrigieren 

41710 lda aa+1 

40670 ; 

41720 sta al+1 

40680 140060 lda fl 

41730 ; 

40690 sbc dl 

41740 lda ff+1 

40700 sta fl 

41750 ldy ff 

40710 tya 

41760 sta fl+l 

40720 sbc dl+1 

41770 sty fl 

40730 sta fl+l 

41780 ; 

40740 ; 

41790 lda xa 

40750 ; xk dest. erhoehen 

Listing 2. (Fortsetzung) 
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41800 ldy xa+1 

61080 ldx #$00 

41810 sta xc 

61100 ; 

41820 sty xc+1 

61110 clc 

41830 ; 

61120 ; 

41840 lda xb 

61130 inll tya 

41850 ldy xb+1 

61140 ade ptrl 

41860 sta xd 

61150 sta ptabl.x 

41870 sty xd+1 

61160 php 

41880 j 

61170 lda ptrl+1 

41890 ;alle zellen ? 

61180 ade #$00 

41900 ; 

61190 sta ptabhl,x 

41910 140230 ldy a2 

61200 plp 

41920 beq end4;ja,ende 

61210 lda ptr2+l 

41930 dey 

61220 ade #$00 

41940 sty a2 

61230 sta ptabh2,x 

41950 ; 

61240 inx 

41960 jsr adr;nein, neue Zeilenadresse 

61250 lny 

41970 j 

61260 cpy #$08 

41980 jmp2 Jmp $ffff;springen wie festgelegt 

61270 bee inll 

41990 ; 

61280 ; 

42000 end4 lda #7;ende 

61290 ldy #$00 

42010 sta 1 

61300 ; 

42020 oll 

61310 lda ptrl 

42030 rts 

61320 ade #<319 

42040 ; 

61330 sta ptrl 

42050 ;- 

61340 lda ptrl+1 

42060 ; 

61350 ade #>319 

50000 adr clcjadresse und maske aus 

61360 sta ptrl+1 

50010 ldy y3;der plotgrafik 

61370 ; 

50030 lda xd 

61380 lda ptr2 

50040 and #$f8 

61390 ade #<320 

50050 ade ptabl.y 

61400 sta ptr2 

50060 sta ptrl 

61410 lda ptr2+l 

50070 lda xd+1 

61420 ade #>320 

50080 ade ptabhl.y 

61430 sta ptr2+l 

50090 sta ptrl+1 

61440 ; 

50100 ldy xd 

61450 cpx #$c8 

50110 lda mtab,y 

61460 bcc inll 

50120 sta xdmsk r*Arn /—• 

50130 ; 

6l42p > maskentabelle $80,$40,$20,$10 

61+,. ; $08,$04,$02,$01 u.s.w. 

50140 jadresse und maske aus der 

61480 inl2 lda #$80 

50150 ldy yl;ausgangsgrafik 

61490 inl3 sta mtab,y 

50160 lda xc 

61500 iny 

50170 and #$f8 

61510 Isr 

50180 ade ptabl,y 

61520 bcc inl3 

50190 sta ptr2 

61530 tya 

50200 lda xc+1 

61540 bne inl2 

50210 ade ptabh2,y 

61550 ; grafik ab $6000 loeschen 

50220 sta ptr2+l 

61560 lda #<$6000 

50230 ldy xc 

61570 ldy #>$6000 

50240 lda mtab,y 

61580 ldx #$20 

50250 sta xemsk 

61590 sta ptrl 

50260 ; 

61600 sty ptrl+1 

50270 rts 

61610 tay 

50280 ; 

61620 ; 

59999 jInitialisierung 

61630 oll sta (ptrl),y 

60000 inlt jsr chkcom 

61640 lny 

60010 jsr getbyt 

61650 bne eil 

60020 txa 

61660 inc ptrl+1 

60030 asl 

61670 dex 

60040 asl 

61680 bne eil 

60050 asl 

61690 ; färbe bei $5c00 setzen 

60060 asl 

61700 ldy # < $5c00 

60070 asl 

61710 lda #>$5c00 

60080 sta ptr2+l;source hb 

61720 ldx #$04 

60100 jsr chkcom 

61730 sty ptrl 

60110 jsr getbyt 

61740 sta ptrl+1 

60120 txa 

61750 lda #$10 

60130 asl 

61760 ; 

60140 asl 

61770 cl2 sta (ptrl),y 

60150 asl 

61780 iny 

60160 asl 

61790 bne cl2 

60170 asl 

61800 ine ptrl+1 

60180 sta ptrl+1;dest. hb 

61810 dex 

61000 ldy #$00; graf ik Zeilenanfangsadressen 

61820 bne cl2 

61030 sty ptrl 

61830 ; 

61050 sty ptr2 

61840 rts 

61070 ; 

61850 ; Listing 2, (Schluß) 
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Motrizen-Rechnung 

leiditgemacht 


Ob Grafik, Elektronik oder im kaufmännischen 
Bereich, überall werden sie gebraucht: die Matri¬ 
zen. Bislang war es mit erheblicher Mühe verbun¬ 
den, Matrizen-Operationen auf dem C64 durch¬ 
zuführen. Durch die Basic-Erweiterung »Matrix¬ 
express« wird dies fast zum Kinderspiel. 


I 


, efehle zur Verarbeitung von Matrizen waren bisher ei¬ 
ne Domäne der besseren Basic-Dialekte. Beispiels- 
' weise bietet das Omikron-Basic für den Atari ST sechs 
Anweisungen für die wichtigsten Matrizen-Operationen. 
Natürlich ist es auch mit dem Basic 2.0 des C64 möglich, 
umfangreiche Matrizen-Berechnungen durchzuführen. 
Aber neben einem immensen Programmieraufwand war 
dies bisher vor allem mit sehr langen Ausführungszeiten 
verbunden. Die Multiplikation zweier großer Matrizen oder 
die Inversion einer Matrix konnte leicht die Zeit einer ausge¬ 
dehnten Kaffeepause beanspruchen. 

Falls Sie zu den vielen Anwendern gehören, die nur we¬ 
nig über die faszinierenden Möglichkeiten der Matrizen¬ 
rechnung wissen, aber gern mehr über den Umgang mit 
diesen Gebilden erfahren möchten, dann sei Ihnen hier ei¬ 
ne Quelle genannt, mit deren Hilfe Sie leicht in diesen rela¬ 
tiv unbekannten Zweig der praktischen Mathematik einstei¬ 
gen können: Grafik-Kurs 3 (Einstieg in die dritte Dimen¬ 
sion), 64’er Sonderheft 20 (1987) ab Seite 92. Die Erläu¬ 
terungen von Matrixexpress werden auf diesem Kenntnis¬ 
stand aufbauen und lediglich zusätzliche Aspekte behan¬ 
deln. 

So startet man den Matrixexpress 


Weil Matrixexpress in mehreren selbständigen Modulen 
geschrieben ist, kann man beispielsweise eine Matrixmulti¬ 
plikation statt durch den dafür vorgesehenen neuen Basic- 
Befehl, der gleich vorgestellt wird, auch durch einen SYS- 
Befehl ausführen lassen. Man benötigt in diesem Fall den 
ersten Teil des Programmes nicht und muß nur den Bereich 
$C0E9 bis einschließlich $C6BB laden. Den Aufbau von 
Matrixexpress zeigt Ihnen die Tabelle 1. 

Sieben neue Befehle 


Sieben leistungsstarke neue Befehle stellt uns Matrixex¬ 
press zur Verfügung. Alle beziehen sich auf Matrizen, also 
auf Arrays, die vorher unbedingt dimensioniert werden 
müssen. Werden Arrays angesprochen, die zuvor nicht 
oder falsch dimensioniert worden sind, dann reagiert Ma- 


Die Basic-Erweiterung Matrixexpress liegt als Objektcode 
- also in gebrauchsfertiger Form - im Maschinenprogramm 
»MATRIXASS V3« (Listing 1) vor. Sie belegt den Speicher¬ 
raum von $C000 bis $C96F und wird nach dem Laden (»LO¬ 
AD-MATRIXASS V3",8,1«) durch »SYS 49152« aktiviert. 


Adresse 

Programmteil 

$c000 

Startvektor 

ScOOe 

Prüfung ob neuer Befehl 

$c0b2 

Äquivalenz 

$c0e9 

Addition 

$c169 

Multiplikation 

$cK3 

Skalarprodukt 

$c237 

Determinanten 

$c431 

Inversion 

$c5d8 

Suchroutine für den 
Arraykopf 

$c608 

Ablage für gefundene 
Arrayadressen und Indi¬ 
zes 

$c638 

Adresseninkrementierung 

$c663 

Elementoffset von 
Startadresse 

$c6bc 

Titelbild 


Befehl 

Wirkung in 
Matrixschreibweise 

& EQU,X,Y 

(Y) = (X) 

@ ADD,X,Y,Z 

(Z) = (X) + (Y) 

@ SUB,X,Y,Z 

(Z) = (X)-(Y) 

@ SKP.X.K 

(X) = K ■ (X) 

@ MUL.XYZ 

(Z) = (X) - (Y) 

@ DET,X,D 

D = det (X) 

@ INV,X,Y,Z 

(Z) = (X)g-1ä 
(Y) = adj (X) 


Tabelle 1. 

Die neuen Befehle 
und Ihre Wirkungen 


Die Erweiterung meldet sich dann durch Ausgabe einer Be¬ 
fehlsliste auf dem Bildschirm. Interessierte finden den 
Quell-Code des Programms (Format: Profi-Ass 64) auf der 
Programmservice-Diskette dieser Ausgabe. Assem¬ 
bler-Kenner werden schon nach wenigen Zeilen im Quell- 
textlisting »MATRIXEXPRESS V3« feststellen, daß das Pro¬ 
gramm nicht unbedingt an einen bestimmten Speicherbe¬ 
reich gebunden ist. Nach dem Verschieben ist lediglich der 
Vektor $308/9 auf den neuen Startwert zu richten. 


Tabelle 2. 

Die Anordnung von 
MATRIXASS V3 
im Speicher 

trixexpress ausgesprochen widerwillig: Das Programm 
bleibt einfach stehen und kann aus der Katatonie nur durch 
<RUN/STOP> <RESTORE> erlöst werden. Verarbeitet 
werden zweidimensionale Fließkomma-Arrays mit beliebig 
vielen Spalten und Zeilen, wobei sich die Dimensionierung 
an die Regeln der Matrix-Algebra halten sollte: Falls man 
zwei nicht zueinander passende Matrizen miteinander mal¬ 
nimmt, reagiert Matrixexpress nicht mit einer Fehlermel¬ 
dung, sondern erzeugt einfach unsinnige Ergebnisse. Da¬ 
mit sind alle Schwächen des Programmes angesprochen. 
Der Anwender muß wissen, was er macht, denn das Pro¬ 
gramm fängt dessen Fehler nicht ab. 

Ein Programmsegment, das die Benutzung von Matrix¬ 
express vorbereitet, könnte also wie folgt aussehen : 

10 DIM X(10,10),U(10,2) :REM PLATZRESERVIERUNG 
FUER DIE MATRIZEN 

20 SYS 49152 :REM START DES MATRIXEXPRESS 
100 X(I,J) =3 :REM BELEGEN EINER MATRIX MIT 
WERTEN 

200 p@ (Neuer Befehl), Matrizen 

Alle neuen Befehle werden mit dem »Klammeraffen« (@) 
eingeleitet. Eine Übersicht der Befehle finden Sie in Tabelle 2. 
Sehen wir uns nun die Befehle im einzelnen an. 
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Äquivalenz 

Der Inhalt einer Matrix (X) wird in die Matrix (Y) kopiert. 
Die Matrix (X) bleibt dabei unverändert. Beide Matrizen 
müssen die gleiche Dimensionierung aufweisen: 

@ EQU,X,Y 

In Matrix-Schreibweise ergibt dieser Befehl die Wirkung 
von 

(Y) = (X). 

Addition zweier Matrizen 
Durch den Befehl 
@ ADD,X,Y,Z 

werden die Matrizen (X) und (Y) addiert und das Ergebnis 
befindet sich in der Matrix (Z). Alle drei Matrizen müssen die 
gleichen Dimensionen aufweisen. Die Ausgangsmatrizen 
(X) und (Y) bleiben unverändert: 

(Z) = (X) + (Y) 

Subtraktion zweier Matrizen 

Analog dem eben besprochenen Additionsbefehl führt 
der Befehl 
@ SUB,X,Y,Z 

zur Subtraktion der Matrix (Y) von der Matrix (X). Das Er¬ 
gebnis wird wieder in der Matrix (Z) festgehalten. Alle betei¬ 
ligten Matrizen müssen die gleichen Dimensionen aufwei¬ 
sen. Die Ausgangsmatrizen und bleiben unverändert: 

(Z) = (X) - (Y) 

Multiplikation einer Matrix mit einer Zahl 

Die Multiplikation einer Matrix (X) mit einer Zahl K (diese 
Konstante K nennt man einen Skalar) wird so durchgeführt, 
daß jedes einzelne Element von (X) mal K genommen wird. 
Es ergibt sich eine neue Matrix (X)’: 

(X)' = k # (X) 

Der Befehl 
@ SKP,X,K 

führt diese Multiplikation aus. Die Matrix (X) bleibt nicht er¬ 
halten: Dort befindet sich nach der Ausführung des Befehls 
das Ergebnis (X)’. Braucht man also (X) später noch einmal, 
dann sollte man diese Matrix rechtzeitig mittels des Befehls 
»@ EQU« retten. 

Multiplikation zweier Matrizen 

Viel Rechenzeit erspart der Befehl 

@ MUL,XY,Z 

der die Matrix (X) mit der Matrix (Y) malnimmt und das Er¬ 
gebnis in die Matrix (Z) schiebt. Hier muß man als Anwen¬ 
der besonders genau darauf achten, die Regeln der Matrix- 
Algebra einzuhalten. Der Befehl in der gezeigten Schreib¬ 
weise führt zur Multiplikation: 

(z) = (x) * (Y) 

Eine Vertauschung der Reihenfolge, wie in 

(Z)" = (Y) * (X) 

oder im Befehl »@ MUL ,Y,X,Z« führt meistens zu völlig ver¬ 
schiedenen Ergebnissen. Falls nicht gleich dimensionierte 
quadratische Matrizen benutzt werden (also solche, in de¬ 
nen die Anzahl der Zeilen gleich der Spaltenanzahl ist), 
muß man darauf achten, daß die Anzahl der Spalten des er¬ 
sten Faktors gleich der Anzahl der Zeilen des zweiten Fak¬ 
tors ist. Die Ergebnismatrix hat dann genausoviele Zeilen 
wie der erste Faktor und die gleiche Spaltenzahl wie der 
zweite Faktor. Dies verdeutlicht folgende Programmzeile: 
10 DIM Z(Z1,S2), X(Z1,S1), Y(S1,S2) 

In vielen Anwendungen arbeitet man mit solchen nicht¬ 
quadratischen Matrizen. Besonders wichtig sind dabei die 
Vektoren, die lediglich eine Zeile oder Spalte enthalten. 
Nach der Bearbeitung des Befehls »@ MUL« haben sich 
die Inhalte der Matrizen (X) und (Y) nicht verändert. 


Berechnung der Determinante einer Matrix 

Jeder quadratischen Matrix (X) läßt sich eindeutig eine 

Zahl D zuordnen, die Determinante dieser Matrix: 

D = DET (X) 

Besonders bei größeren quadratischen Matrizen bedeu¬ 
tet die Berechnung dieser Zahl einen recht hohen Arbeits¬ 
aufwand. Matrixexpress nimmt uns diesen Aufwand ab 
durch den Befehl 

@ DET,X,D 

Solche Determinanten sind nützlich zur Lösung von Glei¬ 
chungssystemen oder zur Volumenberechnung, um nur 
zwei Beispiele zu nennen. Für Leser, die häufiger mit Matri¬ 
zen arbeiten, ist es interessant zu erfahren, welchen Inhalt 
die Matrix (X) nach der Ausführung des Befehls »@ DET« 
besitzt. Es handelt sich um eine transformierte Diagonal¬ 
form der ursprünglichen Matrix (X). Aus diesen Formen las¬ 
sen sich im allgemeinen die Eigenwerte gut berechnen. 



5 ' 
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Bild 1. So entstehen aus einem linearen Gleichungssystem 
die drei Matritzen 


Zwei Voraussetzungen sind wichtig für diesen Befehl: 
Zum einen muß die Matrix (X) als quadratisches Array 
(Feld) dimensioniert sein. Zum anderen ist es unbedingt 
notwendig, möglichst noch vor der Dimensionierung der 
Arrays, die Variable D zu definieren. Sie wird mit einem be¬ 
liebigen Wert belegt (beispielsweise durch D = 0). Wäre D 
bis zu'-” Aufruf des Determinanten-Befehls noch nicht defi¬ 
niert, hätte das eine Verschiebung der Arrays, also der Ma¬ 
trizen, zur Folge. 

Berechnung der inversen und der adjungierten Matrix 

Eine inverse Matrix (X)' 1 ist die Matrix, die mit (X) multi¬ 
pliziert die Einheitsmatrix ergibt. Sie ist von großer Bedeu¬ 
tung bei der Lösung von linearen Gleichungssystemen. Die 
Anwendung der Matrix-Invertierung zeigt Ihnen das Demo¬ 
programm LIN.GLEICH.-SYS (Listing 1) in Zeile 40. Der Be¬ 
fehl zur Invertierung einer Matrix (X) lautet 
@ INV,X,Y,Z 

Das Ergebnis, also (X)' 1 , finden Sie nach der Ausfüh¬ 
rung in (Z). In (Y) wird die sogenannte adjungierte Matrix 
(adj(X)) abgelegt. Nicht jede Matrix kann man invertieren. 
Falls das Programm auf eine solche nicht invertierbare Ma¬ 
trix stößt, reagiert es mit der Meldung »Matrix ist nicht inver¬ 
tierbar«. Alle beteiligten Matrizen (X), (Y) und (Z) müssen 
quadratisch dimensioniert sein. 

Ein Programmbeispiel zur Lösung 
linearer Gleichungssysteme 


Im Programm »LIN.GLEICH.-SYS« (Listing 2) finden Sie ei¬ 
ne der wichtigsten Anwendungen der Matrizenrechnung 
im Prinzip vorgeführt: Das Lösen linearer Gleichungssyste¬ 
me. Das Verfahren dazu sei im folgenden erklärt. 

Gegeben sind drei lineare Gleichungen mit drei Unbe¬ 
kannten: 

5 = X 3 + 2 * X 2 + 3 # X 3 - 11 
= 2* X, - X 2 + 4 » X 3 - 3 

= - X 2 + X 3 

Man kann solch ein System in Matrixschreibweise notie¬ 
ren, wenn man die Zuordnungen aus Bild 1 verwendet. 
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Das ganze System heißt nun 

(Y) = (A) * (X) 

und es muß nach (X) aufgelöst werden. (A) wird Koeffizien¬ 
tenmatrix genannt. Kennt man zu dieser die inverse Matrix 
(A)-\ dann kann man damit multiplizieren: 

(A)- 1 x (Y) 

= (A)- 1 * (A) * (X) 

(A)-’*(A) aber ergibt die Einheitsmatrix und deren Be¬ 
sonderheit ist es, daß jede Matrix mit dieser Einheitsmatrix 
multipliziert wieder sich selbst ergibt (genauso, wie wir es 
in der herkömmlichen Mathematik von der Zahl 1 kennen). 
Somit wird aus der letzten Gleichung nun 
(A)’ 1 * (Y) = (X) 

und das Gleichungssystem ist gelöst. Ein System linearer 
Gleichungen ist also per Programm zu bearbeiten: 

1. Belegen der Koeffizientenmatrix (A) und des Vektors 
(Y). Das geschieht im Demo »LIN.GLEICH.-SYS« aus den 
DATA-Zeilen heraus in den Zeilen 20 und 25. 

2. Berechnen der inversen Koeffizientenmatrix (A)' 1 , die 
im Programm in Zeile 40 mittels des Befehls »@ INV« im 
Array (C) abgelegt wird. 

3. Multiplizieren dieser inversen Matrix mit dem Vektor 
(Y). Im Programm befindet sich durch den Befehl »@ MUL« 
das Ergebnis dann im Vektor (X), der in Zeile 60 ausgege¬ 
ben wird. 

Natürlich ist »LIN.GLEICH.-SYS« nur das Skelett eines 
Programmes zum Lösen linearer Gleichungssysteme. 
Aber es ist leicht auszubauen und durch die beiden neuen 
Befehle enorm schnell. 


Das Programm »MATRIX-DEMO« (Listing 3) wird nach dem 
Eingeben und Speichern auf Diskette durch »LOAD"MA¬ 
TRIX-DEMO",8« geladen und durch »RUN« gestartet. In 
Zeile 20 lädt es die Basic-Erweiterung »MATRIXASS V3« 
von Diskette, um sie in Zeile 22 durch SYS 49152 zu starten. 

Die Reservierung der Arrays geschieht in Zeile 54 durch 
den DIM-Befehl. Dabei laufen die Indizes von Null bis N = 
2. N wird in Zeile 50 und 52 aus den DATA-Zeilen am Ende 
des Programmes gewonnen. In der vorliegenden Form ha¬ 
ben wir es also ausschließlich mit quadratischen 
3,3-Matrizen zu tun. Etwas ungewöhnlich, aber durchaus 
möglich ist die Festlegung der Variablen D. Für eigene An¬ 
wendungen empfiehlt es sich jedoch, alle im Programm 
verwendeten Variablen vor der Dimensionierung der Ar¬ 
rays schon zu definieren (sie also zunächst mit beliebigen 
Werten, sogenannten Dummies, zu versehen). 

Das Hauptprogramm beginnt in Zeile 1000. Die neuen 
Befehle sind in den Programmzeilen 1030, 1040, 1050, 
1070, 1080, 1090 und 1100 zu finden. 

Zum Testen der Funktion aller Befehle sollten Sie auch 
einmal die Werte in den DATA-Zeilen ab Zeilennummer 
2010 verändern und ihre Auswirkungen auf die Ergebnisse 
der Berechnungen beobachten. Verändern Sie auch ein¬ 
mal die Dimensionierungen und die Art der Übergabe von 
N oder der Konstanten K. Wenn Sie alle Parameter statt 
durch DATA-Zeilen manuell eingeben, haben Sie aus dem 
Demo-Programm ein gebrauchsfähiges Werkzeug zur Ma¬ 
trizenmathematik gemacht. 

(Dr. U. Christ/H. Ponnath/rs) 
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8b 

c5 

cOfO 

: a9 

00 

85 

fc 

a9 

00 

85 

fb 

43 

c238 

00 

85 

c3 

a9 

04 

85 

fb 

20 

bd 

c380 

aO 

c9 

20 

28 

ba 

a5 

8d 

85 

2c 

c0f8 

: ad 

75 

c9 

ac 

76 

c9 

20 

a2 

e3 

c240 

d8 

c5 

ae 

77 

c9 

ca 

86 

a6 

fO 

c388 

cl 

a5 

8c 

85 

c2 

a4 

c3 

20 

90 

clOO 

: bb 

ad 

79 

c9 

ac 

7a 

c9 

20 

2f 

c248 

: a9 

00 

85 

8e 

85 

8b 

a5 

8b 

87 

c390 

63 

c6 

85 

71 

84 

72 

20 

50 

e3 

cl08 

: 67 

b8 

ae 

7d 

c9 

ac 

7e 

c9 

b6 

c250 

c5 

a6 

dO 

03 

4c 

14 

c3 

a5 

bd 

c398 

b8 

a6 

71 

a4 

72 

20 

d7 

bb 

93 

cllO 

: 20 

d7 

bb 

20 

38 

c6 

e6 

fb 

5c 

c258 

8b 

85 

cl 

a5 

8b 

85 

c2 

a4 

04 











cll8 

: a5 

fb 

cd 

78 

c9 

dO 

d9 

e6 

96 

c260 

c3 

20 

63 

c6 

20 

a2 

bb 

20 

2b 

Listing 1. 

»MATRIXASS V3« Stellt 

cl20 

: fc 

a5 

fc 

cd 

77 

c9 

dO 

cc 

8a 

c268 

58 

bc 

a2 

81 

aO 

c9 

20 

d7 

80 

sieben neue 

Basic- 

Befehle zur 


cl28 

: 60 

a9 

Oc 

85 

fb 

20 

d8 

c5 

cO 

c270 

bb 

a4 

8b 

84 

8f 

c8 

84 

8d 

5d 

Verfügung. Bitte mit dem 

MSE 


cl30 

: a9 

00 

85 

fc 

a9 

00 

85 

fb 

83 

c278 

a5 

8d 

85 

cl 

a5 

8b 

85 

c2 

dO 

eingeben 

(siehe 

Seite 

159). 
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GRAFIK-LISTINGS 


C64 


c3a0 : 

a5 

8 c 

c5 

a6 

fO 

05 

e6 

Bc 

bd 

c598 : 

20 

30 

32 

50 

a5 

51 

39 

Oa 

16 

c790 : 

84 23 20 le ab a2 13 aO 

cf 

c3a8 : 

4c 

6 e 

c3 

ea 

a5 

8 d 

c5 

a6 

a5 

c5aO : 

bO 

3e 

a9 

dO 

35 

22 

aO 

c7 

57 

c798 : 

01 86 d6 84 d3 20 6c e5 

de 

c3bo : 

fO 

05 

e6 

8 d 

4c 

18 

c3 

a5 

6 e 

c5a8 : 

84 

23 

20 

le 

ab 

4c 

74 

a4 

c2 

c7a0 : 

a9 49 85 22 aO c9 84 23 

44 

c3b8 : 

8 b 

c5 

a6 

fO 

05 

e6 

8 b 

4c 

3c 

c5bO : 

60 

a9 

00 

85 

a5 

20 

fd 

ae 

46 

c7a8 : 

20 le ab a2 15 aO 11 86 

be 

c3c0 : 

4e 

c2 

a9 

00 

85 

8 b 

a5 

8 b 

3c 

c5b8 : 

20 

79 

00 

85 

45 

20 

73 

00 

69 

c7b0 : 

d6 84 d3 20 6c e5 a9 64 

27 

c3c8 : 

85 

cl 

a5 

8 b 

85 

c2 

a4 

c 3 

91 

c5cO : 

fO 

04 

c9 

2 c 

dO 

09 

a9 

00 

a6 

c7b8 : 

85 22 aO c9 84 23 20 le 

ce 

c3d0 : 

20 

63 

c6 

20 

a2 

bb 

a2 

81 

ed 

c5c8 : 

85 

46 

c6 

7a 

4c 

dl 

c5 

85 

e7 

c7c0 : 

ab a2 15 aO 01 86 d6 84 

be 

c3d8 : 

aO 

c9 

20 

d7 

bb 

a9 

01 

85 

78 

c5dO : 

46 

e6 

7a 

dO 

02 

e6 

7b 

60 

48 

c7c8 : 

d3 20 6c e5 20 74 a4 60 

7o 

c3e0 : 

8 b 

a5 

8 b 

85 

cl 

a5 

8 b 

85 

54 

c5d8 : 

20 

bl 

c5 

4c 

el 

c5 

20 

b5 

04 

c7d0 : 

4d 41 54 52 49 58 20 49 

88 

c3e8 : 

c2 

a4 

c3 

20 

63 

c6 

20 

a2 

23 

c5eO : 

c5 

a6 

2 f 

a5 

30 

86 

5f 

85 

39 

c7d8 : 

53 54 20 4e 49 43 48 54 

aO 

c3f0 : 

bb 

a9 

81 

aO 

c9 

20 

28 

ba 

a8 

c5e8 : 

60 

c5 

32 

aO 

00 

bl 

5f 

c8 

68 

c7e0 : 

20 55 4d 4b 45 48 52 42 

CC 

c3f8 : 

a2 

81 

aO 

c9 

20 

d7 

bb 

a5 

b7 

c5fO 

c5 

45 

dO 

06 

a5 

46 

dl 

5f 

df 

c7e8 : 

41 52 00 c3 c3 c3 c3 c3 

bc 

c400 : 

8 b 

c5 

a6 

fO 

05 

e6 

8 b 

4c 

84 

c5f8 

fO 

Oc 

c8 

bl 

5f 

18 

65 

5f 

62 

c7fO : 

c3 c3 c3 c3 c3 c3 c3 c3 

ef 

c408 : 

el 

c3 

ea 

66 

8 e 

90 

Oe 

a5 

43 

c600 

aa 

c8 

bl 

5f 

65 

60 

90 

dd 

be 

c7f8 : 

c3 c3 c3 c3 c3 c3 c3 c3 

f7 

c4l0 : 

66 

c9 

80 

a9 

01 

85 

66 

bO 

e7 

c608 

20 

94 

bl 

18 

69 

04 

a6 

a5 

7e 

c800 

c3 c3 c3 c3 c3 c3 c3 c3 

ff 

c4l8 : 

04 

a9 

ff 

85 

66 

a5 

c3 

c9 

d8 

c6l0 

9d 

75 

c9 

e8 

a5 

59 

90 

02 

63 

c808 

c3 c3 c3 c3 c3 c3 c3 c3 

07 

c420 : 

00 

dO 

Od 

20 

bl 

c5 

20 

e7 

69 

c618 

e6 

59 

a5 

59 

9d 

75 

c9 

aO 

2 d 

c810 

c3 c3 c3 00 20 4d 41 54 

cO 

c428 

bO 

a6 

47 

a4 

48 

20 

d7 

bb 

ee 

c620 

01 

bl 

58 

e8 

9d 

75 

c9 

aO 

lb 

c818 

52 49 58 20 2d 20 45 58 

c3 

c430 

60 

a9 

Oc 

85 

fb 

20 

d8 

c5 

c8 

c628 

03 

bl 

58 

e8 

9d 

75 

c9 

e8 

b5 

c820 

50 52 45 53 53 2c 20 44 

f5 

c438 

aO 

00 

b9 

75 

c9 

48 

c8 

c4 

81 

c630 

86 

a5 

8 a 

c5 

fb 

dO 

a7 

60 

8 a 

c828 

52 2e 2d 49 4e 47 2e 20 

le 

c440 

fb 

90 

f7 

fO 

f5 

20 

b9 

cO 

68 

c638 

18 

ad 

75 

c9 

69 

05 

8 d 

75 

9d 

C830 

55 57 45 20 43 48 52 49 

d9 

c448 

aO 

Oc 

68 

99 

75 

c9 

88 

10 

23 

c640 

c9 

90 

03 

ee 

76 

c9 

18 

ad 

61 

C838 

53 54 20 20 00 c3 c3 c3 

76 

c450 

f9 

a9 

04 

85 

c3 

20 

42 

c2 

9b 

c648 

79 

c9 

69 

05 

8 d 

79 

c9 

90 

8 e 

c840 

c3 c3 c3 c3 c3 c3 c3 c3 

3f 

c458 

20 

9c 

c5 

a9 

bc 

aO 

b9 

20 

65 

c650 

03 

ee 

7a 

c9 

18 

ad 

7d 

c9 

lb 

c848 

c3 c3 c3 c3 c3 c3 c3 c3 

47 

o460 

Of 

bb 

a2 

90 

aO 

c9 

20 

d7 

90 

c658 

69 

05 

8 d 

7d 

c9 

90 

03 

ee 

62 

c850 

c3 c3 c3 c3 c3 c3 =3 c3 

4f 

c468 

bb 

ae 

77 

c9 

ca 

8 a 

85 

fd 

a4 

c660 

7e 

c9 

60 

be 

77 

c9 

ca 

86 

bl 

c858 

c3 c3 c3 c3 c3 c3 c3 c 3 

57 

c470 

85 

8 f 

c6 

8 f 

a9 

00 

85 

8 b 

28 

c668 

fd 

be 

78 

c9 

ca 

86 

fe 

a9 

4c 

c860 

c3 c3 c3 c3 c3 00 42 41 

36 

c478 

a9 

00 

85 

8 c 

a9 

00 

85 

8 d 

eO 

c670 

00 

85 

fb 

85 

a5 

a9 

00 

85 

95 

c868 

53 49 43 20 45 52 57 45 

04 

c480 

a9 

00 

85 

8 e 

a9 

00 

85 

c3 

95 

c678 

fc 

a5 

fc 

c5 

cl 

dO 

09 

a5 

51 

c870 

49 54 45 52 55 4e 47 20 

a4 

c488 

a5 

8 d 

85 

cl 

c5 

8 c 

90 

02 

94 

c680 

fb 

c5 

c2 

dO 

03 

4c 

aa 

c6 

f3 

c878 

46 55 45 52 20 4d 4l 54 

lf 

c490 

e6 

cl 

a5 

8 e 

85 

c2 

c5 

8 b 

2 f 

c688 

18 

a5 

a5 

69 

05 

85 

a5 

a5 

68 

C880 

52 49 5a 45 4e 52 45 43 

c9 

c498 

90 

02 

e6 

c2 

a5 

cl 

85 

cl 

3d 

c690 

fc 

c5 

fe 

fO 

05 

e6 

fc 

4c 

61 

c888 

48 4e 55 4e 47 00 53 59 

8 b 

c4a0 

a5 

c2 

85 

c2 

a4 

c3 

20 

63 

10 

c698 

79 

c6 

a5 

fb 

c5 

fd 

fO 

05 

77 

c890 

4e 54 41 58 20 44 45 52 

42 

c4a8 

c6 

20 

a2 

bb 

a5 

8 d 

85 

cl 

ff 

c6a0 

e6 

fb 

4c 

75 

c6 

a9 

12 

4c 

eO 

c898 

20 4e 45 55 45 4e 20 42 

a7 

c4b0 

a5 

8 e 

85 

c2 

aO 

08 

20 

63 

e8 

c6a8 

3a 

a4 

18 

b9 

75 

c9 

65 

a5 

f8 

c8a0 

45 46 45 48 4c 45 3a 00 

3b 

c4b8 

c6 

20 

d7 

bb 

a5 

8 e 

c5 

8 f 

01 

c6b0 

be 

76 

c9 

90 

01 

e8 

86 

c4 

29 

c8a8 

40 45 51 55 2c 58 2c 59 

73 

c4c0 

fO 

07 

e6 

8 e 

a5 

8 e 

4c 

82 

c4 

c6b8 

a4 

c4 

aa 

60 

a9 

93 

20 

d2 

d2 

c8b0 

20 20 20 20 20 20 20 20 

bO 

c4c8 

c4 

a5 

8 d 

c5 

8 f 

fO 

07 

e6 

e5 

c6c0 

ff 20 -44-a6 a2 OC *0 

00 

62 

c8b8 

28 59 29 3d 28 58 29 00 

69 

c4d0 

8 d 

a5 

8 d 

4c 

7e 

c4 

a9 

00 

dl 

c6c8 

86 

d6 

84 

d3 

20 

6 c 

e5 

a9 

a5 

c8c0 

40 4l 44 44 2c 58 2c 59 

23 

c4d8 

c5 

8 f 

dO 

03 

4c 

04 

c5 

aO 

37 

c6d0 

eb 

85 

22 

aO 

c7 

84 

23 

20 

88 

c8e8 

2c 5a 20 20 20 20 20 20 

fl 

c4e0 

00 

b9 

8 b 

00 

48 

c8 

cO 

05 

78 

c6d8 

le 

ab 

a9 

14 

85 

22 

aO 

c8 

36 

c8dO 

28 5a 29 3d 28 58 29 2b 

58 

c4e8 

dO 

m 

a5 

fd 

48 

a5 

8 f 

85 

d8 

c6e0 

: 84 

23 

20 

le 

ab 

a9 

3d 

85 

ca 

c8d8 

28 59 29 00 40 53 55 42 

70 

c4f0 

a6 

a9 

08 

85 

c3 

20 

48 

c2 

01 

c6e8 

22 

aO 

c8 

84 

23 

20 

le 

ab 

20 

c8e0 

2 c 58 2c 59 2c 5a 20 20 

c5 

c4f8 

68 

85 

fd 

aO 

04 

68 

99 

8 b 

b7 

c6f0 

: a9 

66 

85 

22 

aO 

c8 

84 

23 

lb 

c8e8 

20 20 20 20 28 5a 29 3d 

99 

c500 

00 

88 

10 

f9 

18 

a5 

8 b 

65 

2 f 

c6f8 

: 20 

le 

ab 

a2 

05 

aO 

01 

86 

cd 

c8f0 

28 58 29 2d 28 59 29 00 

26 

c508 

8 c 

6 a 

90 

10 

a5 

66 

c9 

80 

a5 

c700 

: d6 

84 

d3 

20 

6 c 

e5 

a9 

8 e 

cb 

c8f8 

: 40 53 4b 50 2c 58 2c 4b 

8 c 

c510 

a9 

01 

a9 

01 

85 

66 

bO 

04 

lb 

c708 

: 85 

22 

aO 

c8 

84 

23 

20 

le 

fe 

c900 

: 20 20 20 20 20 20 20 20 

00 

c518 

a9 

ff 

85 

66 

a5 

8 b 

85 

cl 

3f 

c710 

: ab 

a2 

07 

aO 

01 

86 

d6 

84 

8 b 

c908 

: 28 58 29 3d 4b 2a 28 58 

a6 

c520 

a5 

8 c 

85 

c2 

a9 

04 

85 

c3 

ld 

c718 

: d3 

20 

6 c 

e5 

a9 

a8 

85 

22 

Od 

c910 

: 29 00 40 4d 55 4c 2c 58 

Oc 

c528 

a5 

cl 

85 

cl 

a5 

c2 

85 

c2 

53 

c720 

: aO 

c8 

84 

23 

20 

le 

ab 

a2 

91 

c918 

: 2c 59 2c 5a 20 20 20 20 

Ob 

C530 

a4 

c3 

20 

63 

c6 

20 

d7 

bb 

6 f 

c728 

: 09 

aO 

01 

86 

d6 

84 

d3 

20 

b4 

c920 

: 20 20 28 5a 29 3d 28 58 

74 

0538 

a5 

8 c 

c5 

fd 

fO 

07 

e6 

8 c 

50 

c730 

: 6c 

e5 

a9 

cO 

85 

22 

aO 

c8 

8 f 

c928 

: 29 2a 28 59 29 00 40 44 

b8 

q540 

: a5 

8 c 

4c 

7a 

c4 

a5 

8 b 

c5 

cl 

c738 

: 84 

23 

20 

le 

ab 

a2 

Ob 

aO 

57 

c930 

: 45 54 2c 58 2c 44 20 20 

5b 

0548 

: fd 

fO 

07 

e6 

8 b 

a5 

8 b 

4c 

09 

c740 

: 01 

86 

d6 

84 

d3 

20 

6 c 

e5 

86 

c938 

: 20 20 20 20 20 20 20 44 

81 

c550 

: 76 

c4 

ea 

a9 

Oc 

85 

fb 

aO 

36 

c748 

: a9 

de 

85 

22 

aO 

c8 

84 

23 

ae 

0940 

: 20 3d 44 45 54 28 58 29 

f3 

c558 

: 00 

b9 

75 

c9 

48 

c8 

c4 

fb 

al 

C750 

: 20 

le 

ab 

a2 

Od 

aO 

01 

86 

a5 

c948 

: 00 40 49 4e 56 2c 58 2c 

05 

c560 

: 90 

f7 

fO 

f5 

aO 

00 

b9 

79 

ca 

c758 

: d6 

84 

d3 

20 

6 c 

e5 

a9 

f8 

fö. 

c950 

: 59 2c 5a 20 20 20 20 20 

le 

c568 

: c9 

99 

75 

c9 

b9 

7d 

o9 

99 

76 

c760 

: 85 

22 

aO 

c8 

84 

23 

20 

le 

56 

c958 

: 20 28 5a 29 3d 28 58 29 

11 

c570 

: 79 

c9 

c8 

cO 

04 

90 

ef 

20 

dd 

c768 

: ab 

a2 

Of 

aO 

01 

86 

d6 

84 

e5 

c960 

: 5e 2d 31 00 28 59 29 3d 

Oe 

c578 

: b9 

cO 

aO 

Oc 

68 

99 

75 

c9 

f8 

c770 

: d3 

20 

6 c 

e5 

a9 

12 

85 

22 

bl 

c968 

: 4l 44 4a 28 58 29 00 00 

32 

c580 

: 88 

10 

f9 

a9 

90 

85 

47 

a9 

69 

c778 

: aO 

c9 

84 

23 

20 

le 

ab 

a2 

69 




e588 

: c9 

85 

48 

aO 

00 

b9 

7d 

c9 

91 

c780 

: 11 

aO 

01 

86 

d6 

84 

d3 

20 

14 




c590 

: 99 

75 

c9 

c8 

cC 

04 

90 

f5 

ca 

c788 

: 6c 

e'5 

a9 

2 e 

85 

22 

aO 

c9 

96 


Listing 1. (Schluß) 


10 DIM X<2,0>,Y(2,0>,A<2,2>,B<2,2>,C<2,2> 
12 REM *****EINGABE DER ELEMENTE***** 

20 FOR 1=0 TO 2:FOR J=0 TO 2:READ A(I,J):N 
EXT JiNEXT I 

25 FOR 1=0 TO 2:READ Y<I,0):NEXT I 
28 REM *******MATRIZENRECHNUNG******* 

40 ©INV,A,B,C 
50 ©MUL , C, Y, X 

55 REM *******LOESUNG AUSGEBEN******* 


60 FOR 1=0 TO 2:PRINT X(I,0):NEXT I 
65 REM 

80 DATA 1, 2, 3 :REM MATRIX (A) 

82 DATA 2,-1, 4 
84 DATA 0,-1, 1 
86 REM 

90 DATA 5,11, 3 :REM VEKTOR <Y> 

Listing 2. Ein einfaches Programmbeispiel zum Lösen 
linearer Gleichungssysteme 
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C64 


GRAFIK-LISTINGS 


10 REM ******************************** 

1 1 REM * * 

12 REM •» DEM0-PR06RAMM ZUR WIRKUNBS- * 

13 REM * WEISE DER BASIC-ERWEITERUNG * 

14 REM * - MATRIXEX.PRESB - * 

15 REM * * 

16 REM * DR.U.CHRIST 1986 * 

17 REM * * 

10 REM ■fr*'*********-»**#***'***«**#*****'** 

19 REM 

20 IF A=0 THEN A= 1: LOAD" MATRI XASS V3",0,l 
22 F'OK'E 49162,96:SYS 49152:POKE 49162,32 
2* REM 

53 READ N : REM AMZAHL DER ZEILEN UND SPAL 
TEN 

32 M=N-1 : REM BEI N=3 ENTHAELT MATRIX 9 
ELEMENTE 

54 DIM AB(N,N),CD < N,N) , EF (N,N) , D 
56 READ K 

50 GOTO 103B 
98 : 

103 REM SEITE 0 

102 REM - 

104 PRINT CHR*(147) 

110 POKE 50928,96:SYS 50884:POKE 50728,169 
120 RETURN 
198 ; 

200 REM SEITE 1 
202 REM - 

204 T1*="IM BEISFIEL EINGESETZTE MATRIZEN- 


210 GOSUB 130 

212 POKE 211,0:POKE 214,3:SYS 58640 
214 PRINT TI*:PRINT 

218 PRINT" {RVSOM,SPACEJMATRIX (AB) ".-PRINT 
222 FOR 1=0 TO N:PRINT AB(I,0),AB<I,1>,AB( 

1.2) :NEXT I 

224 PR I NT " C C C CC C. CC C- C- C C C C C C C C CC C- C CC C C.C.C-.C C C .G. 
cccccccc " 

226 POKE 211,0:POKE 214,11:SYS 58640 
228 PRINT"CRVSON,SPACEJMATRIX (CD) ":PRINT 
230 FOR 1=0 TO N:PRINT CD(I,0),CD(I,1),CD( 
1,25:NEXT I 

232 PRINT" cccccccccccccccccccccccccccccccc 

234 POKE 211,0:POKE 214,17:SYS 58640 

236 PRINT"{RVSON,SPACEJMATRIX (EF) PRINT 

238 FOR 1=0 TO N:PRINT EF(I,0),EF(I,1),EF( 

1.2) -.NEXT I 

240 T3*=" BITTE EINE TASTE DRUECKEN " 

241 ST*=CHR*(18>:Z=Z+1:IF Z=20 THEN Z=0:IF 

Z<5 THEN ST*=CHR*(146) 

242 POKE 211,5:POKE 214,23:SYS 58640 

243 PRINT ST*T3* 

244 RET A*: IF A*=""THEN 241 

250 RETURN i 

252 : 


1000 REM HAUPTPROGRAMM 
1002 REM - 

1004 FOR 1=0 TO N.-FOR J=0 TO N: READ AB(I,J 
):NEXT J:NEXT I 

1006 FOR 1=0 TO N:FOR J=0 TO N:READ CD(I,J 
):EF(I,J)=0:NEXT J:NEXT I 
1010 RESTORE 
1012 GOSUB 200 
1014 GOSUB 300 

1020 ON A-4B GOTO 1030,1040,1050,1060,1080 
,1090,1100 

1026 

1028 REM ******* EGUIVALENZ *********** 

1030 SEQU,AB,CD 

1031 T5$="CRVS0N,2SPACE>(CD)=(AB){2SPACEJ" 

1032 GOSUB 400 
1036 : 

1038 REM ******** ADDITION ************ 

1040 @ADD,AB,CD,EF 

1041 T5$="<RVSON,2SPACE >(EF) = (AB) + (CD) " 

1042 GOSUB 400 
1046 : 

1048 REM ******* SUBTRAKTION*********** 

1050 @SUB,AB,CD,EF 

1051 T5*="{RVS0N,2SPACEJ(EF)=<AB>-(CB) " 

1052 GOSUB 400 
1056 : 

1058 REM ***** PRODUKT MIT SKALAR ***** 
1060 GOSUB 100 

1062 PRINT:PRINT:PRINT"FUER DIE MULTIPLIKA 
TION WURDE FOLGENDE" 

1064 PRINT"KONSTANTE GEWAEHLT" 

1066 F'RINT: PRINT: PRINT" {7SPACEJK =" ,K 

1067 GOSUB 240 

1070 OSKP,AB,K 

1071 T5*='XRVS0N,2SPACE>(AB)=K*(AB> " 

1072 GOSUB 400 
1076 : 

1.078 REM ****** MULTIPLIKATION ******** 
'40BU LMUL , AB, CD, EF 

1081 T5T="IRVSON,2SPACE>(EF)=(AB)*(CD) " 

1082 GOSUB 400 
1086 : 

1088 REM ******* DETERMINANTE ********* 
1090 @DET,AB,D 
1092 GOSUB 100 

1094 PRINT: PRINT: PRINT”DEF( WERT DER DETERM 
INANTE IST" 

1095 PRINT:PRINT"I6SPACE>D=",D 

1096 T5T="{RVSON,SPACEJDETERMINANTENRECHNU 
NG " 

1097 GOSUB 240:GOSUB 400 

1098 : 

1099 REM *** ADJ'JNGIERTE U. INVERSE *** 

1100 @1NV,AB,CD,EF 

1101 T5'T=" <RVSQNJ (EF) =INV (AB) , (CD) =ADJ (AB) 

II 


300 REM SEITE 2 

302 REM - 

304 GOSUB 100 

310 POKE 51148,96:SYS 50884:POKE 51148,32 
312 POKE 211,0:POKE 214,22:SYS 5B640 
314 PRINT"ISFACE,RVSON,SPACEJBITTE WAEHLEN 
SIE EINEN BEFEHL AUS " 

322 FOR 1=1 TO 7:POKE 211,34:POKE 214,5+2* 
I:SYS 58640 
324 PRINT CHRit (18)1 
326 NEXT I 

330 GET A$:IF A$=""THEN 330 
332 A=ASC(A*>:IF A<49 OR A>55 THEN 330 
340 RETURN 
342 : 

400 REN SEITE 3 
402 REM - 

410 Tl$="<RVSON,SPACEJLOESUNG VON :"+T5$ 
412 GOSUB 210:READ X:READ X:GOTO 1000 
430 RETURN 
996 : 

998 REM - 


1102 GOSUB 400 
1200 END 
1996 : 

1998 :- 

2000 DATA 3 : REM ANZAHL DER ZEILEN UND 

SPALTEN 

2002 : 

2004 DATA 3.41 : REM KONSTANTE 


2006 

: 





2008 

REM ELEMENTE 

DER 

MATRIX 

(AB) 

2010 

DATA 1, 2, 

2 




2012 

DATA 3, 1, 

0 




2014 

DATA 1 , 1 , 

1 




2016 

8 





2020 

REM ELEMENTE 

DER 

MATRIX 

(CD) 

2022 

DATA 1, 2, 

3 




2024 

DATA 2,-1 , 

4 




2026 

DATA 0,-1, 

1 





Listing 3. »MATRIX-DEMO« ist ein Programm zum 
Austesten der neuen Basic-Befehle 
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Wenn Gutenberg das gewußt hätte! 

Schriftzeichen in allen nur denkbaren Formen und Größen zaubert 
»Schreibmaschine» auf Ihren Drucker. Die Qualität des Schriftbildes ist 
dabei erster Klasse und besticht neben Variantenreichtum 
durch seine Proportionalschrift. 


W arum ist der gedruckte Text einer Zeitschrift leichter 
zu lesen als ein Ausdruck in Pica oder sogar NLQ? 
Der Grund liegt darin, daß bei dieser Schriftart nicht 
alle Zeichen gleich breit sind, sondern jedem Zeichen der 
ihm gebührende Platz eingeräumt wird. Dadurch entsteht 
ein geschlossenes, harmonisches Schriftbild. 

Bei Kunstschriften kommt hinzu, daß sich benachbarte 
Zeichen überlappen. Obwohl dies am Computer-Bild¬ 
schirm nicht sichtbar wird, ist das Schreiben mit solchen 
Schriften mit dem Programm »Schreibmaschine« (Ustings 
1 und 2) kein Problem. 

Ästhetisches Schriftbild 


5 * Za ns'cfir't f t 

()* Q3DasKsr3 c uyo3 !c ä$ jLf2>$ r £xyxj'öJt= ysccvsmm*.! 

'tXö+JGs’O’StOv- prverijuioytü*/? asdfyhjkl&ä- yxcvbnm,,/ 

| a Sfie SSucAstabenfcrrmen der 3*laruschrif't sind der 
Lateinischen Schrift entnommen. 

Bild 2. Die »Planschrift« ist aus Platzgründen leider nur auf 
der Programmservice-Diskette zu finden 


»Schreibmaschine« leistet zweierlei: Zum einen unterstützt 
das Programm die wichtigsten Schriftarten des Druckers 
(Pica, NLQ, Italic und Proportional), zum anderen lassen 
sich im Grafikmodus beliebige (auch selbst erstellte) Kunst¬ 
schriften zu Papier bringen. Die Bilder 1 bis 9 zeigen Ihnen, 
zu welchen Leistungen dieses Programm fähig ist. Die Li¬ 
stings, diejeweils eine Schriftart erzeugen, sind dabei recht 


VtMAaH i 

VB—nMam 

r-i^xA'()« sysiKnwoimts ttseyyxrftXMte yjrcvcww 

/B34S07890*- ywerttuiefilPAß usdfghjklöä* yxcvbnm,,/ 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn. 
Ott 'gtUabwünscAe und r QcscAenAe 
xu unterer fflecAteU hüben uns 
seAr gefreut. 


Bild 1. Kunstschrift »Candice« von Schreibmaschine liegt 
auch als Listing zum Abtippen vor 

lang. Da wir in dem Ihnen vorliegenden Sonderheft jedoch 
noch viele andere interessante Beiträge veröffentlichen, 
finden Sie drei der abgebiideten Schriftarten als Listing. 
Wir haben die Schriften »Candice« (Bild 1, Listing 5) und 
»Citta« (Bild 3, Listing 6) ausgewählt. Auf der Programmser¬ 


vice-Diskette dieser Ausgabe finden Sie aber alle Zeichen¬ 
sätze sowie weitere Grafiksymbole. Wie Sie in den Bildern 
7 und 8 sehen, befinden sich darunter auch ein griechi¬ 
scher und ein kyrillischer Zeichensatz (beispielsweise für 
russische und bulgarische Sprache). Natürlich wird bei 
Verwendung dieser Schriften auch der Bildschirmzeichen¬ 
satz geändert, damit die Zeichen auf dem Bildschirm zu 
kontrollieren sind. 

Sollten alle diese Zeichensätze Ihren Ansprüchen noch 
nicht genügen, so steht es Ihnen offen, mit dem »Zeichen¬ 
editor« (Listing 4) einzelne Buchstaben oder einen ganzen 
Zeichensatz neu zu gestalten. Sie können uns Ihre eigenen 
Kreationen auch gerne zusenden. Wir sind sehr gespannt 
auf die Einsendungen und werden die besten in weiteren 
Ausgaben veröffentlichen. 

Das Programm »Schreibmaschine« hat eine benutzer¬ 
freundliche Menüführung (Bild 10). Die Druckeinstellungen 
und Diskettenfunktionen sind mit den dazu benötigten Ta¬ 
sten am Bildschirm dargestellt. Der Texteditor kommt ohne 
Formatsymbole im Text aus, was der Lesbarkeit zugute 
kommt, jedoch viel Speicherplatz benötigt. Fettdruck und 
Kursivschrift werden durch Farbwechsel angezeigt, Unter¬ 
streichungen werden am Bildschirm direkt sichtbar. Da im 
komprimierten Schriftmodus bis zu 120 Zeichen in eine Zei¬ 
le passen, ergeben drei Bildschirmzeilen eine Textzeile. Ein 
Sprite markiert das exakte Zeilenende. Die momentane Po¬ 
sition des Cursor wird durch einen »Unterstrich« angezeigt. 

Im Menükopf sind alle wichtigen Einstellungen stets 
sichtbar. Die Einstellungen gelten nur für die Zeile, die Sie 
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gerade bearbeiten. Jede Zeile kann daher eine andere 
Schriftart beinhalten. Vom Text sind fünf Zeilen am Bild¬ 
schirm sichtbar, in den Speicher passen 67 Zeilen, also et¬ 
was mehr als eine DIN-A4-Seite. Beim Eingeben wird wahl¬ 
weise jede fertige Zeile sofort ausgedruckt (zur Kontrolle) 
oder der vollständige Text ab einer bestimmten Zeile, 


Benutzerfreundliches Menü 


Der Editor arbeitet in einigen Funktionen anders, als man 
es von üblichen Textverarbeitungen gewohnt ist. Da der 
Zeichensatz zeilenweise gewechselt werden kann, wird 
während des Druckvorgangs oder der Eingabe unter Um¬ 
ständen ein weiterer Zeichensatz von Diskette geladen. 
Dies macht nachträgliche Änderungen des Textes und die 
Übernahme eines zu langen Wortes in die nächste Zeile 
(Wordwrapping) unmöglich. Bei nachträglichem Ändern 
der Zeilenlänge sollte der Text vor dem Ausdruck zeilenwei¬ 
se kontrolliert werden. Wie Sie sehen, bleiben im Vergleich 
zum Komfort einer herkömmlichen Textverarbeitung einige 
Wünsche offen. Dieses Programm soll jedoch keine Kon¬ 
kurrenz zu den bekannten Textverarbeitungen sein, viel- 



I"oO* A, 00 QWERTZUIOPü ASDFGHJKLÖÄ= YXCVBNM;:? 
1234567890+- qwertzuiopii^ß asdfghjklöä= yxcvbnm,./ 

C3(^»CDlQ>C3(Q>C3^)ai0lCDC^>C=>(QlC3 <Q> CD CD C3 ° ° C3 C 


lOQaoO 


Die Schriftart 'Cltta' gleicht der Roportional- 
schrift des Druckers. 


Schriftart : 

Tbwn 

rts'agX&'aGO QWERTZUIOPÜ RSDFHHJKLÖH» 
1234567BSG+- qwertzuiopü-Xß asdighjklöä« 


YXCVBNM;:? 

yxcvbnm,./ 


ST- 


Jadar gute Matrixdruckar basitzt Fähigkeiten, die 
gängige TäxtverarbeitungBprogramme leider 
verkümmern lassen. 




Bild 3. »Citta« ist ebenfalls im Heft abgedruckt 

mehr besticht »Schreibmaschine« durch seine überragen¬ 
de Druckerausgabe. Texte in ungewöhnlichen Schriftarten 
haben ihren eigenen Reiz, besonders wenn eine derart ho¬ 
he Druckqualität (siehe Bilder 1 bis 9) geboten wird. 


Bild 4. Die Schriftart »Town« ist ein weiteres 
sehr schönes Beispiel der »Kunstschriften« 

manuelles Einfügen weiterer Leerzeichen. Bei den Kunst¬ 
schriften werden die Wortabstände hingegen punktweise 
verändert, so daß hier keine Probleme auftreten. 

<F8>: Sofortdruck an/abschalten 
Ist diese Funktion aktiviert, wird jede Zeile sofort nach 

< RETURN > gedruckt. Sie erkennen das Aktivieren dar¬ 
an, daß in der Anzeige der Begriff »druck« angeleuchtet 
wird. 

< *- >: Globale Einstellung 

Die für die momentane Schriftzeile gültigen Parameter 
können einzeln auf andere Zeilen übertragen werden. Da¬ 
nach sollten die Zeilen jedoch kontrolliert werden. 
<CTRL>: Schriftart wählen 
Durch Halten der CTRL-Taste können Sie die gewünsch¬ 
te Schriftart einstellen, die in der Menü-Zeile angezeigt 
wird. Zum Übernehmen läßt man die Taste einfach los. Vor¬ 
aussetzung ist dabei, daß sich die gewählte Schriftart be- 
its irr Speicher oder auf der eingelegten Diskette befin- 
>t. Ein Kurzer Druck auf die CTRL-Taste bewirkt ein Wei¬ 
terspringen auf die nächste Schriftart. 

<CLR/HOME>: Zeile löschen/einfügen 
Mit <SHIFT CLR/HOME> wird eine Zeile eingefügt, mit 

< CLR/HOME > gelöscht. Achtung: Gelöschte Zeilen sind 
unwiederbringlich verloren. 

Die CBM-Taste aktiviert das links oben im Bildschirm 
sichtbare Menü. Alle im folgenden beschriebenen Funk¬ 
tionen werden erst nach dieser Aktivierung (mit <CBM>) 
durch Eintippen des Anfangsbuchstabens aktiviert. 


Die Systembefehle 


Die Einstellung aller Druckparameter wird stets aktuell im 
Menükopf angezeigt (Bild 10). Die Parameter werden mit je¬ 
der Zeile neu gespeichert. Zur Einstellung werden entwe¬ 
der die Funktionstasten oder Kombinationen mit der CBM- 
Taste verwendet. 

< Fl > bis <F3>: Linken/rechten Rand ändern 
Das Sprite, das den rechten Rand anzeigt, kann auch 
überschrieben werden. 

<F5>: Zeilenabstand variieren 
Es kann zwischen vier Einstellungen gewählt werden. 
<F6>: Schriftbreite einstellen 
Durch Betätigen der Taste <F6> wird die nächste 
Schriftbreite aktiviert. 

<F7>: Blocksatz an/aus 

Ist diese Funktion eingeschaltet, ist der Begriff »block« 
hell dargestellt. In Pica, NLQ und Proportional werden wie 
üblich Leerzeichen eingeschoben, allerdings nicht mehr 
als eines zwischen zwei Wörtern. Kann die Zeile auf diese 

Weise nicht formatiert werden, blinkt die Blocksatzanzeige. 
Ein korrekter Blocksatz läßt sich dann nur durch Verändern 
des Textes in dieser Zeile erreichen, notfalls auch durch 


Schriftart ! 

ANTIQUA 

l'KHOZ« (10 QWERTZUIOPÜ^ ASDFGHJKLÖÄ- yXCVBNMp? 
1254567890+- qvwrtzulopütß asdfghjklöä* yxcvbnm,./ 

KXKNKHKHfiHKHKHKHNNHHKHKHKNKHKHKHKNKHKHKHNHNHKKKHNNKHKHUHKhNHHHKHKNKH 

Die menschenähnlichen Wesen, die auf einem 
kleinen Planeten in der Milchstraße leben. 


Bild 5. Mal ganz auf antik mit »Antiqua«. Sie sehen: Die 
Schriftenvielfalt scheint keine Grenzen zu kennen. 


<U>: Unterstreichen 

Der Text wird auch auf dem Bildschirm unterstrichen. 

<F>: Fettdruck 

Diese Einstellung ist in jeder Schriftart möglich. Zur 
Kennzeichnung ändert sich am Bildschirm die Zeichenfar¬ 
be des gewählten Bereichs. 
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<K>: Kursivschrift 

Hier wird die Schriftart Italic des Druckers angespro¬ 
chen. Diese Auswahl ist nur möglich, wenn vorher Pica als 
Schriftart gewählt wurde. 

<S>: Save (Sichern) 

Die Textseite wird gespeichert, als Kennung wird dem 
File-Namen ein »S-« vorangestellt. 

<L>: Load (Laden) 

Lädt eine Textseite, der Text im Speicher wird vorher voll¬ 
ständig gelöscht. Sollten Sie diesen Text also weiter benöti¬ 
gen, ist er vor dem Laden des neuen Textes unbedingt zu 
sichern (siehe »Save«), 

<T>: Text löschen 

Der gesamte Textspeicher wird gelöscht. Der Befehl ist 
also, wie auch »Load« mit Vorsicht zu verwenden. 

<D>: File von Diskette löschen 

Auch während der Bearbeitung können Texte gelöscht 
werden, die sich auf der eingelegten Diskette befinden. 


Die Sekundäradresse muß Ihr Interface auf Linearkanal 
schalten, das heißt: Es darf keine ASCII-Code-Wandlung 
vornehmen. Sollte eine Sekundäradresse für diese Um¬ 
schaltung nicht ausreichen, fügen Sie die erforderlichen 
Zeilen am besten am Anfang des Hauptprogramms ein, 
und vergessen Sie nicht, die geöffneten Files wieder mit 
»CLOSE (File-Nummer)« zu schließen. Erfolg haben Sie 
freilich nur dann, wenn Ihr Drucker die angesprochenen 
Funktionen auch besitzt. Ein zweites Problem ergibt sich 
aus den unterschiedlichen Zeichenbelegungen von C64 
und Drucker. 

Neue Zeichen 


Ein Maschinenprogramm wandelt die Daten anhand der 
Tabelle in Zeilen 81-82 um, »(0,125)« bedeutet beispielswei¬ 
se, daß Bildschirmcode 0 am C 64 als 125 zum Drucker ge- 


$vattuv 

*****#*********#*****#*********************x** 

r<s*£jsroo R<5ö$«£)3«tfft= smkmmw 

1234567890+- qmfrtjutopüxfi aföföi)jfltfä= g^cübiun,./ 

<b& _##*_ M* _ *M _«s? 

*)»n allen JRüttern auf £>er Stielt 
tft feine, öle mit ft gefällt, 

»ie meine Htattet, 


Bild 6. »Fraktur« - eine Schrift für Poeten 

Dies ist notwendig, wenn man beispielsweise einen Text 
bearbeitet und unter gleichem Namen speichert. 

<P>: Drucken ab gewünschter Zeile 
Der Druckvorgang kann jeweils am Beginn einer neuen 
Zeile durch Tastendruck unterbrochen werden. 

So arbeitet das Programm 


Die Listings 1, 4 und 8 bitte mit dem Checksummer einge¬ 
ben. Die Listings 2,3,5,6 und 7 sind mit dem MSE einzuge¬ 
ben. Eingabehinweise zum MSE und dem Checksummer 
finden Sie auf Seite 159. Das Programm ist größtenteils in 
Basic geschrieben, benutzt aber aus Zeitgründen zahlrei¬ 
che Maschinenspracheroutinen (Listing 2). Da das Basic- 
Programm möglichst wenig Platz im Speicher belegen soll, 
ist es wenig strukturiert. Für Interessierte ist eine Liste der 
Maschinenroutinen beigefügt (Tabelle 1). Den Kern des 
Programms bildet eine Schleife in den Zeilen 200 bis 215. 
Hier erfolgt die Tastaturabfrage und Texteingabe. Von die¬ 
sem Programmteil aus wird in die entsprechenden Unter¬ 
programme (ab Zeile 300) verzweigt. Die Belegung der Va¬ 
riablen finden Sie in Tabelle 2. 

Druckeranpassung 


Das Programm ist in der abgedruckten Form an einen Ep¬ 
son FX-85 angepaßt. Es arbeitet jedoch auch mit anderen 
Matrix-Druckern zusammen, die den ESC/P-Code verwen¬ 
den. Sämtliche benutzten Druckerbefehle und die Sekun¬ 
däradresse für das Interface sind am Ende des Programms 
aufgeführt (Zeilen 910 bis 930). Ändern Sie diese anhand 
der Angaben in der Bedienungsanleitung Ihres Druckers. 


Schriftart! 

EAAHNIKH 

I I I I I T I I I I T I I~r^T 

rLtf'OO wQEPTriOirS A£A<WH©KA"'= ZXS'FBNMi,? 
t254567890»- aucpruflum^S 

♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

'Ev apxn n» 6 Xoyo^, MIL 6 \ 6 yoq 
ttpAi; töv 9 k 5 v, Hai 3 eo<; rjv 6 Xöyoq. 


Bild 7- ft Nes ist drin, auch griechisch... 

schickt wird. Nicht aufgeführte Zeichen werden nach dem 
Prinzip 

IF A> 32 THEN A=A+96 

gewandelt. Korrigieren Sie nach einer Änderung auch Zeile 
83, damit die Anzahl der Datas stimmt. 


Die Adressen der Maschinenroutinen 


49 158 

(SC006) 

Verschleberout Ine 

49192 

(SC028) 

kopiert 5 Zeilen vom Textspeicher 
in den Bildschirm i 

49263 

(SC06F) 

abernimmt die Schreibzeile in den 
Textspeirher 

49291 

(SC08B) 

fügt eine Leerzeile ein 

49330 

(SCOB2) 

löscht den Textspeicher 

49375 

< 6C0DF) 

löscht die Schreibzelle 

49421 

(SC12F) 

INST 

49530 

(SC 17A) 

DEL 

49592 

(SC 1B2) 

SAVE 

49727 

(SC23F) 

wandelt Bildschirmcode ln Drucker- 
ASCII-Code 

49776 

(SC270) 

f&rbt Bildschirmzeichen hellblau 

49848 

(SC2B8) 

setzt Zeichen ln Cursorposition 
neu (Blinkphase aus) 

49896 

(SC2E8) 

übernimmt die BASIC-Variablen L%, 
R%, BR*, B%, A*, K\, X\, NU, N2* 
in den Textspeicher 

49928 

< SC308) 

holt diese Werte vom Textspeicher 
in die BASIC-Variablen 

49976 

(SC338) 

ermittelt Zeichenzahl und Grafik¬ 
länge der Schreibzelle 

50143 

(SC3DF) 

Druck (PICA, N.L.Q., Proportional) 

50322 

CSC492) 

Druck (Kunstschriften) 

50538 

(SC56A) 

zeigt die auf Diskette gespeicher¬ 
ten Texte an 


Tabelle 1. Die Adressen und Funktionen der 
Maschinenroutinen 
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Kunstschriften lassen sich mit dem Zeicheneditor (Listing 
4) ändern und neu entwerfen. Vor dem Neuentwurf sollten 
Sie sich zuerst überlegen, wie die Schrift aufgebaut sein 
soll. Sollen Überlappungen wie in Bild 11 auftreten, so müs¬ 
sen alle Zeichen in diesem Punkt zusammenpassen. 

Anpassung der Proportionalschrift 


Ein Zeichen darf maximal 24 Punkte breit (40 Zeichen pro 
Druckzeile) und 16 Punkte hoch (doppelte Höhe eines Nor¬ 
malzeichens) sein. Die Eingabe der 24 x 16-Matrix ge¬ 
schieht im Direktmodus (Bild 12). Sind Sie fertig, kennen 
Sie durch Eingabe von 
GOTO 40 

einen Probeausdruck machen und danach Korrekturen 
durchführen. Dabei wird das Zeichen in druckergerechte 
Daten zerlegt. Hierfür benötigt das Programm noch die An- 


Schrlftart i 

KMPMJ1CKM 

♦♦♦ m ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦♦♦ ♦+♦ ♦♦♦ 

r-bbXVOO lUBEPTWyHOmOH ASUGDKfiKJlSE. UXCmßHM:,? 
1254567890*- uiBepTMyHomoshi a3fli))r'wfiKJi3e- 1 |xciu6hm,,/ 

KJtOlO IOIOIO IOIOIO IOIOIO IOIOIO IOIOIO IOIOIO K»OK) IOIOIO IOIOIO IOIOIO IOIOIO 
ECTeCTBOBeflHeCKHM MH 3 eÜ OTHOCHTCS K BepjlHHCKOMy 

yHHBepcMTeTy hm. ryMÖojihjiTa. 


Bild 8. ...oder kyrillisch 

gaben für Längen und Überlappungsdaten. Bild 11 zeigt, 
wie diese ermittelt werden. 

Schließlich braucht nur noch die Taste gedrückt werden, 
die dem Zeichen zugeordnet werden soll. Bei der Frage 


Die Variablen von »Schreibmaschine« 


A* 

Ze i lenabstand 

AS 

Ze ichencode 

A1*,A2*,A3* 

Input-Var. 

BA.BN 

Ze ichenadr. 

A1 % 

= ASC(A9> 

D.E 

Bildschirmad¬ 

B* 

Blocksatz 


ressen 

BR* 

Schriftbreite 

F 

Farbspeicher 

c*. CXl.CZ* 

CRSR-PositIon 

KU 

Kursiv (Flag) 

D* 

Spacezahl 

S 

Soundchip 

DR* 

Druck ein/aus 

U 

Unter (Flag) 

F* 

Farbnummer 

V 

VIC-Chip 

FE* 

Fettdruck 

VI 

= V+l 

K*,KB*,NR* 

ZeichensÄtze 

V3 

= V+31 

L*,R* 

Rand 11/re 

V 6 

= V+16 

LB*,MB*,MC* 

Blocksatzber. 

I.II.K 

ZShlvariablen 

LO* 

Flag fdr LOAD 



Ml* - M4* 

=256/320/653/204 



N*,N1 *,N2* 

Graflklänge 

D9 ( ) 

Druckbefehle 

NN* 

Graf 1kl.b.Block 

F»() 

Farben 

0*,P*,Q* 

Ze1lenendeber. 

GL*() 

Global 

s* 

Spacebre1te 

N*<> 

Schriftnamen 

SA* 

Sekund&radr. 

M* ( ) 

Grafikdichten 

sc* 

= PEEKC653) 

RT*<) 

Normbreiten 

U* 

Unter/Fett/ 

ZEO 

Zeichenbreite 


Kursiv (Flag) 

z*o 

b. Kunstschr. 

X* 

Ze ichenzahl 



z* 

Adr.Sehreibzeile 



zu* 

Zeilennummer 

AS.BS 

Get/Input 



AS.NNS 

Filenamen 



IN« 

Input-Text 

FNE(X) 

Einerziffer 

NS 

Sehriftname 

FNZ(X) 

Zehnerziffer 



FNA(X) 

Adr.im Textspeicher 



Sie nach dem Entwerfen einer Schrift nicht das Speichern 
(»SAVE "(Name)",8«) ! 

Um die Proportionalschrift anderer Drucker sinnvoll zu nut¬ 
zen, muß der C64 die Länge jedes Druckerzeichens ken- 


Tabelic Die Variablen des Basic-Hauptprogramms 


Sr MM M.M MM 




1 . 12,13 ,W 5 ,i 6 r i 73 a[i 9 iOH.!i 


5 


©Igjggigigjgigigiglglg 


5* T&4 


t* 






Bild 9. Verschiedene Gratlkmuster machen das Angebot 
des Programms »Schreibmaschine« komplett 



unter 1 


»Chine "1 

' 75 | 

?S 

4" 

f5 

c— 

f'ett: 

kur si v| 

i nkal » 1 

1 PICA 

«CTRL« | 

gl oh 


text/disc löschenJ 
Print ab Zeile: 11 

In or m 

Ihre i t 


block 

f d 


RETURM 


CTRL - 


bitte warten 

f eilcrnschaltung und 

Mit fö) sofortiger Druck 

Zeile löschen/einfügen 

halten, bis gewünschte 
Sehr»ftart erscheint 


Unterstreichen, Fett— .Kursivschrift 

sind innerhalb der- Zeile wirksan, 
Schriftart und breite nur zeilenweise. 


Bild 10. Der Bildschirm von Schreibmaschine nach dem La¬ 
den zeigt alle wichtigen Einstellungen an 


nach der Form des Unterstrichs bedeutet »1« unterste Na¬ 
del, »2« zweite Nadel, »3« erste und zweite Nadel, »4« dritte 
Nadel, und so weiter. Die Steuerung erfolgt also Bit-weise. 


Neue Zeichen braucht das Land 


Sollten Sie den Wunsch haben, die neu definierten Zeichen 
auch am Bildschirm zu sehen, können Sie den Bildschirm¬ 
zeichensatz (Listing 7) mit dem Bildschirmzeicheneditor 
(Listing 8) auf eine ähnliche Art und Weise ändern, die Ma¬ 
trix ist hier jedoch auf 8 x 8 Punkte beschränkt. Vergessen 


nen. Diese stehen in der entsprechenden Tabelle im Bedie¬ 
nungshandbuch. In dieser finden Sie auch die Länge der 
Zeichen gemessen in Vieo Inch. Unter dem Menüpunkt 
»Proportionalschrift ändern« erfolgt die Eingabe dieser Ta¬ 
belle. Für den Epson FX-85 ist diese Tabelle bereits vorhan¬ 
den (Listing 3) und muß nur noch eingegeben werden. Eine 
Anpassung an andere Drucker, die - wenn schon nicht 
ESC/P-kompatibel - dürfte mit obigen Informationen keine 
Schwierigkeit bereiten. Die Commodore-Drucker MPS 
801/803 und MPS 802 müssen bei »Schreibmaschine« lei¬ 
der passen. Sie bringen die nötigen Hardware-, Software- 
Voraussetzungen nicht mit. 

(Bertram Hafner/Stefan Willmeroth/M. Jobst/rs) 
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C64 


f (22/J/8) 


9 (20/J/4) 



u <20/J/4) 


Bild 11. Unterschieben benachbarter Zeichen. In Klammern 
befinden sich die nötigen Parameter. 



Bild 12. Das Entwerfen eines Zeichens am Bildschirm mit 
dem Zeicheneditor von »Schreibmaschine« 


1 REM *************************** <110> 

2 REM * SCHREIBMASCHINE 10/86 * <227> 

3 REM * BERTRAM HAFNER » <030> 

4 REM * BISCHOF—ULRICH—STR.12 * <044> 

5 REM * 8934 BROSSAITINGEN * <020> 

6 REM *************************** <115> 

9 CLR <123> 

10 REM MASKE <164> 

11 POKE 53280,0:POKE 53281,11:PRINT"{CLR}" 

+CHRi <14);:NBi="8-DEUTSCH{5SPACE>":GOSU 
B 349 

14 GOSUB 37:POKE 53272,(PEEK(53272)AND 240 
)+12:PRINT CHRi(14>; CHRi(8); 

15 PRINT" {BLACK,2SPACE TTW{RVSONiBWEI{RVOFF> 

IW {SPACE ,RVSON }B{RVOFF,LIG . BLUE, SPA CE, S 

N >TJ {RVOFF }57(RVSON}W1RVOFF 3K2SH IFT-SPA 
CE, BLACK,SPACE,RVSON}F(RVOFF, GREY 3>iJ{2 
SPACE35 (SPACE,BLAOOWfT 

16 PRINT"{2SPACE>TmFT{RVS0N>OT{RV0FF,2SPAC 
E,RVSON}W{RVOFF,LIG.BLUE,2SPACE >TyU{RVS 
ON >TÖF^{2SHI FT-SPACE >^FST{RVOFF Jurr {SPA 
CE,BLACK,SPACE,RVSON}V{RVOFF,GREY 3,2SP 
ACE >75?{BLACK }tfF3"; 

17 PRINT" {RVOFF, 2SPACE >TiTi{RVSON>®{RVOFF>F 

FzVtRVSON,SH IFT-SPACE,RVOFF,SHIFT-SPACE 
, LIG. BLUE } (BSP ACE} —{RVSON }WSirT{RVOF 

F >—{BLACK,SPACE,RVSON,SHIFT—SPACE,RVOFF 
, SPACE ytT*- (RVSQN > W {RVOFF > BW +"; 

1B PRINT" {RVSON>1?{RVOFF>=?? Y{RVSON}W(RVOFF 
}'3W?{RVSON} , iJ{9HI FT-SPACE > uWuWuWÜ uWu 
ÜWuÜTJ{SHIFT-SPACE, RVOFF , SHIFT-SPACE , RV 
SONWGREY 3>T{BLACK,RV0FF>DYHFS"; 

19 PRINT"{2SPACE{SPACE,RVSONJü(RVOFF>17{ 

RVSON >TJ{RVOFF >/ S7F(RVSON JHtRVOFF, SPACE > 

7TS (RVSON } ff(RVOFF } SE (RVSON } W{RVOFF,SHIF 
T-SPACE,RVSON,SHIFT-9PACE,RVOFF,GREY 3, 

RVSON >ffS (RVOFF J-rT? (BLACK, SPACE W2SPACE, 

2RVS0N,SH1FT-SPACE,RVOFF,SPACE,RVSON >Y< 

GREY SJU(BLACK,RVOFFJT5TK2SPACE>"; <245> 

20 PRINT"{2SPACE>W(SPACE,RVS0N>7{RV0FF>7?{ 

RVSON}WH{RVOFF, SPACE 3-WB (SPACE, BREY 3, RV 
SON} 1 ?(RVOFF- >F7YW> 1 {BLACK>W(RVSON,SHIFT 
-SPACE, RVOFF >BrWT(RVSON>U{RVOFF JWF6 (RVS 
ON,SHIFT-SPACE,RVOFF >BY{RVSON JBH(RVOFF > 

£S77 "; <021> 

21 PRINT" (2SPACE3W T{RVSON>'g{RVOFF}/WB'{SPA 

CE;RVSON,SHIFT-SPACE,RVOFF,GREY 3,11SPA 
CE,BLACK,RVSON,SHIFT-SPACE,RVOFF 3WCRVSO 
N3WCRVOFF Jtf{2SPACE JW(2SPACE , RVSON , SH IFT 
-SPACE,RVOFF,GREY 3 >Sr , {RVS0N>WWCRV0FF>£ 
{BLACK3RFB"; <137> 

22 PRINT" {RVS0N>P - P'p'p'p'p'pp'p'p'p'p’p'p'p'p'p'p'pp'p'p'p'pyp' 

’p» u p'p u p u p u p"p'pvp j p'p' {RVOFF}"; <007> 

26 PRINT,"(WHITE,DOWN,SPACE>BITTE WARTENCB 

LACKJ" <003> 

27 PRINT" C2D0WN, SPACE,RVSON> .RJLrUR_H (RVOFF>> 

C3SPACE>iEILENSCHALTUNG UND" <222> 


<005> 


<061 > 




<039> 


< 200 > 


<038> 


<223> 


28 PRINT," (MIT FS) SOFORTIGER JJRUCK" <202> 

29 PRINT" (DOWN,SPACE,RVSON>äflfl£/£J^(RVOFF} 

> J£EILE L: SCHEN/EINF@GEN" <187> 

30 PRINT"(DOWN,SPACE,RVSON}£XBA.{RVOFF}>(5S 

PACETHALTEN, BIS GEWÜNSCHTE":PRINT," SC 
HRIFTART ERSCHEINT" <199> 

31 PRINT"(DOWN,SPACE}ÜNTERSTREICHEN, £ETT- 

,KURSIVSCHRIFT" <237> 

32 PRINT" SIND INNERHALB DER ,Y£ILE WIRKSAM 

," <099> 

33 PRINT" SCHRIFTART UND -BREITE NUR YEILE 

NWEISE." <081> 

35 NBi="M-SCHREIB":GOSUB 349:GOSUB 37:GOTO 

43 <055> 

37 OPEN 15,B,15:INPUT#15,A1X:CL0SE 15:IF A 

1 VT - lEN PRINT" (DOWN}£EHLER BEIM HACHLADE 
N":END <251> 

38 RETURN <096> 

40 REM BASIC-ENDE <079> 

43 POKE 52,56:POKE 56,56:CLR <222> 

45 REM HAEUFIGE VAR. <104> 

46 L7.=5: R7.=75: BR7.=0: B7.=0: A7.=l: K7.=0: X7.=0: NI 

7.=0:N27.=0:REM REIHENFOLGE N. AENDERN ! <077> 

47 Ai=" ": A17.=0: V7.=0: F=55296: V=53248: S=5427 

2: Z7.= l 744: C7.=0: CX7.=0: CY7.=0 < 154> 

48 V1=V+1:V6=V+16: V3=V+31: M17.=256: M27.=320: ' 

M37.=653: M47.=204: DR7.= 1: ZL7.= 1 <227> 

50 DIM ZE(2):ZE(0)=8:ZE(1> =4:ZE(2)=13.B:RE 

M ZEICHENBREITEN <041> 

51 DIM Z7. (2) : Z7. (0) =12: Z7. < 1 > =8: Z7. (2) =24: REM 

ZEICHENBREITE KUNST <246> 

52 DIM M7.(2) ,RT7.(2) :M7.(0) = 1:M7.(1)=4:M7.(2) = 

3: RT7. (0) =12: RT7. < 1) =8:RTX (2) =24 <190> 

80 REM BILDSCHIRM-DRUCKERCODE-PAARE (MAX.5 

8) <090> 

81 DATA 0,125,25,122,26,121,27,92,29,91,58 

,124,59,123,60,59,62,58,89,90,90,89 <226> 

B2 DATA 122,93 <044> 

83 FOR 1=0 TO 23:READ A:POKE 49610+1,A:NEX 

T <216> 

100 REM SPRITE <076> 

101 FOR 1=832 TD 851:READ A:POKE I,A:NEXT: 

FOR 1=852 TO 894:P0KE I,0:NEXT <224> 

102 POKE 2040,13:POKE V+39,15:P0KE V+21,1: 

POKE V+29,1:POKE V+27,1 <057> 

110 REM DRUCKERCODES <066> 

112 DIM Df (11): READ SA7.:P0KE 50118,SA7. <192> 

113 FOR 1=0 TO 11 <22B> 

114 READ A: IF AO-1 THEN D* (I > =D* (I)+CHRi ( 

A):GOTO 114 <177> 

115 NEXT <125> 

116 FOR 1=0 TO 5:FOR K=0 TO 2:READ Ai:IF A 
i<>"*"THEN POKE 50119+4*I+K,VAL(Ai) <202> 

117 NEXT K,I:REM AN MASCHPRG. UEBERGEBEN <076> 

120 REM TON <021> 

121 POKE S+l,90:POKE S+5,136:P0KE S+15,30: 

POKE S+24,15 <236> 

130 REM SCHRIFTEN/FARBEN/GLOB <230> 


138 
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DRUCKER-LISTINGS 


<005> 


< 123> 


131 DIM N*(12):F0R 1=0 TO 12:READ N*(I):NE 

XT <060> 

133 DIM F*(7):F0R 1=0 TO 7:READ F*(I):NEXT <093> 

134 DIM GLX(7)iFOR 1=0 TO 7:READ GLX(I):NE 

XT <013> 

140 REM FUNKTIONEN <06B> 

141 DEF FN Z(X)=32-(16+1NT(X /10))*(X>9):RE 
M ZEHNER 

142 DEF FN E(X)=X-INT(X/10)*10+48:REM EINE 
R 

143 DEF FN A<X)=(ZLX+66)*M1X+X:REM ADR.IM 

TEXTSPEICHER <230> 

150 REM START <153> 

151 CXX=11:CYX=9:GOSUB 303:PRINT"{WHITEJIA 

STE DR@CKEN‘" <120> 

152 POKE 198,0:WAIT lPB^POKE 650,128:GOS 

UB 421 <074> 

200 REM **** HAUPTPROGRAMM **** <120> 

203 POKE 198,0:POKE 204,0 <245> 

204 SYS 49421:CX=PEEK<49454):IF PEEK<198>= 

0 THEN GOSUB 371 <135> 

206 IF PEEK <V3)THEN GOSUB 803 <020> 

208 IF PEEK(M3X)AND 6 THEN GOSUB 501:GOTO 
203 

209 GET A*:IF A*=""THEN 208 

210 A1X=ASC(A*>:IF A1X=160 THEN A*=" ":GOT 
0 210 

211 IF A1X<32 OR A1X>218 OR A1X=95 OR A1X= 

92 THEN GOSUB 505:GOTO 203 

212 IF A1X>125 THEN IF A1X<192 THEN IF A1X 
0186 THEN GOSUB 511:GOTO 203 

213 IF XX>118 THEN GOSUB 803:GOTO 208 
215 PRINT F* <UX); A4; : POKE FN A < 128+CX.) ,UX: 

POKE 212,0:GOTO 204 

299 : 

300 REM +++ UNTERPROGRAMME «-«-(- 

301 REM CURSOR SETZEN 

302 CXX=0:CYX=18:REM HOME 

303 POKE 211,CXX:POKE 214,CYX:SYS 5B640:RE 
TURN:REM BELIEBIG 

310 REM CURSORPDS CX 
313 SYS 49421:CX=PEEK<49454):RETURN 

320 REM NEUE ZEILE 

321 SYS 49896:POKE M4X,1:SYS 49421:GOSUB 3 
02:SYS 49B48:SYS 49263:RETURN 

322 GOSUB 321 

323 POKE 49191,ZLX+66:POKE 1243,FN Z(ZLX): 

POKE 1244,FN E<ZLX> 

324 SYS 49192:SYS 49928:RETURN 

330 REM ASCII/BILDSCHIRM 

331 AS=AS+64* <AS>63 AND AS<96)+128*<AS>191 
):RETURN 

335 REM SCHRIFT NACHLADEN/VERTAUSCHEN 

336 K=0:FOR 1=0 TO 10:IF MID*<N*<KX>,1+1,1 
)< >CHR* <PEEK <346BB+I))THEN K=1 

337 NEXT:RETURN 

338 IF N*=N* <KX)THEN RETURN 

339 GOSUB 336iIF K=0 OR KX<2 THEN 347 

340 SYS 50743:GOSUB 336:IF K=0 THEN 347 

341 NB*=N*<KX):GOSUB 349:GOSUB 431:IF A1XT 

HEN KX=0:N*=N*<0>:RETURN <20B> 

345 IF KX=10 AND NRXOl THEN NB*="B-GRIECH 
ISCHC2SPACE>":GOSUB 349:GOTO 348 

346 IF KX-11 AND NRX<>2 THEN NB*="B—KYRILL 
ISCH<2SPACE>":GOSUB 349:GOTO 348 

347 IF NRXTHEN NB*="B-DEUTSCH<5SPACE>":GOS 
UB 349 

34B RETURN 

349 SYS 57812NB*,8,1:POKE 780,0:SYS 65493: 

RETURN 

350 REM SCHIRMZEILE LOESCH 

353 POKE 204,1:FOR 1=18 TO 20:POKE 781,I:S 
YS 59903:NEXT:GOSUB 302:RETURN 

360 REM SCHIRM LOESCHEN 

361 POKE 204,1:FOR 1=9 TO 23:PDKE 7B1,I:SY 
S 59903:NEXT:GOSUB 302:RETURN 

370 REM ZEICHENZAHL/GRAFIKLAENGE/ZEILENEND 
E 

371 SYS 49976 

372 IF K%<2 THEN 0X=<RX-LX>*ZE<BRX):VX=<XX 
-<CX>XX)* <CX-XX>)*8/ZE <BRX)+LX:GOTO 3B 
1 

373 NX=M1X*N2X+N1X:IF XX=0 THEN NX=0:GOTO 
375 

374 IF KX=2 THEN IF BRX=0 THEN NX=NX«.75:R 


<037> 
< 118> 

<233> 

< 166> 

< 202 > 

< 220 > 

< 010 > 
<021 > 
< 100 > 
<04B> 
<162> 

< 000 > 


<127> 

<092> 

<177> 

<035> 

<037> 

<0U> 

<027> 

<206> 

< 022 > 

<023> 

<0B8> 

< 101 > 


< 068 > 

< 184> 

<182> 

< 152> 

<246> 

< 176> 

<093> 

<229> 

< 114> 

< 173> 
<050> 


<219> 


< 177> 


EM ANPASSUNG PROP. AN KUNSTSCHRIFT <002> 

375 VX=NX/ZX(BRX)+LX:0X=8*(RX—VX+XX) <227> 

377 IF CX>XXTHEN VX= <NX+ <CX-XX)* <PEEK <3459 
2)AND 31)* <1-< BRX=0)*(KX=2)/4 >)/ZX < BRX 
> +LX <101> 

381 QX.=0X/M2X: PX=QX~M2X*QX:P1X=PX/M1X <159> 

382 POKE V,PX-M1X#P1X:POKE V6,P1X:P0KE VI, 

0X*8+194 <1B5> 

383 POKE 1084,FN Z(VX)OR 128:POKE 1085.FN 

E <VX> OR 128:RETURN <040> 

385 REM GLOBALE EINSTELLUNG <049> 

386 GOSUB 321:GOSUB 361:GOSUB 302:POKE V+2 

1,0:POKE 198,0 <020> 

387 PR INT" uTfRVSDNJBIRVOFFJBHn' KCRVBONJn 

{RV0FF>S<RVS0N}'iJ{RV0FF>'rF+'{RVS0N>'5 , T?{RV 
DFFJtf F{RVSON>?{RVOFF>Fif? <F1-F7,{RVS0 
N>FiW<RVOFF>)" <222> 

388 IF PEEK(653)AND 4 THEN A1X=0:PRINT N*< 

KX>:BQTO 392 <197> 

389 GET A*:IF A*=""THEN 38B <078> 

390 A1X=ASC(A*)-132:IF A1X<1 OR A1X>7 THEN 

399 <026> 

391 PRINT"?";STR*(2*AlX-l+7* <A1X>4)) <064> 

392 CXX=0:CYX=20:GOSUB 303:PRINT"7<RVS0N}’g 
fKRVOFF, SPACE, RVSON>?{RVOFF>'g?FF " ; ZLX 

; '"57s"'; <197> 

393 INPUT B*:IF B*=""THEN 399 <043> 

394 A2X=VAL<B*):IF LEN<B*)>2 OR STR*<A2X>< 

>" "+B*OR A2X<ZLXTHEN 392 <152> 

395 A3X=PEEK <FN A <GLX<A1X>)):II=ZLX:IF A2X 

>66 THEN A2X=66 <229> 

396 ZLX=A2X:IF PEEK <FN A<248>)=0 THEN A2X= 

A2X-1:GOTO 396 <110> 

397 POKE <FN A(GLX <A1X)>) ,A3X:IF ZLX>II THE 

N ZLX=ZLX—1:GOTO 397 <244> 

398 PR I NT " £CRVSON>m rIRVOFF >T?{RVSON >g{RVOF 
F:'+'+'z’e'r'e' dTe's'e (SPACE, RVSON>YIRVOFFITTT 
E{RVSON >WIRVOFF,SPACE >!";:POKE 198,0:W 

AIT 198,1 <178> 

399 GOTO 486 <161> 

*1 FARBE IN KOPF <235> 

FuR I=D TO E.-POKE F+I ,FX*15: NEXT: RETUR 
N <059> 

410 REM PRINT AB ZLX <073> 

411 POKE 198,0:GOSUB 322:GOSUB 821:IF DRX= 

0 THEN GOSUB 606 <019> 

412 A3X=ZLX:IF PEEK(198)THEN POKE 198,0:GO 

TO 416 <180> 

413 GOSUB 371:IF XX=0 THEN IF PEEK<FN A<50 

4))=0 THEN 416 <247> 

414 GOSUB 701:IF A3X=ZLXTHEN 416 <147> 

415 GOTO 412 <193> 

416 GOSUB 821:GOTO 690 <156> 

420 REM TEXT LOESCH <22B> 

421 NN*="{11SPACE >":GOSUB 496:GOSUB 361 <175> 

422 SYS 49330:GOSUB 371:GOSUB 302:SYS 4977 
6:ZLX=1:GOSUB 323:P0KE 198,0:GDSUB 803 

:RETURN <101 > 

430 REM FEHLER <132> 

431 OPEN 15,8,15:INPUT#15,A1X,B*,A2X,A3X:C 

LOSE 15:IF A1X=0 THEN RETURN <192> 

432 IF A1X=62 THEN IF L0X=1 THEN B*="{RVSO 

N >£{RVOFF {RVSONITKRVOFF, SPACE, RVSON 

>SCRVOFF >?{RVSON >F IRVOFFIS^RVSQNJtKRVO 
FF, SPACE >V {RVSQN > 5{RVOFF > "rTS {R VSON >? {R 
VOFF>W{RVSON>fi , <:RVOFF>":GOTO 437 <0B3> 

433 IF A1X=62 TH EN B*="{ RVSON>g(RVDFF> r{RV 

CE >F? {RVSON >W{RVOFF DTrtn? {RVSON >?{RVOFF 
>" <153> 

434 IF A1X=72 THEN B*="ST? {RVSON>HCRVOFF,S 

PACE>V<RVSON>S{RVOFF)TT" <233> 

435 IF A1X=74 THEN 8*="5TS{RVS0N>W<:RV0FF ,S 
PACE>F7(RVSON>W{RVOFFITtliE {RVSON)W<RV0 

FF>" <238> 

436 IF A1X=63 THEN B*="{RVSON>H{RVOFF>WH? 

437 GOSUB 353:GOSUB 302:PRINT A1X;B*; <134> 

438 POKE 198,0:WAIT 19B,1:SYS 49192:RETURN <218> 

450 REM LOAD <145> 


Listing 1. Das Basic-Hauptprogramm von 
«Schreibmaschine-. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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451 

IN*="TCRVSONJ5<RV0FF ”:GOSUB 491:1 



3:F7.=KU:GOSUB 403: IF KU THEN IF K7.>1 T 



F NN*="{11 SPACE >"THEN 486 

<224> 


HEN 541 


< 205 > 

453 

GOSUB 496: GOSUB 422: NB*=“ä-"+NN*: L07.=l 


542 

GOTO 690 


< 146> 


:GOSUB 349:GDSUB 431:LO%=0 

<00B> 

550 

REM CRSR RECHTS 


< 1 45> 

456 

ZL%=1:GOTO 486 

<040> 

551 

GOSUB 313: IF C7.< 119 THEN PRINT" CRIGHT) 


460 

REM SAVE 

<213> 


";:SYS 49848 


<245> 

461 

IN*="SWr> ": GOSUB 491: IF NN*=" {HSPAC 


553 

IF PEEK(203)=2 THEN 551 


< 182 > 


E>"THEN 486 

< 131 > 

554 

RETURN 


<104> 

462 

GOSUB 496: A*=".5.-"+NN*: 11=67 

< 158 > 

555 

REM CRSR LINKS 


< 124> 

464 

11 = 11 + 1:IF PEEK<11*M1X+248)<>0 AND II< 


556 

GOSUB 313: IF C7.THEN: PRINT" CLEFT ) SYS 



135 THEN 464 

< 180 > 


49848 


< 169> 

465 

IF PEEK < I I*M17.+253) =0 THEN 11=11-1: IF 


55B 

IF PEEK(203)=2 THEN 556 


<252> 


II>1 GOTD 465 

< 137> 

559 

RETURN 


< 109> 

466 

PDKE 251,0:POKE 252,67:POKE 253,0:POKE 


560 

REM LI RAND 


< 109> 


254,11+1 

<247> 

561 

IF L7.7R7.-10 THEN 690 


<019> 

467 

FOR 1=0 TO 12:PDKE 49573+1,ASC(MID*(A4 


562 

L7.=L7.+ l:GOTO 565 


< 095> 


,1+1,1)):NEXT 

< 023 > 

563 

IF L7.=0 THEN 690 


< 182> 

46B 

SYS 49586:GOSUB 431:GOTD 486 

<139> 

564 

LX=L7.-1 


< 149> 

470 

REM * 

<055> 

565 

POKE 1058,FN Z (L7.) : POKE 1059,FN E(L7.) 

<091 > 

471 

GOSUB 361 :CX7.=0:CY7.= 10: GOSUB 303 

<200> 

566 

IF PEEK (203) 04 THEN 690 


< 136> 

472 

SYS 50538: GOSUB 431: IF A17.=0 THEN PRIN 


567 

IF PEEK(653)AND 1 THEN 563 


<027> 


T 11 CSPACE, RVSON )7<RV0FF IfTFI'CRVSON ) W CRV 


568 

GOTO 561 


< 14B> 


OFF,SPACE>FTFz"'; 

<249> 

570 

REM RE RAND 


<103> 

473 

POKE 198,0:WAIT 198,1:G0T0 486 

<094> 

571 

IF R7.>79 THEN 690 


< 104> 

480 

REM FILE LOESCH 

< 170> 

572 

R7.=R7.+ l:GOTO 575 


<0B2> 

4B1 

I N*= " FTTE TTs CRV50N >HCRVOFF > St CRVSON > Ff 


573 

IF R7.<L7.+ 10 THEN 690 


<013> 


CRVOFF>> ":GOSUB 491:IF NN*="<11SPACE) 


574 

R7.-R7.-l 


< 120> 


"THEN 486 

<149> 

575 

POKE 109B,FN Z(R7.):P0KE 1099,FN E(R7.) 

<044> 

482 

A*= "" +NN*:OPEN 1,8,15,"S: "+A*:CLOSE 


576 

IF PEEK (203) 05 THEN 690 


< 154> 


1 

< 134> 

577 

IF PEEK(653)AND 1 THEN 573 


<069> 

483 

GOSUB 431:GOTO 486 

<227> 

578 

GOTO 571 


< 174> 

485 

r£m zurueck 

<102> 

580 

REM BREIT 


<225> 

486 

POKE V+21,1:SYS 49776:GOSUB 323:GOSUB 


581 

BR7.=BR7.+ 1: IF BR7.=3 THEN BR7.=0 


<207 > 


821.-POKE 198,0:GOSUB 302:RETURN 

<061 > 

5B2 

IF BR7.=2 THEN IF K7.= l OR K7.=2 THEN 

581 

< 131 > 

490 

REM INPUT 

<225> 

583 

GOSUB 823:GOTO 690 


< 133> 

491 

POKE V,88:POKE V1,204:POKE V6,0:IF NN* 


590 

REM BLOCKSATZ 


<!l8B> 


= ""THEN NN*="<11SPACE>“ 

<222> 

591 

B7.= 1-B7.:G0SUB B2B.-G0T0 690 


<085> 

492 

GOSUB 321: GOSUB 361 .-GOSUB 302:PRINT"CW 


600 

REM FETT 


< 191 > 


HITE,RVOFF)"; IN*; " ( CRVSONIWCRVOFFTWRE) 


601 

FE7.=1-FE7.:U7.=U7.AND 251 OR (4*FE7.) : D= 

42: 



C2SPACE)":CYX=19:GOSUB 303 

<046> 


E=43:F7.=FE7.: GOSUB 403 


<100> 

493 

PRINT NN*;:FOR 1=1 TO 13:PRINT"CLEFT)" 


602 

IF FE7.THEN IF BR7.=2 THEN IF K7.<3 THEN 



NEXT:INPUT A*:IF LEN(A*)>20 THEN 492 

<213> 

62 1 


<091 > 

494 

NN*=LEFT*(A*+“tl1SPACE >”,11):RETURN 

<031> 

603 bü TO 690 


<207> 

495 

REM NN* SCHREIBEN 

<040> 

605 

REM DRUCK EIN/AUS 


<032> 

496 

FOR 1=0 TO 10:AS=ASC(MID*(NN*,1+1,1)) 

< 175> 

606 

DR7,= 1—DR7.: D=272: E=D+4: F7.=DR7.: GOSUB 

403 


498 

GOSUB 331:PDKE 1275+1,AS:NEXT:RETURN 

< 151 > 


:GOTO 690 


< 125> 

500 

REM TASTEN 

<089> 

610 

REM ABSTAND 


< 199> 

501 

SC7.=PEEK (M37.) : POKE M47., 1 

< 157> 

611 

A7.=A7.+1:IF A7.=4 THEN A7.=0 


<193> 

502 

IF SC7.AND 4 THEN 651: REM CTRL 

< 133> 

613 

GOSUB 829:GOTO 690 


<100> 

503 

IF SC7.AND 2 THEN 515: REM C= 

<029> 

620 

REM DEL 


<173> 

504 

RETURN 

<052> 

621 

GOSUB 313:IF CZTHEN PRINT"CLEFT)": 

SYS 


505 

IF A17.= 13 THEN 701 

<032> 


49848:SYS 49263:SYS 49530:IF PEEK(203 


506 

IF A17.= 17 THEN 641 

<065> 


)=0 THEN 621 


<012> 

507 

IF A17.= 19 THEN 631 

<060> 

622 

RETURN 


< 172> 

508 

IF Al 7=20 THEN 621 

<173> 

625 

REM INST 


<096> 

509 

IF A17.=29 THEN 551 

<203> 

626 

GOSUB 313:POKE M47.,1:SYS 49848: SYS 

492 


510 

IF A17.=95 THEN 386 

< 171 > 


63:SYS 49455:IF PEEK(203)=0 THEN 626 

<1B2> 

511 

IF A17.<133 THEN RETURN 

<031 > 

628 

RETURN 


< 178> 

512 

ON A17.-132 GOTO 561,571,611,591,563,57 


630 

REM HOME (ZEI LOESCHEN) 


<204> 


3,581,606,701,514,514,514,646,514,636, 


631 

SYS 49375:SYS 49192:SYS 49928:GOSUB 82 



626 

<130> 


1:GOSUB 302:RETURN 


< 005 > 

513 

IF Al7.= 157 THEN 556 

< 059 > 

635 

REM CLR (ZEILE EINFUEGEN) 


< 1 76> 

514 

RETURN 

<064 > 

636 

IF ZL7.=67 THEN 690 


<21 7> 

515 

FOR 1=0 TO 6:POKE F+4+I+40,15:NEXT:POK 


637 

GOSUB 313: POKE M47.,1:SYS 49848: SYS 

492 



E F+169,15:POKE F+247,15:F0R 1=1 TO 80 



63:SYS 49291:SYS 49192:SYS 49896 


<222> 


:NEXT:POKE 19B,0 

<126> 

638 

GOSUB 302:RETURN 


<1U> 

516 

IF PEEK (M37.) AND 2 THEN 518 

<233> 

640 

REM CRSR DOWN 


<087> 

517 

GET A*:IF A*=""THEN 516 

<077> 

641 

GOSUB 313: IF C7.<80 THEN PRINT" CDOWNJ"; 


518 

FOR 1=0 TO 6:POKE F+4+I+40,0:NEXT:POKE 



:SYS 49848:RETURN 


< 149> 


F+169,0:POKE F+247,0:IF A*="K"THEN 54 


642 

IF ZL7.=67 GOTO 690 


< 163> 


1 

<037 > 

643 

ZL7.=ZL7.+ 1 : GOSUB 322: IF PEEK (203) =7 

THE 


519 

IF A*="U"THEN 531 

<254 > 


N 642 


< 198> 

520 

IF A*="F"THEN 601 

<100) 

644 

GOSUB B22:GOSUB 302:RETURN 


< 080> 

521 

IF A*="L"THEN 451 

< 136> 

645 

REM CRSR UP 


<254 > 

522 

IF A*="S"THEN 461 

< 020 > 

646 

GOSUB 313: IF C7.>39 THEN PRINT" CUP) 

; : S 


523 

IF A*="I"THEN 471 

<024> 


YS 49B48:RETURN 


<122> 

524 

IF A*=“D"THEN 481 

<159> 

647 

IF ZL7.= 1 GOTO 690 


< 145> 

525 

IF A*="T"THEN 421 

<120 > 

648 

ZL7.=ZL7.-1: GOSUB 322: IF PEEK (203) =7 

THE 


526 

IF A*="P"THEN 411 

< 111 > 


N IF ZL7.71 THEN 64B 


< 186 > 

527 

GOTO 690 

< 131 > 

649 

GOSUB 822:GOSUB 302:RETURN 


< 085 > 

530 

REM UNTER 

<230> 

650 

REM SCHRIFTART 


< 165> 

531 

U=1-U:U7.=U7.AND 254 OR U: D=2: E=3: FX=U: F 


651 

K7.=K7.+ 1:IF K7.= 13 THEN K7.=0 


<058> 


7,=U: GOSUB 403: GOTO 690 

<134> 

652 

POKE FN A (120) , K7.: GOSUB 680 


<212 > 

540 

REM KURSIV 

<037> 

660 

FOR 1=1 TO 200:NEXT:IF PEEK(653)=4 

THE 


541 

KU=1-KU:U7.=U7.AND 253 OR(2*KU) :D=82:E=B 



N 651 


<224> 


140 
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DRUCKER-LISTINGS 


665 NRX=PEEK(15064) :IF KX>1 OR NR7.THEN GOS 

UB 338 <035> 

670 N*=N*(KX> <070> 

675 IF K7.= l OR KX=2 THEN IF BRX=2 THEN GOT 

0 581 <130> 

676 IF K7.>1 THEN IF KU THEN GOTO 541 <109> 

677 GOTO 690 <025> 

680 FOR 1=0 TO 10:AS-ASC(MID*(N*(KX>,1+1,1 

)) <053> 

682 GOSUB 331:POKE 1116+1,AS:NEXT:RETURN <063> 

689 : <157> 

690 FOR 1=1 TO 100:NEXT:GOSUB 371:B0SUB 80 

3:RETURN <057> 

700 REM ++*- DRUCK <026> 

701 GOSUB 321:O7.=0:MC7.=0: IF B7.=0 OR X7.=0 T 

HEN 715 <042> 

702 REM BLOCK <052> 

703 D7.=0:FOR 1=0 TO X7.-1: IF (PEEK (Z7.+ I) AND 

127) =32 THEN D7.=D7.+1:REM SPACE-ZAHL <027> 

704 NEXT: IF D7.=0 THEN 790 <168> 

705 IF K7.>2 THEN 711 . <145> 

706 IF K7.=2 THEN 07.= < (R7.-L7.) *Z7. (BR7.) -N7.) /5 

:GOTO 708:REM BEI PROP <183> 

707 D7.= (R7.-L7.)*ZE(BR7.)/8-X7.:REM BEI PICA,N 

LQ <202> 

708 IF 0X7D7.0R O7.<0 GOTO 790 <231 > 

709 IF KX<3 THEN 715 <037> 

710 REM BLOCK KUNST <073> 


711 SX=PEEK (34592) : LBX=SX.AND 31: NN7.= < R7.-L7. 


) *RTX (BRX) : MB7.=LB7.+ (NN7.-N7.) /DX. <214> 

712 IF MBX<5 OR MBX>23 GOTO 790 <136> 

713 MCX=NNX—NX—(MBX-LBX)*DX:NX=NNX:N2X=NX/ 

MIX:N1X=NX—N2X*M1X <139> 

715 IF DRX=0 THEN 730 <014> 

716 CLOSE 2:OPEN 2,4,SAX:POKE 781,2:SYS 65 

4SI:IF ST THEN 795 <079> 

717 PRINT#2,D*(10)CHR*(0)D*(11)CHR*(0);:PR 

INT#2,D*(9)+CHR* <LX);:REM RAND <211> 

718 IF X7.=0 THEN PRINT#2,D* (0) ; : GOTO 730 <197> 

719 IF KX>2 THEN 741 <165> 

720 PR I NT42, D* (7) +CHR* (9+3*AX) ; : REM ABSTAN 

D i-*¥94>> 

721 IF K7.=2 THEN PRI NT#2, D* (11) CHR* (1 > ; : GO 

TO 723:REM PROPORT. <185> 

722 PRINT#2,D*<8>:REM PICA <1BB> 

723 IF BRXTHEN PRINT#2,D*(BRX);:REM BREIT/ 

ENG <212> 

724 IF KX=1 THEN PRINT#2,D*<10)+CHR*<1):RE 

M NLQ <054> 

725 POKE 254,OX:SYS 50143:REM SPACES FUER 

BLOCK/DRUCKROUT <130 > 

728 PRINT#2,D*(3); <167> 

730 IF ZLX=67 GOTO 690 <251> 

731 ZLX=ZLX+1:GOSUB 323:IF A1X=13 THEN GOS 

UB 821:RETURN <028> 

732 GOSUB B30:RETURN <229> 

740 REM KUNSTDRUCK <167> 

741 POKE 50442,MCX:IF BXTHEN POKE 34592,<S 

/.AND 224) +MBX: REM SPACEBREITE AENDERN <075> 

750 PRINT#2,D*(6)+CHR*(1);:GOSUB 7B0:PRINT 

#2,CHR*(0); <155> 

751 POKE 2,0:POKE 50320,0:POKE 50321,255:P 

OKE 50318,0:SYS 50322:PRINT#2,D*(0>; <212> 

755 PRINT#2,D*(6)+CHR*(23);:IF PEEK(5031B> 

=0 THEN PRINT#2,D*(0);:GOTO 760 <161> 

756 GOSUB 7B0:POKE 50321,0:SYS 50322:PRINT 

#2,CHR*(0 > +D*(0); <046> 

760 PRINT#2,D*(6)+CHR*(1);:GOSUB 7B0:PRINT 

#2,CHR*(0);:POKE 2,12B:P0KE 50320,255 <244> 

761 POKE 50321,255.-POKE 50318,0:SYS 50322: 

PRINT#2,D*(0)|D*(6)+CHR*(2 ); <114> 

762 IF PEEK(50318)=0 THEN PRINT#2,D*(0);:G 

OTO 767 <063> 

765 GOSUB 780:POKE 50320,0:POKE 50321,0:SY 

S 50322:PRINT#2,CHR*(0)+D* (0) ; <224> 

767 PRINT#2,D*(7)+CHR*(7+4*AX)+D*(0); <194> 

770 IF BXTHEN POKE 34592,SX:REM SPACE NORM 

AL <154> 

775 GOTO 728 <022> 

780 PRINT#2,D*(5)+CHR*(MX(BRX))+CHR*(N1X)+ 

CHR*(N2X);:RETURN < 223> 

790 GOSUB 803:FOR K=1 TO B:BX=1-BX:REM KEI 

N BLOCKSATZ <12B> 

791 D=232:E=D+4:FX=BX:GOSUB 403:NEXT:RETUR 

N <235> 


795 GOSUB 353:PRINT" ■DTCRVSONJSffCRVOFFl.g.Fi? 

FZCRVSON > WCRVOFF JSCRVSON JHCRVOFF IBTTF C 
RVSONJtr<RVOFF>f TRVSONJWCRVOFFJ ! " 

796 POKE 198,0:WAIT 198,1:GOSUB 353:GOSUB 
323:RETURN 

800 REM TON 

803 POKE S+4,20:POKE S+4,21:RETURN 

820 REM KOPFEINSTELLUNG 

821 IF PEEK(FN A(24B>>=0 THEN RETURN 

822 POKE 1058.FN Z(LX):POKE 1059.FN E(LX) 

B23 POKE 1098,FN Z(RX):POKE 1099.FN E(RX) 

824 FOR 11=0 TO 2:D=183+40*1I:E=D+4:FX=0:G 
OSUB 403:NEXT 

825 D=183+40*BRX:E=D+4:FX=1:GOSUB 403 

828 D=232:E=D+4:FX=BX:GOSUB 403 

829 FOR 11=0 TO 1:D=153+11*40:E=D+3:FX=0:G 
OSUB 403:POKE F+D+AX,1:NEXT 

830 IF N*=N*(KX)THEN RETURN 

831 GOSUB 680:NRX=PEEK(15064):IF KX>1 OR N 
RXTHEN GOSUB 338 

832 N*=N#(KX>:RETURN 

900 REM SPRITE 

901 DATA 0,12,0,0,12,0,0,12,0,0,12,0,0,12, 
0,0,12,0,255,255 

910 REM DRUCKERCODES 

:REM SEK.ADR. (ASCII UNG 


911 DATA 14 
EWANDELT) 

912 DATA 10,-1 

913 DATA 14,-1 

914 DATA 15,-1 

915 DATA 18,-1 

916 DATA 20,-1 

917 DATA 27,42,-1 

918 DATA 27,51,-1 

919 DATA 27,65,-1 

920 DATA .27,80,-1 :REM PICA 

921 DATA 27,108,—1:REM LINKER RAND 

922 DATA 27,120,-1:REM NLQ 

923 DATA 27,112,-1:REM PROP 

925 DATA 27,45,1 :REM UNTER 


:REM LINE FEED 
:REM BREITSCHRIFT 
:REM KOMPRIMIERT 
:REM KOMPR.AUS 
:REM BREIT AUS 
:REM GRAFIKMODI 
:REM ABSTAND N/216 
:REM ABSTAND N/72 


:REM AUS 
:REM ITALIC 
:REM AUS 
:REM FETT 
:REM AUS 


926 DATA 27,45,0 

927 i. ATA 27,52,* 

928 DATA 27,53,* 

929 DATA 27,69,* 

930 DATA 27,70,* 

935 REM TST 

940 REM SCHRIFTEN 

941 DATA" P.ICfl C7SPACE>" , "M- i.. £. C5SPACE>" , "£ 
ROPORTION. " , "aüIiaüaC4SPACE>" , "XRAKTUR 
<4SPACE >" 

942 DATA"£LANSCHRIFT"£ANDICE <4SPACE >","X 
OWN <7SPACE>","PENCILC5SPACE>" 

943 DATA " .GRAF IK <5SPACE > " , ” ELL.L.KRI.K.H (3SPACE > 
" ," JLL5iLEJLL<3SPACE > ” , “ £1TTA <6SPACE> " 

950 REM FARBEN/GLOB 

951 DATA"CRVOFF,WHITE >","CRVSON,WHITE >","C 
RVOFF,CYAN>","CRVSON,CYAN>"."tRVOFF,BR 
EEN >","CRVSON,GREEN >","{RVOFF,YELLOW >" 
,"CRVSON,YELLOW>" 

952 DATA 252,247,248,251,250,247,248,249 

953 REM TST 


Listing 1. (Schluß) 


<084> 

< 157> 
<209> 
<068> 
<077> 
<049> 
<094> 
<03B> 

<056> 

<232> 

< 117> 

<244> 

<007> 

<13B> 

< 163> 

< 114 > 

<067> 

< 104 > 

< 122 > 

<248> 

<092> 

< 203 > 
< 220 > 
<197> 

< 196> 
<224> 

< 175> 

< 172 > 
<063> 
<255> 

< 163> 
<250> 
< 100 > 
<233> 

< 153> 

< 150> 
<154> 
<076> 

< 116> 


<084 > 

<251 > 

<068> 

<035> 


< 141 > 

< 183> 

<094> 



Name 

m-schreib 



cOOO c667 


cOOO 

00 

00 

00 

00 

00 

00 

ad 

00 

b7 


c008 

cO 

ac 

01 

cO 

85 

5f 

84 

60 

9d 


cOlO 

ad 

02 

cO 

ac 

03 

cO 

85 

5a 

85 


c 018 

84 

5b 

ad 

04 

cO 

ac 

05 

cO 

3d 

Listing 2. Die 

c020 

85 

58 

84 

59 

4c 

bf 

a3 

43 

f5 

o028 

a9 

00 

ac 

27 

c0 

88 

88 

88 

65 

Maschinenrou- 

c030 

8 d 

00 

c0 

8 c. 

01 

cO 

a9 

77 

2 b 

tine des Haupt- 

c038 

8 d 

02 

cO 

8 c 

03 

cO 

a9 

df 

25 

Programms ist 

e040 

aO 

05 

8 d 

04 

cO 

8 c 

05 

cO 

4d 

mit dem MSE 

c048 

84 

02 

20 

06 

cO 

c6 

02 

dO 

82 

(Seite 159) ein- 

c050 

03 

4c 

99 

c2 

ee 

01 

cO 

ee 

10 

zugeben 

c058 

03 

cO 

18 

d8 

a9 

78 

6 d 

04 

f9 


Ü'ar* 
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C64 


e 060 

: cO 

8d 

04 

cO 

a9 

00 

6d 

05 

5a 

e068 

: cO 

8d 

05 

cO 

4c 

4a 

cO 

a9 

b6 

c070 

: dO 

aO 

06 

85 

5f 

84 

60 

a9 

b2 

cÖ78 

: 47 

aO 

07 

85 

5a 

84 

5b 

a9 

Oc 

c080 

: 77 

ao 

27 

cO 

85 

58 

84 

59 

Of 

c088 

: 4c 

bf 

a3 

a9 

00 

ac 

27 

cO 

55 

c090 

: 85 

5f 

84 

60 

aO 

86 

85 

5a 

fb 

c098 

: 84 

5b 

c8 

85 

58 

84 

59 

20 

fc 

cOaO 

: bf 

a3 

a9 

00 

ac 

27 

cO 

85 

ad 

c 0 a 8 

: fb 

84 

fc 

c8 

84 

02 

20 

ca 

ac 

cObO 

: cO 

60 

a9 

00 

aO 

40 

85 

fb 

25 

c0b8 

: 84 

fo 

a9 

87 

85 

02 

20 

ca 

94 

cOcO 

: cO 

e6 

fc 

a5 

fc 

c5 

02 

dO 

8f 

o0c8 

: f5 

60 

a9 

00 

aO 

ff 

91 

fb 

aO 

cOdO 

: oO 

00 

fO 

Oa 

88 

cO 

77 

dO 

lc 

c0d8 

: f5 

a9 

20 

4c 

ce 

cO 

60 

ac 

01 

oOeO 

: 27 

cO 

a9 

00 

c8 

85 

5f 

84 

11 

c0e8 

: 60 

c8 

85 

5a 

84 

5b 

88 

85 

a9 

cOfO 

: 58 

84 

59 

84 

02 

20 

bf 

a3 

d9 

c0f8 

: a4 

02 

cO 

86 

30 

e4 

a9 

00 

6f 

clOO 

: aO 

86 

85 

fb 

84 

fc 

c8 

84 

20 

cl08 

: 02 

20 

ca 

cO 

60 

18 

38 

a5 

d8 

OllO 

: d6 

e9 

12 

aa 

a5 

d 3 

c9 

28 

25 

cll8 

: 30 

04 

18 

38 

e9 

28 

eO 

00 

bb 

cl20 

: fO 

08 

ca 

d8 

18 

69 

28 

4c 

e8 

cl28 

: le 

cl 

8d 

2e 

cl 

60 

00 

a2 

b4 

cl30 

: 00 

86 

02 

ad 

2e 

cl 

ac 

27 

9c 

cl38 

: cO 

05 

02 

85 

5f 

84 

60 

a9 

9b 

cl40 

: 76 

05 

02 

85 

5a 

84 

5b 

85 

ac 

ol48 

: 58 

84 

59 

e6 

58 

20 

bf 

a3 

e2 

cl50 

: a5 

02 

dO 

07 

a9 

80 

85 

02 

c4 

cl58 

: 4c 

33 

cl 

a9 

00 

ae 

27 

cO 

77 

cl60 

: 85 

fb 

86 

fc 

ac 

2e 

cl 

a9 

bb 

cl68 

: 20 

91 

fb 

98 

09 

80 

a8 

a9 

ed 

cl70 

: 00 

91 

fb 

4c 

28 

cO 

00 

20 

8a 

cl78 . 

: Od 

cl 

a2 

01 

ad 

27 

cO 

85 

51 

cl80 : 

: fc 

a9 

00 

eO 

01 

fO 

02 

09 

If 

cl88 : 

: 80 

85 

fb 

ac 

2e 

cl 

dO 

01 

95 

0190 : 

: 60 

bl 

fb 

88 

91 

fb 

c8 

c8 

86 

cl98 : 

; oO 

78 

dO 

f5 

ca 

fO 

e2 

4c 

df 

claO : 

: 28 

cO 

00 

00 

00 

d3 

2d 

20 

bc 

cla8 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

a8 

olbO : 

: 20 

20 

a2 

08 

20 

ba 

ff 

a9 

b5 

clb8 : 

Od 

a2 

a5 

aO 

cl 

20 

bd 

ff 

a8 

clcO : 

a9 

fb 

a6 

fd 

a4 

fe 

20 

d8 

45 

clc8 : 

ff 

60 

7f 

7f 

7f 

7f 

7f 

7f 

b8 

cldO : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

dO 

eld8 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

d8 

cleO : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

eO 

cle8 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

e8 

clfO : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

fO 

clf8 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

f8 

C200 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

00 

c208 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

08 

c210 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

10 

0218 : 

7f 

7 f 

7f 

7f 

7f 

7f 

7f 

7f 

18 

c220 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

20 

c228 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

28 

o230 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

30 

c238 : 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

7f 

38 

c240 : 

7f 

29 

7f 

85 

02 

a2 

00 

bd 

95 

c248 : 

• ca 

cl 

c9 

7f 

fO 

Oe 

c5 

02 

fO 

c250 : 

fO 

05 

e8 

e8 

4c 

47 

c2 

e8 

f6 

o258 : 

bd 

ca 

cl 

60 

a5 

02 

c9 

20 

c9 

c260 : 

bO 

02 

09 

60 

60 

00 

00 

00 

66 

0268 : 

00 

00 

00 

00 

00 

00 

00 

00 

69 

0270 : 

a9 

6g 

aO 

d9 

85 

fb 

84 

fc 

f5 

c278 : 

a9 

cO 

aO 

db 

85 

fd 

84 

fe 

7d 

c280 : 

a9 

Oe 

aO 

00 

91 

fb 

e6 

fb 

e5 

c288 : 

dO 

02 

e6 

fc 

a6 

fd 

e4 

fb 

98 

c290 : 

dO 

02 

a6 

fe 

e4 

fc 

dO 

ec 

3e 

c298 : 

60 

a9 

50 

aO 

da 

85 

fb 

84 

c8 

c2a0 : 

fc 

a9 

00 

ac 

27 

cO 

85 

fd 

91 

c2a8 : 

84 

fe 

aO 

80 

bl 

fd 

09 

01 

15 


e2b0 : 91 fb c8 cO f8 dO f5 60 38 
c2b8 : a9 00 ac 27 eO 85 fb 84 a2 
c2c0 : fc ad 2e cl 09 80 a8 bl fl 
c2c8 : fb 48 09 01 99 50 da 98 03 
c2d0 : 29 7f a8 a9 7f 39 dO 06 29 
c2d8 : 99 dO 06 68 29 01 18 6a 38 
c2e0 : 6a 19 dO 06 99 dO 06 60 c5 
c2e8 : aO 03 ad 27 cO a2 f7 85 66 


c 2 f 0 

: fc 

86 

fb 

bl 

2d 

84 

02 

aO 

a5 

c2f8 

: 00 

91 

fb 

a5 

02 

18 

d8 

69 

8b 

c300 

: 07 

a8 

e8 

dO 

ec 

60 

00 

00 

81 

c308 

: aO 

03 

84 

02 

ad 

27 

cO 

a2 

e8 

C310 

: f7 

85 

fc 

86 

fb 

aO 

01 

bl 

06 

c 318 

: fb 

fO 

14 

aO 

00 

bl 

fb 

a4 

6b 

c320 

: 02 

91 

2d 

98 

18 

d8 

69 

07 

45 

c328 

: 85 

02 

e8 

86 

fb 

dO 

ec 

60 

74 

c330 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

C338 

: aO 

76 

b9 

dO 

06 

c9 

20 

fO 

ad 

c340 

: 13 

c9 

aO 

dO 

17 

a9 

80 

ae 

98 

c348 

: 27 

cO 

85 

fb 

86 

fc 

bl 

fb 

bf 

c350 

: 29 

01 

dO 

08 

cO 

00 

fO 

05 

09 

c358 

: 88 

4c 

3a 

c3 

c8 

98 

aO 

2d 

3b 

c360 

: 91 

2d 

85 

fb 

a9 

01 

aO 

26 

da 

c368 

: dl 

2d 

10 

53 

a9 

01 

aO 

00 

63 

c370 

: 85 

02 

84 

fe 

84 

fc 

b9 

dO 

bO 

c378 

: 06 

29 

7f 

aa 

bd 

00 

87 

85 

4d 

c380 

: fd 

29 

lf 

d8 

18 

65 

02 

85 

b4 

C388 : 

: 02 

a9 

00 

65 

fe 

85 

fe 

a5 

6f 

c390 : 

: fd 

29 

20 

fO 

Oe 

d8 

38 

a5 

lc 

c398 : 

: 02 

e5 

fc 

85 

02 

a5 

fe 

e9 

9a 

c3a0 : 

: 00 

85 

fe 

a5 

fd 

29 

cO 

18 

33 

c3a8 : 

: 4a 

4a 

4a 

4a 

85 

fc 

c8 

c4 

eO 

c3bO : 

fb 

30 

c3 

aO 

34 

a5 

02 

91 

64 

c3b8 : 

2d 

aO 

3b 

a5 

fe 

91 

2d 

60 

ab 

c3c0 : 

00 

00 

00 

00 

00 

00 

ff 

ff 

cO 

c3c8 : 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

ff 

c7 

c3dO : 

ff ff ff 





ft 

cf 

C3d8 : 

ff 

ff 

ff 

ff 

ff 

ff' 

ff 

aO 

18 

c3e0 : 

00 

84 

b5 

ad 

27 

cO 

84 

fb 

c8 

c3e8 : 

85 

fc 

aO 

fd 

bl 

fb 

85 

fd 

eO 

c3f0 : 

a9 

04 

20 

bl 

ff 

ad 

c6 

c3 

ea 

c3f8 : 

20 

93 

ff 

aO 

00 

98 

09 

80 

eO 

c400 : 

a8 

a5 

b5 

85 

b6 

bl 

fb 

85 

8d 

c408 : 

b5 

c5 

b6 

fO 

03 

20 

51 

c4 

6b 

c4l0 : 

98 

29 

7f 

a8 

bl 

fb 

20 

4l 

30 

c4l8 : 

c2 

c9 

20 

dO 

09 

a6 

fe 

fO 

85 

c420 : 

05 

20 

a8 

ff 

c6 

fe 

20 

a8 

96 

c428 : 

ff 

c8 

c4 

fd 

dO 

cf 

a9 

07 

bc 

c430 : 

85 

b6 

a9 

00 

85 

b5 

20 

51 

a4 

c438 : 

c4 

a9 

Oa 

20 

a8 

ff 

20 

ae 

cO 

c440 : 

ff 

60 

bd 

c7 

c3 

c9 

ff 

dO 

04 

c448 : 

01 

60 

20 

a8 

ff 

e8 

4c 

42 

93 

c450 : 

c4 

a5 

b5 

29 

01 

fO 

lc 

a2 

c7 

c458 : 

00 

20 

42 

c.4 

a5 

b5 

29 

02 

42 

c460 : 

fO 

19 

a2 

08 

20 

42 

c4 

a5 

f9 

c468 : 

b5 

29 

04 

fO 

16 

a2 

10 

20 

c8 

c470 : 

42 

c4 

60 

a2 

04 

20 

42 

c4 

55 

c478 : 

4c 

5c 

c4 

a2 

Oc 

20 

42 

c4 

cc 

c480. : 

4c 

67 

c4 

a2 

14 

20 

42 

c4 

da 

c488 : 

60 

ff 

ff 

ff 

ff 

ff 

00 

00 

e8 

c490 : 

00 

00 

aO 

00 

84 

fb 

ad 

27 

e6 

c498 : 

cO 

85 

fc 

a9 

88 

85 

59 

a9 

fc 

c4aO : 

04 

20 

bl 

ff 

ad 

c6 

c3 

20 

81 

c4a8 : 

93 

ff 

aO 

fd 

bl 

fb 

8d 

8f 

73 

c4bO : 

c4 

aO 

00 

20 

b9 

c4 

4c 

Oc 

d3 

c4b8 : 

c5 

bl 

fb 

29 

7f 

85 

58 

aa 

55 

c4cO : 

bd 

00 

87 

aa 

29 

lf 

85 

5c 

Of 

c4c8 : 

8a 

29 

20 

85 

5b 

8a 

29 

cO 

dO 

c4dO : 

4a 

4a 

4a 

4a 

85 

5a 

a9 

00 

ed 

c4d8 : 

85 

b5 

a9 

ff 

85 

b3 

aO 

80 

lc 

c4e0 : 

bl 

fb 

aa 

29 

01 

fO 

08 

ad 

72 

c4e8 : 

8b 

87 

2d 

90 

c4 

85 

b5 

8a 

f9 

c4f0 : 

29 

04 

dO 

71 

ad 

91 

c4 

85 

03 

c4f8 : 

b3 

a5 

58 

c9 

20 

dO 

Oa 

ae 

db 


c500 : 

Ob 

c5 

fO 

05 

e6 

5c ce 

Ob 

6d 

c508 : 

c5 

60 

00 

00 

ad 

Oa c5 

8d 

5b 

c510 

Ob 

c5 

a5 

58 

85 

fd a5 

5a 

06 

c518 

85 

5e 

a5 

5c 

85 

5d a5 

59 

4e 

c520 

85 

fe 

a5 

b5 

85 

b6 a5 

b3 

50 

c528 

85 

b4 

a9 

88 

85 

59 e6 

fb 

39 

c530 

aO 

00 

20 

b9 

c4 

a5 5d 

fO 

eO 

c538 

23 

a4 

02 

bl 

fd 

a6 5b 

fO 

c8 

c540 

Oe 

a6 

5e 

e4 

5d 

dO 08 

11 

74 

c548 

58 

c6 

5e 

c6 

5c 

e6 59 

25 

20 

c550 

b4 

05 

b6 

20 

a8 

ff e6 

fe 

5d 

c558 

c6 

5d 

dO 

df 

ce 

8f c4 

dO 

lb 

c560 

bl 

20 

ae 

ff 

60 

8d 8e 

c4 

03 

c568 

dO 

8f 

a9 

24 

85 

fb a9 

fb 

c6 

c570 

85 

bb 

a9 

00 

85 

bc a9 

01 

24 ' 

c578 

85 

b7 

a9 

08 

85 

ba a9 

60 

da 

c580 

85 

b9 

20 

d5 

f3 

a5 ba 

20 

3c 

c588 

b4 

ff 

a5 

b9 

20 

96 ff 

a9 

e6 

c590 

00 

85 

90 

aO 

03 

84 fe 

84 

e4 

c598 

fb 

20 

a5 

ff 

85 

fc a4 

90 

01 

c5aO 

dO 

73 

20 

a5 

ff 

a4 90 

dO 

fO 

c5a8 

6c 

a4 

fb 

88 

dO 

e9 85 

fd 

e5 

c5b0 

20 

a5 

ff 

a4 

90 

dO 5e 

c9 

d4 

c5b8 

42 

fO 

5e 

4c 

c5 

c5 20 

a5 

ea 

c5cO 

ff 

a4 

90 

dO 

50 

c9 22 

dO 

cd 

c5c8 

f5 

20 

a5 

ff 

a4 

90 dO 

45 

d3 

c5dO 

c9 

d3 

dO 

32 

20 

a5 ff 

a4 

76 

c5d8 

90 

dO 

3a 

c9 

2d 

dO 27 

a 2 

d3 

c5eO 

Ob 

86 

02 

20 

a5 

ff a4 

90 

cl 

c5e8 

dO 

2b 

20 

d2 

ff 

c6 02 

dO 

90 

c5fO 

f2 

a9 

20 

20 

d2 

ff 20 

d2 

16 

c5f8 

ff 

c6 

fe 

dO 

09 

a9 Od 

20 

86 

c600 

d2 

ff 

a2 

03 

86 

fe 20 

a5 

07 

c608 

ff 

a4 

90 

dO 

08 

aa dO 

f6 

9e 

c6l0 

aO 

02 

4c 

97 

c5 

20 42 

f6 

Oc 

c6l8 

60 

a9 

Od 

20 

d2 

ff d8 

38 

95 

c620 

a5 

fc 

e9 

03 

aa 

a5 fd 

e9 

c2 

c628 

00 

10 

03 

a9 

00 

aa 20 

cd 

98 

c630 

bd 

4c 

15 

c6 

00 

00 00 

c6 

bf 

c638 

01 

a9 

00 

a2 

aO 

85 fb 

86 

95 

c640 

fc 

a2 

b9 

85 

fd 

86 fe 

c6 

4a 

c648 

fc 

c6 

fe 

a6 

fc 

eO 87 

bO 

92 

c650 

03 

e6 

01 

60 

aO 

00 88 

bl 

a2 

c658 

fb 

48 

bl 

fd 

91 

fb 68 

91 

61 

c660 

fd 

98 

dO 

f2 

4c 

47 c6 

20 

96 


Name : Proportion. 8700 8787 


8700 : 

Ob 

Oc 

Ob 

Ob 

Ob 

Oc 

Oa 

Ob 

85 

8708 : 

Ob 

08 

09 

Oa 

08 

Oc 

Ob 

Oc 

cO 

8710 : 

Ob 

Ob 

Ob 

Oc 

Ob 

Oc 

Oc 

Oc 

3 f 

8718 : 

Oa 

Oa 

Oc 

Oc 

20 

Oc 

Ob 

20 

7b 

8720 : 

07 

05 

08 

Oc 

Oc 

Oc 

Oc 

07 

8d 

8728 : 

06 

06 

Oc 

Oc 

07 

Oc 

06 

Oa 

b3 

8730 ; 

: Oc 

08 

Oc 

Oc 

Oc 

Oc 

Oc 

Oc 

2e 

8738 : 

: Oc 

Oc 

Ob 

Ob 

06 

Oc 

06 

Oc 

60 

8740 : 

; Oc 

Oc 

Oc 

Oc 

Oc 

Oc 

Oc 

Oc 

40 

8748 : 

: Oc 

08 

Ob 

Oc 

Oc 

Oc 

Oc 

Oc 

06 

8750 : 

: Oc 

Oc 

Oc 

Oc 

Oc 

Oc 

Oc 

Oc 

50 

8758 : 

: Oa 

Oc 

Oc 

20 

20 

20 

20 

20 

33 

8760 : 

; Od 

20 

20 

20 

20 

20 

20 

20 

4d 

8768 ; 

: 20 

20 

20 

20 

20 

20 

20 

20 

68 

8770 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

8778 ; 

: 00 

00 

Oc 

00 

00 

00 

00 

00 

7c 

8780 : 

: dO 

52 

4f 

50 

4f 

52 

54 

fb 

28 


Listing 3. Die Tabelle mit den 
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DRUCKER-LISTINGS 


1 REM ******************************** 

<051 > 


T 

<039> 

2 REM * ZEICHENEDITOR 9/86 * 

<024> 

242 

NEXT:RETURN 

< 181 > 

3 REM * FUER SCHREIBMASCHINE * 

<082> 

260 

FOR 1=1 TO 4 

<234> 

4 REM * HAFNER, GROSSAITINBEN * 

<049> 

261 

FOR K=1 TO 24: PRINT#1,CHR*(Z2 <K)>;:NEX 


5 REM ******************************** 

<055> 


T 

< 062 > 

6 POKE 52,56: POKE 56,56:CLR:DIM Z1(24),Z2( 


262 

NEXT 

<01B> 

24) 

< 1B7> 

265 

RETURN 

<069> 

7 FOR 1=0 TO 73:READ A:POKE 49152+1,A:NEXT 


300 

PRINT#1,A2*; 

<220> 

:SYS 49158:REM VERSCH/SAVE 

<009> 

301 

M7.= l: GOSUB 235: GOSUB 240:MZ=4:GOSUB 23 


0 DATA 0,160,0,192,0,192,173,0,192,172,1,1 



5: GOSUB 240: M7.=3: GOSUB 235: GOSUB 240: P 


92,133,95,132,96,173,2,192,172,3 

<229> 


RINT#1,CHR*(10); 

<103> 

9 DATA 192,133,90,132,91,173,4,192,172,5,1 


305 

M7.= l: GOSUB 235: GOSUB 260: M7.=4: GOSUB 23 


92,133,88,132,89,76,191,163,32,32 

<01B> 


5: GOSUB 260: M7.=3: BOSUB 235: GOSUB 260: P 


10 DATA 32,32,32,32,32,32,32,32,32,162,8,3 



RINT#1,CHR*(10); 

<075> 

2,186,255,169,11,162,39,160,192,32 

<097> 

320 

RETURN 

<124> 

11 DATA 109,255,169,251,162,0,160,160,32,2 


399 

: 

< 121 > 

16,255,96 

<215> 

400 

REM +<-*-+ DATEN AUSRECHNEN 

<073> 

12 A*="IUP,DOWN,UP,DOWN,2UP>":FOR 1-1 TO 6 


410 

FOR 1=1 TO 24:ZI<I)=0 

< 151 > 

■ POKE 41B47+I,ASC <MID*(A*,1,1)):NEXT:PO 


411 

FOR K=1 TO 8:X7.=ASC<MID*(A*<K> ,1,1) ) 

<006> 

KE 1,54:REM READY 

< 148> 

412 

IF(XXAND 127 ) =32 THEN 420 

< 160> 

13 SA7.= 14:REM SEK.ADR. < UNGEWANDELT > 

< 157> 

415 

ZI (I)=Z1(I ) +2t(8-K) 

< 131 > 

14 NA=135*256 : NB=136*256:NC=NB+128 

<095> 

420 

NEXT K,I 

<245 > 

15 SYS 57012 “ B-DEUTSCH*",8,1:POKE 780,0:SY 


460 

FOR 1 = 1 TO 24:Z2 < I ) =0 

<209> 

S 65493 

< 112> 

461 

FOR K=1 TO 8: X7.=ASC (MID* <B* (K) , I , 1) > 

<057> 

17 POKE 53272,<PEEK(53272)AND 240)+12 

<111) 

462 

IF < XXAND 127)=32 THEN 470 

<215> 

18 PRINT CHR* < 14) ;: PRINT" {CLR,2RIGHT,2D0WN 


465 

Z2 < I ) =Z2 < I ) +2T <8—K) 

< 191 > 

>i£ICHENEDITOR F@R ' .S.CAK.E.IJWT5.CAI.KE - " 

<062> 

470 

NEXT K,I 

<039> 

19 UN*-" a d ooooo'ooo'o ü'owooo'o'ddd'd'od'ooodWo a 


480 

RETURN 

<028> 

"ooaö ": PRINT UN* 

< 176> 

499 

: 

<221 > 

20 PRINT" {2SPACE,D0WNXL) ADE ZEICHENSATY" : 


500 

REM +++<- ZEICHEN SPEICHERN 

< 168> 

PRINT"{2SPACE,DOWNXE)RSTELLE NEUEN .SAT 


505 

GOSUB 600 

<235> 

Y (L: SCHT SPEICHER) " 

< 1B9> 

510 

CX7.=0:CY7.=20: GOSUB 651 

< 159> 

21 PRINT" {2SPACEXAJLTES IEICHEN ; NDERN" : P 


511 

IF AS>255 THEN PRINT"<UP>GOTO 510 

<069> 

RINT " <2SPACE,D0WNXN) EUES IEICHEN ERSTE 


515 

L=L AND 31 : PRINT"ZEICHENL;NGE(0—24) {3S 


LLEN" 

< 030 > 


PACE >"; L J"{5LEFT >";:INPUT L 

<003> 

22 PRINT"{2SPACE,D0WN>(S)PEICHERE SATY":PR 


516 

IF L>24 THEN PRINT"{UP>“;:GOTO 515 

< 158> 

INT"C2SPACE,2D0WN > < £> ROPORTIONALSCHRIFT 


520 

PRINT"UNTERSCHIEBBAR LINKS UNTEN(J/N){ 


; NDERN" 

<006> 


3SPACE >"; F* ;" {3LEFT >";: INPUT F* 

< 170> 

23 POKE 198,0:WAIT 198,1:GET At:IF A*="A"T 


521 

IF F*< >" J"AND F*<>"N"THEN PRINT"{UP>"; 


HEN GOSUB 700:GOTO 30 

< 195> 


: GOTO 520 

< 127> 

24 IF A*="P“THEN GOSUB 1100:GOTO 18 

<213> 

525 

PRINT"NsCHSTES UNTERSCHIEBBAR <0/4/8/12 


25 IF A*="E"THEN GOSUB 900:GOTO 18 <127> 

, :2SPACE > "; U ; " C5LEFT > ";: INPUT U 

<006> 

26 IF A*="L"THEN GOSUB 800:GOTO 18 

<252> 

526 

IF U AND 243 THEN PRINT"<UP>" ;: GOTO 52 


27 IF A*=“S"THEN GOSUB 1000:GOTO 18 

<073> 


5 

<006> 

28 IF A*< >"N"THEN 23 

< 125> 

528 

L=L+U*16:IF F*="J"THEN L=L+32 

<219> 

29 FOR 1 = 1 TO 8 : A* ( I )=" {24SPACE >": B* ( I ) =A* 


530 

GOSUB 400:POKE(NA+AS),L 

<151> 

( I >: NEXT 

<000> 

540 

FOR 1=0 TO 23:POKE<136+1>*256+AS,ZI<1+ 


30 PRINT" {CLR,8SPACE ) wWvVy'yVW v‘yYn'v'y\Y 



1 ) :NEXT 

<246> 

YYYN" 

<1B2> 

8 

in 

in 

FOR 1=0 TO 23:POKE<136+1)*256+128+AS,Z 


31 FOR 1=1 TO B:PRINT"A*<";I;" )=“; CHR*(34) 



2 < 1 + 1 ): NEXT 

<236> 

; A* < I >; CHR*(34) : NEXT 

<244> 

560 

RETURN 

<110> 

32 FOR 1=1 TO B : PR I NT 11 B* ( "; I ; " ) = "; CHR* ( 34 > 


599 

: 

<067> 

; B* ( I ); CHR*(34) : NEXT 

< 119> 

600 

REM ++<-♦- ZEILEN LOESCHEN 

< 148> 

33 PRINT " {8SPACE>Vip>>>Tp>wTpP' p'PPW'p’PP'rPp'P>I 


601 

FOR 1=0 TO 5:POKE 781,18+1:SYS 59903:N 


": PRINT"GOTO40" 

<004> 


EXT 

<080> 

34 PRINT, " (DOWNJBELIEBIGE IASTE VERWENDEN! 


605 

POKE 211,0:POKE 214,19:SYS 58640 

<023> 

" 

<245> 

610 

RETURN 

< 160> 

35 PRINT, "IEILEN MIT ■iümü' BEENDEN!" 

<014> 

649 

s 

< 117> 

36 PRINT,"EBENSO DEN SEFEHL{RIGHTXGOTO 40 


650 

REM ++++ EINGABE BILDSCHIRMCODE 

<105> 

•!<4UP>" 

< 106> 

651 

POKE 211 ,CX7.:P0KE 214,CY7.:SYS 58640:PR 


37 END 

<039> 


INT "IASTE DES .ZEICHENS? "; 

<061 > 

38 : 

<014 > 

652 

GET A*:IF A*=""THEN 652 

<243> 

39 : 

<015> 

653 

A17.=ASC<A*): IF A17.<32 OR A17.>218 OR Al 


40 GOSUB 600 

<024> 


7.=95 OR A17.=92 THEN 652 

< 113> 

51 PRINT" < £.) ROBEAUSDRUCK " 

< 189> 

654 

IF A17.> 125 AND A17.<192 AND A17.01B6 TH 


52 PRINT"{DOWN,SPACEXNIOCHMAL ;NDERN" 

< 133> 


EN 652 

<079> 

53 PRINT"IDOWN,SPACEXS1PEICHERN IM SATY" 

<094> 

655 

PRINT A*: AS=PEEK<1024+CX7.+20+CY7.*40> :R 


55 POKE 198,0:WAIT 198,1 

<027> 


ETURN 

<211 > 

56 GET A*:IF A*="P"THEN GOSUB 200-.GOTO 40 

<005> 

699 

. 

< 167> 

57 IF A*="S"THEN GOSUB 500:GOTO 18 

< 134> 

700 

REM +++<- ALTES ZEICHEN LESEN 

<213> 

58 IF A*="N"THEN 30 

< 119> 

701 

PRINT" {CLR>"; :CX7.= 1:CY7.=4: GOSUB 651 

<064> 

59 GOTO 56 

< 109> 

703 

PRINT"{2SPACE,DOWN >BITTE WARTEN!" 

<224> 

199 : 

< 175> 

705 

L=PEEK(NA+AS):F=(L AND 32):U=(L AND 19 


200 REM «-+■++ PROBEAUSDRUCK 

<025> 


2>/16:IF F=32 THEN F*="J" 

<054> 

202 GOSUB 600:PRINT"{2SPACE,DOWNIBITTE WAR 

706 

L= <L AND 31):IF L=0 THEN 760 

<062> 

TEN" 

<254 > 

710 

FOR 1 = 1 TO 24:Z1<I)=PEEK < <135+1)*256+A 


205 FOR 1 = 1 TO 24:Z1<I> =0:Z2(I)=0:NEXT 

<050> 


S):NEXT 

<066> 

210 CLOSE 1: OPEN 1,4,SA7. 

<010> 

711 

FOR 1 = 1 TO 24: Z2 < I > =PEEK < < 135+1 > *256+1 


225 A2*=CHR*(27)+"3"+CHR*(24) 

<036> 


28+AS) .-NEXT 

< 181 > 

228 GOSUB 400 

< 196> 

715 

FOR 1 = 1 TO 8:A*(I> ="":B*(I)="":NEXT 

<040> 

230 GOTO 300 

< 174> 




235 PR I NT# 1 , CHR* (27) + " * " +CHR* (M7.) +CHR* <96 
+OHR$(0): iRFTlIRN 

<135> 

Llsting 4. Das Baslc-Programm »Zeicheneditor« 


240 FOR 1=1 TO 4 

<212> 

für die Schreibmaschine. Bitte mit dem Checksummer 

241 FOR K=1 TO 24:PRINT#1,CHR*(ZI(K>)J:NEX 

(Seite 159) eingeben. 
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C64 


720 FDR 1=1 TO B:FOR K=1 TO 24:IF ZI(K)AND 


2TO-DTHEN A$<I)=A$<I)+"0":G0TQ 725 <205> 

722 A* <I)=A*(I) + " " <061> 

725 NEXT K,I <040> 

730 FOR 1 = 1 TO B:FOR K=1 TO 24:IF Z2 <K> AND 

2T(8-1)THEN B*(I)=B*<I)+"0":GOTO 735 <036> 

732 B*(I)=B*<I)+" " <076> 

735 NEXT K,I <050> 

750 RETURN <044> 

760 FOR 1 = 1 TO 8: A*(I> ="{24SPACE>": B*(I> =A 

* < I):NEXT:RETURN <13B> 

799 : <013> 

800 REM <-«-*-*- LADE SATZ <225> 

805 PRINT"CCLR,2SPACE,2D0WN>";:GOSUB 951 <121> 

810 SYS 57812N*,B,1:P0KE 780,0:SYS 65493:R 

ETURN <220> 

899 : <113> 

900 REM «-«-«-*- SPEICHER LOESCHEN <032> 

901 PRINT"CCLR>"; <077> 

905 PRINT"<2SPACE,3D0WN>";:GOSUB 951 <101> 

910 INPUT"{2SPACEIP0RM DES ÜNTERSTRICHS<0, 

1..255)";UN:PRINT"{2SPACEJBITTE WARTEN 
" <197> 

920 FOR I=NA TO 160*256-1:POKE I,0:NEXT <0B5> 

921 FOR 1=1 TO 11:POKE 135*256+128+1-1,ASC 

<MID*(N*,I,1))tNEXT:POKE NA+12B+11.UN <003> 

930 RETURN <226> 

949 : <163> 

950 REM ++++ SCHRIFTNAME <17B> 

951 INPUT"HAME DER SCHRIFT"; N* <206> 

952 N*=LEFT*(N*+"aiSPACE>",ll):RETURN <190> 

999 : <213> 

1000 REM +«-+«- SATZ SPEICHERN <159> 

1005 PRINT"{CLR,DOWN,SPACE)SAVE> (SCHRIFTN 

AME)" <174> 

1006 N*="":FOR 1=0 TO 10:N*=N*+CHR*(PEEK<N 

A+12B+I)):NEXT <176> 

1007 PRINT"{4SPACE>";N*;"{13LEFT}"; : INPUT 

N*:GOSUB 952 <210> 

1008 FOR 1=0 TO 10:POKE NA+128+I,ASC(MID*< 

N*,1+1,1)):NEXT <062> 


1009 PRINT"<2SPACE>FORM DES ÜNTERSTRICHS ( 

0 ,1..255)":PRINT"(5SPACE>";STR*(PEEK( 

NA+128+11)); <20B> 

1010 INPUT"{5LEFT)";UN:POKE NA+128+11,UN <068> 

1015 EA1=0:EA2=160 <1B3> 

1016 OPEN 2,8,15,"S:"+N*:CLOSE 2 <139> 

1020 FOR 1=0 TO 10:POKE 49191+1,ASC(MID*(N 

*,1+1,1)>:NEXT <201> 

1021 POKE 251,0:POKE 252,135:P0KE 49219,EA 
1:POKE 49221,EA2:REM ANFANGS-/ENDADRE 

SSE <173> 

1022 SYS 49202:REM SAVE <21B> 

1025 RETURN <067> 

1099 : <059> 

1100 REM +*-*-+ PROP. AENDERN <160> 

1102 N*="PROPORTION.":GOSUB B10 <029> 

1105 PRINT"CCLR,DOWN,SPACE>PEICHENL;NGEN D 

ER PROPORTIONALSCHRIFT":PRINT" AN ÜRU 
CKER ANPASSEN" <240> 

1110 PRINT" (SIEHE IABELLE IM ÜRUCKERHANDB 

UCH!)":PRINT UN* <200> 

1115 BC=0 <183> 

1120 IF BC=2B OR BC=31 THEN 1140 <227> 

1121 IF BC=91 THEN BC=122 <203> 

1122 IF BC=123 THEN 1150 <193> 

1125 POKE 1265,BCiPRINT"{HOME,6DOWIM , 3RIGHT 

> 11 ; : L=PEEK <NA+BC) <148> 

1130 PRINT"ü;NGE{3SPACE>"+LEFT* <STR* <L)+"{ 

2SPACE>",3); <059> 

1135 INPUT"<4LEFT>“;L:IF L>30 OR L<1 THEN 

1125 <037> 

1136 POKE NA+BC,L <166> 

1140 BC=BC+1:GOTO 1120 <240> 

1150 PRINT"IDOWN,RIGHT>ALLES RICHTIG<SHIFT 

-SPACEJ(J/N)?" <225> 

1155 POKE 198,0:WAIT 198,1:GET A*:IF A*<>" 

J“AND A*OCHR* (13) THEN 1115 <174> 

1160 EA1=140:EA2=135:GOSUB 1016 <1B9> 

1170 RETURN <212> 


Listing 4. Schluß 


' ,~ r 


Name 

Candice 




8700 aOOO 

8800 

00 

00 

00 

00 

00 

00 

00 

00 

01 

8910 

00 

00 

00 

00 

00 

00 

00 

00 

11 











8808 

00 

00 

00 

00 

00 

00 

00 

00 

09 

8918 

00 

00 

00 

01 

20 

00 

00 

20 

7b 

8700 

74 

73 

71 

6 f 

b7 

71 

b5 

b7 

c5 

8810 

00 

00 

00 

00 

00 

00 

00 

00 

11 

8920 

00 

00 

00 

01 

00 

00 

00 

00 

41 

8708 

74 

6 d 

b2 

74 

b2 

78 

73 

72 

10 

8818 

00 

00 

00 

00 

20 

00 

00 

20 

5b 

8928 

03 

00 

00 

00 

00 

00 

00 

00 

2 c 

8710 

73 

b7 

71 

70 

6 d 

74 

71 

78 

fa 

8820 

00 

00 

00 

00 

00 

00 

00 

00 

21 

8930 

00 

00 

00 

00 

00 

00 

00 

00 

31 

8718 

76 

70 

b4 

51 

20 

58 

75 

20 

f8 

8828 

00 

00 

00 

00 

00 

00 

00 

00 

29 

8938 

00 

00 

00 

00 

00 

00 

00 

00 

39 

8720 

4c 

b2 

b7 

18 

18 

78 

18 

ae 

b9 

8830 

00 

00 

00 

00 

00 

00 

00 

00 

31 

8940 

00 

00 

00 

78 

01 

78 

00 

78 

14 

8728 

4c 

6 c 

76 

70 

2 a 

6 e 

2 a 

b8 

86 

8838 

00 

00 

00 

00 

00 

00 

00 

00 

39 

8948 

00 

00 

00 

00 

01 

00 

00 

07 

67 

8730 

72 

b3 

73 

73 

74 

73 

71 

b3 

d7 

8840 

00 

00 

00 

30 

00 

30 

00 

30 

28 

8950 

00 

01 

00 

78 

00 

78 

78 

78 

77 

8738 

73 

72 

73 

74 

6 c 

6 f 

6 c 

70 

25 

8848 

00 

00 

00 

00 

00 

00 

00 

03 

4f 

8958 

00 

00 

78 

20 

20 

20 

20 

20 

3e 

8740 

74 

58 

58 

55 

98 

55 

98 

56 

e4 

8850 

00 

00 

00 

30 

00 

38 

38 

38 

6 a 

8960 

ff 

20 

20 

20 

20 

20 

20 

20 

3f 

8748 

98 

b5 

b6 

98 

98 

58 

98 

50 

cb 

8858 

00 

00 

38 

20 

20 

20 

20 

20 

2 e 

8968 

20 

20 

20 

20 

20 

20 

20 

20 

68 

8750 

58 

51 

58 

95 

98 

56 

98 

58 

69 

8860 

ff 

20 

20 

20 

20 

20 

20 

20 

3f 

8970 

20 

20 

20 

20 

20 

20 

20 

20 

70 

8758 

98 

53 

97 

20 

20 

20 

20 

20 

48 

8868 

20 

20 

20 

20 

20 

20 

20 

20 

68 

8978 

00 

00 

78 

00 

00 

00 

00 

00 

97 

8760 

00 

20 

20 

20 

20 

20 

20 

20 

40 

8870 

20 

20 

20 

20 

20 

20 

20 

20 

70 

8980 

00 

00 

00 

00 

00 

00 

06 

le 

d5 

8768 

20 

20 

20 

20 

20 

20 

20 

20 

68 

8878 

00 

00 

38 

00 

00 

00 

00 

00 

87 

8988 

00 

00 

06 

00 

00 

00 

00 

00 

0 a 

8770 

20 

20 

20 

20 

20 

20 

20 

20 

70 

8880 

00 

00 

00 

00 

00 

00 

Oe 

0 c 

dl 

8990 

06 

00 

00 

00 

00 

00 

00 

00 

97 

8778 

00 

00 

57 

00 

00 

00 

00 

00 

4e 

8888 

00 

00 

Oe 

00 

00 

00 

00 

00 

0 c 

8998 

00 

00 

Oe 

fO 

00 

f8 

00 

00 

02 

8780 

03 

4l 

4e 

44 

49 

43 

45 

20 

04 

8890 

02 

00 

00 

00 

00 

00 

00 

00 

93 

89a0 

00 

00 

00 

80 

03 

00 

30 

00 

al 

8788 

20 

20 

20 

03 

00 

00 

00 

00 

21 

8898 

00 

00 

0 c 

eO 

00 

70 

00 

00 

3b 

89a8 

eO 

0 c 

00 

00 

00 

00 

00 

00 

8 f 

8790 

00 

00 

00 

00 

00 

00 

00 

00 

91 

88 a0 

00 

00 

00 

80 

01 

00 

30 

00 

81 

89b 0 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

8798 

00 

00 

00 

00 

00 

00 

00 

00 

99 

88 a8 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

89b 8 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

87a0 

00 

00 

00 

00 

00 

00 

00 

00 

al 

88 b 0 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

89c0 

00 

f8 

f8 

00 

eO 

00 

f8 

00 

6 c 

87a8 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

88 b8 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

89c8 

f8 

f8 

7c 

f8 

eO 

f8 

f8 

cO 

b6 

87b0 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

88 c0 

00 

70 

70 

00 

cO 

00 

70 

00 

e2 

89d0 

f8 

eO 

f8 

00 

f8 

00 

00 

00 

06 

87b8 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

88 c8 

70 

70 

38 

70 

cO 

70 

70 

80 

df 

89d8 

f8 

20 

le 

00 

00 

00 

00 

00 

68 

87o0 

00 

00 

00 

00 

00 

00 

00 

00 

cl 

88 d0 

70 

cO 

70 

00 

70 

00 

00 

00 

c4 

89e0 

ff 

00 

00 

00 

00 

00 

00 ,00 

eO 

87o8 

00 

00 

00 

00 

00 

00 

00 

00 

c9 

88 d8 

70 

00 

Oc 

00 

00 

00 

00 

00 

4c 

89e8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

87d0 

00 

00 

00 

00 

00 

00 

00 

00 

dl 

88 e0 

ff 

00 

00 

00 

00 

00 

00 

00 

e0 

89 fO 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

87d8 

00 

00 

00 

00 

00 

00 

00 

00 

d9 

88 e8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

89 f 8 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

87e0 

00 

00 

00 

00 

00 

00 

00 

00 

el 

88 f0 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

8 a00 

00 

00 

00 

00 

00 

00 

00 

00 

01 

87e8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

88 f8 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

8a08 

00 

00 

00 

00 

00 

00 

00 

00 

09 

87f0 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

8900 

00 

00 

00 

00 

00 

00 

00 

00 

01 

8 al0 

00 

00 

00 

00 

00 

00 

00 

00 

11 

87f8 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

8908 

00 

00 

00 

00 

00 

00 

00 

00 

09 

8 al8 

00 

00 

00 

03 

20 

01 

00 

20 

c3 
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DRUCKER-LISTINGS 


8 a20 : 

00 

00 

00 

01 

00 

00 

00 

00 

4l 

8c70 : 

20 

20 

20 

20 

20 

20 

20 

20 

70 

8 ec0 : 

9c 

3c 

3c 

eO 

eO 

f8 

30 

le 

78 

8a28 : 

07 

00 

00 

00 

00 

00 

00 

00 

30 

8c78 : 

00 

00 

ec 

00 

00 

00 

00 

00 

b4 

8 ec8 : 

38 

30 

lc 

38 

eO 

38 

38 

eO 

99 

8a30 : 

00 

00 

00 

00 

00 

00 

00 

00 

31 

8c80 : 

00 

00 

00 

00 

00 

00 

lc 

06 

fd 

8 ed0 : 

3c 

eO 

3c 

f8 

30 

eO 

eO 

eO 

fa 

8a38 : 

00 

00 

00 

00 

00 

00 

00 

00 

39 

8 c88 : 

60 

00 

lc 

60 

00 

60 

60 

00 

80 

8 ed8 : 

38 

cO 

e6 

00 

00 

00 

00 

00 

2 a 

8a40 : 

00 

01 

01 

78 

19 

78 

01 

78 

5b 

8c90 : 

38 

00 

60 

60 

eO 

00 

00 

00 

f9 

8 ee0 : 

ff 

00 

00 

00 

00 

00 

00 

00 

eO 

8a48 : 

01 

01 

00 

01 

01 

01 

01 

Of 

24 

8c98 : 

cO 

60 

c2 

38 

00 

3c 

60 

00 

a3 

8 ee8 : 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

8a50 : 

01 

01 

01 

78 

01 

7c 

7c 

7c 

00 

8 ca0 

00 

00 

00 

80 

Oc 

20 

60 

00 

f4 

8 ef0 : 

00 

00 

00 

00 

00 

00 

00 

33 

57 

8a58 : 

01 

00 

7c 

20 

20 

20 

20 

20 

40 

8 ca8 

lc 

70 

00 

00 

08 

00 

00 

20 

bd 

8 ef8 : 

4b 

01 

eO 

01 

03 

10 

db 

00 

3c 

8a60 : 

ff 

20 

20 

20 

20 

20 

20 

20 

3f 

8 cb0 

80 

00 

60 

cO 

00 

cO 

80 

60 

29 

8 f00 : 

03 

07 

07 

07 

07 

07 

00 

07 

eO 

8 a68 : 

20 

20 

20 

20 

20 

20 

20 

20 

68 

8 cb8 

cO 

40 

00 

00 

08 

80 

00 

00 

ld 

8f08 : 

03 

03 

00 

03 

03 

Of 

Of 

07 

eO 

8a70 : 

20 

20 

20 

20 

20 

20 

20 

20 

70 

8 cc0 

08 

3c 

3c 

00 

60 

f8 

38 

Oc 

bc 

8 fl0 : 

01 

07 

Of 

06 

Of 

03 

03 

03 

35 

8a78 : 

00 

00 

7c 

00 

00 

00 

00 

00 

98 

8 cc8 

3c 

38 

9e 

3c 

60 

3c 

3c 

eO 

ea 

8 fl8 : 

00 

Oc 

Of 

le 

20 

3c 

03 

20 

d6 

8a80 : 

00 

00 

00 

00 

00 

00 

06 

le 

d5 

8 cd0 

3c 

60 

3c 

f8 

38 

00 

00 

00 

ee 

8 f20 : 

00 

00 

c8 

00 

00 

10 

03 

c8 

71 

8 a88 : 

00 

00 

06 

00 

00 

00 

00 

00 

Oa 

8 cd8 

7c 

cO 

06 

00 

00 

00 

00 

00 

36 

8f28 : 

eO 

3f 

76 

03 

00 

03 

00 

00 

be 

8a90 : 

Oe 

00 

00 

00 

00 

00 

00 

00 

9f 

8 ce0 

ff 

00 

00 

00 

00 

00 

00 

00 

eO 

8f30 : 

lf 

00 

19 

03 

07 

01 

le 

61 

aa 

8a98 : 

00 

00 

ii, 

f8 

00 

fc 

00 

00 

21 

8 ce8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

8f38 : 

03 

3e 

07 

07 

00 

Od 

00 

fO 

47 

8 aa0 : 

00 

00 

00 

00 

06 

00 

30 

00 

c2 

8 c fO 

00 

00 

00 

00 

00 

05 

05 

14 

55 

8f40 : 

07 

78 

3c 

c7 

6 d 

c3 

cb 

c7 

3f 

8 aa8 : 

fO 

lc 

00 

00 

00 

00 

00 

00 

a7 

8 c f 8 

4b 

01 

00 

02 

02 

16 

06 

01 

ef 

8f48 : 

78 

78 

78 

78 

60 

78 

78 

70 

b6 

8 ab0 : 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

8 d00 

00 

01 

01 

01 

01 

01 

00 

01 

fb 

8f50 : 

3c 

de 

3c 

cl 

c8 

c3 

e3 

e3 

44 

8 ab8 : 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

8d08 

00 

00 

00 

00 

00 

00 

00 

01 

Ob 

8f58 : 

3c 

c9 

c3 

20 

20 

20 

20 

20 

32 

8 ac0 : 

00 

fc 

fc 

00 

eO 

70 

f8 

00 

f3 

8 dl0 

00 

01 

00 

00 

01 

00 

00 

00 

al 

8f60 

ff 

20 

20 

20 

20 

20 

20 

20 

3f 

8 ac8 : 

fc 

f8 

fe 

fc 

eO 

fc 

fc 

eO 

4b 

8 dl8 

01 

00 

01 

Oc 

20 

00 

00 

20 
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00 

00 

bl 

9ab8 : 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

9ac0 : 

00 

cO 

20 

cO 

00 

00 

00 

cO 

c2 

9ac8 : 

40 

00 

00 

40 

00 

cO 

00 

00 

17 

9ad0 : 

80 

00 

eO 

00 

00 

80 

00 

80 

8 e 

9ad8 : 

40 

00 

00 

00 

00 

00 

00 

00 

19 

9ae0 : 

ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9ae8 : 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

9af0 : 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

9af8 : 

00 

00 

80 

00 

00 

00 

00 

00 

19 

9b00 : 

cO 

00 

00 

00 

eO 

00 

fO 

00 

92 

9b08 : 

00 

00 

00 

00 

00 

Of 

00 

00 

81 

9b 10 : 

00 

00 

00 

00 

00 

00 

00 

00 

11 

9bl8 : 

Oc 

00 

00 

00 

20 

a7 

fO 

20 

68 

9b20 : 

00 

00 

fO 

00 

00 

30 

fO 

00 

a2 

9b28 : 

00 

00 

lc 

00 

00 

00 

00 

30 

90 

9b30 : 

00 

00 

20 

00 

60 

00 

00 

00 

3f 

9b38 : 

00 

00 

00 

cO 

00 

00 

00 

00 

51 

9b40 : 

00 

47 

d3 

fO 

cO 

fO 

dO 

f7 

bd 

9b48 : 

30 

cO 

cO 

30 

c8 

lf 

18 

00 

f4 

9b50 : 



d3;.00 dO '/ U r,0 

cl 

ae 

9b58 : 

: 60 

00 

70 

20 

20 

20 20 

20 

9c 

9b60 : 

: ff 

20 

20 

20 

20 

20 

20 

20 

3f 

9b68 : 

; 20 

20 

20 

20 

20 

20 

20 

20 

68 

9b70 : 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

9b78 : 

: 00 

00 

10 

00 

00 

00 

00 

00 

7d 

9b80 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

81 

9b88 . 

: 00 

00 

00 

00 

00 

eO 

00 

00 

90 

9b90 

: 00 

00 

00 

00 

00 

00 

00 

cO 

12 

9b98 

: 80 

00 

00 

00 

00 

eO 

00 

00 

20 

9b aO 

: 00 

00 

00 

60 

18 

80 

30 

00 

f3 

9b a8 

: 00 

00 

00 

00 

00 

00 

00 

00 

a9 

9bbO 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

9bb8 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 

9bc0 

: 00 

eO 

60 

00 

00 

00 

00 

00 

49 

9bc8 

: 80 

00 

00 

80 

00 

eO 

00 

00 

60 

9bd0 

: 80 

00 

eO 

00 

00 

00 

00 

80 

8 a 

9bd8 

: 80 

00 

00 

00 

00 

00 

00 

00 

59 

9be0 

: ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9be8 

: 00 

00 

00 

00 

00 

00 

00 

00 

e9 

9b fO 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

9b f 8 

: 00 

00 

00 

00 

00 

00 

00 

00 

f9 

9c00 

: 00 

00 

00 

00 

cO 

00 

60 

00 

8 e 

9c08 

: 00 

00 

00 

00 

00 

Of 

00 

00 

81 

9cl0 

: 00 

00 

00 

00 

00 

00 

00 

Od 

2 b 

9cl8 

: Oe 

00 

00 

00 

20 

2 f 

60 

20 

64 

9c20 

: 00 

00 

60 

00 

00 

60 

60 

00 

bd 

9c28 

: 00 

00 

18 

00 

00 

00 

00 

60 

ef 

9c30 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

9c38 

: 00 

00 

00 

00 

00 

00 

00 

00 

39 

9c40 

: 00 

4f 

d3 

60 

80 

60 

dO 

60 

f8 

9c48 

: 60 

80 

cO 

60 

d8 

3f 

30 

00 

6 d 

9c50 

: db 

00 

d3 

00 

dO 

60 

eO 

e3 

7c 

9c58 

: cO 

00 

60 

20 

20 

20 

20 

20 

f8 

9c60 

: ff 

20 

20 

20 

20 

20 

20 

20 

3f 

9c68 

: 20 

20 

20 

20 

20 

20 

20 

20 

68 

9c70 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

9c78 

: 00 

00 

cO 

00 

00 

00 

00 

00 

a9 


9c80 : 

00 

00 

00 

00 

00 

00 

00 

00 

81 

9c88 : 

00 

00 

00 

00 

00 

60 

00 

00 

8 c 

9c90 : 

00 

00 

00 

00 

00 

00 

00 

80 

92 

9c98 : 

00 

00 

00 

00 

00 

eO 

00 

00 

aO 

9ca0 : 

00 

00 

00 

40 

lc 

00 

30 

00 

2 b 

9ca8 : 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

9cb0 : 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

9cb8 : 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

9cc0 : 

00 

eO 

eO 

00 

00 

00 

00 

00 

69 

9cc8 : 

00 

00 

00 

00 

00 

eO 

00 

00 

dO 

9cd0 : 

80 

00 

aO 

00 

00 

00 

00 

00 

79 

9cd8 : 

00 

00 

00 

00 

00 

00 

00 

00 

d9 

9ceO : 

ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9ce8 : 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

9c fO : 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

9c f8 : 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

9d00 : 

00 

00 

00 

00 

80 

00 

00 

00 

09- 

9d08 : 

00 

00 

00 

00 

00 

06 

00 

00 

39 

9dl0 : 

00 

00 

00 

00 

00 

00 

00 

Of 

2 f 

9dl8 : 

06 

00 

00 

00 

20 

3e 

00 

20 

53 

9d20 : 

00 

00 

00 

00 

00 

60 

00 

00 

24 

9d28 : 

00 

00 

00 

00 

00 

00 

00 

60 

e9 

9d30 : 

00 

00 

00 

00 

00 

00 

00 

00 

31 

9d38 : 

00 

00 

00 

00 

00 

00 

00 

00 

39 

9d40 : 

00 

7e 

cf 

00 

80 

00 

fO 

00 

3f 

9d48 : 

cO 

00 

80 

cO 

fO 

70 

60 

00 

55 

9d50 : 

cf 

00 

ce 

00 

fO 

40 

cO 

fe 

e5 

9d58 : 

cO 

00 

40 

20 

20 

20 

20 

20 

fO 

9d60 : 

ff 

20 

20 

20 

20 

20 

20 

20 

3f 

9d68 : 

20 

20 

20 

20 

20 

20 

20 

20 

68 

9d70 : 

20 

20 

20 

20 

20 

20 

20 

20 

70 

9d78 : 

00 

00 

cO 

00 

00 

00 

00 

00 

a9 

9d80 : 

00 

00 

00 

00 

00 

00 

00 

00 

81 

9d88 : 

00 

00 

00 

00 

00 

40 

00 

00 

8 b 

9d90 : 

00 

00 

00 

00 

00 

00 

00 

80 

92 

9d98 : 

00 

00 

00 

00 

00 

60 

00 

00 

9c 

9da0 : 

: 00 

00 

00 

cO 

Oe 

00 

30 

00 

5a 

9da8 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

a9 

9db0 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

9db8 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 

9de0 : 

: 00 

60 

cO 

00 

00 

00 

00 

00 

21 

9dc8 : 

: 00 

00 

00 

00 

00 

60 

00 

00 

cc 

9dd0 : 

: 80 

00 

20 

00 

00 

00 

00 

00 

59 

9dd8 : 

: 00 

00 

00 

00 

00 

00 

00 

00 

d9 

9de0 

: ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9de8 

: 00 

00 

00 

00 

00 

00 

00 

00 

e9 

9df0 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

9df8 

: 00 

00 

00 

00 

00 

00 

00 

00 

f9 

9e00 

: 00 

00 

00 

00 

00 

00 

00 

00 

01 

9e08 

: 00 

00 

00 

00 

00 

00 

00 

00 

09 

9el0 

: 00 

00 

00 

00 

00 

00 

00 

Of 

2 f 

9el8 

: 00 

00 

00 

00 

20 

b8 

00 

20 

21 

9e20 

: 00 

00 

00 

00 

00 

40 

00 

00 

23 

9e28 

: 00 

00 

00 

00 

00 

00 

00 

40 

a9 

9e30 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

9e38 

: 00 

00 

00 

00 

00 

00 

00 

00 

39 

9e40 

: 00 

78 

ce 

00 

cO 

00 

fO 

00 

00 

9e48 

: cO 

00 

00 

cO 

fO 

eO 

eO 

00 

ba 

9e50 

: cf 

00 

ce 

00 

fO 

00 

00 

7e 

df 

9e58 

: cO 

00 

00 

20 

20 

20 

20 

20 

eO 

9e60 

: ff 

20 

20 

20 

20 

20 

20 

20 

3f 

9e68 

: 20 

20 

20 

20 

20 

20 

20 

20 

68 

9e70 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

9e78 

: 00 

00 

80 

00 

00 

00 

00 

00 

99 

9e80 

: 00 

00 

00 

00 

00 

00 

00 

00 

81 

9e88 

: 00 

00 

00 

00 

00 

80 

00 

00 

8 d 

9e90 

: 00 

00 

00 

00 

00 

00 

00 

00 

91 

9e98 

: 00 

00 

00 

00 

00 

40 

00 

00 

9b 

9ea0 

: 00 

00 

00 

80 

07 

00 

30 

00 

e2 

9ea8 

: 00 

00 

00 

00 

00 

00 

00 

00 

a9 

9eb0 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

9eb8 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 
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DRUCKER-LISTINGS 


C64 


9ec0 

00 

40 

cO 

00 

00 

00 

00 

00 

11 

9f30 

00 

00 

00 

00 

00 

00 

00 

00 

31 

9fa0 

00 

00 

00 

80 

03 

00 

30 

00 

al 

9ec8 

00 

00 

00 

00 

00 

60 

00 

00 

cc 

9f38 

00 

00 

00 

00 

00 

00 

00 

00 

39 

9fa8 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

9ed0 

00 

00 

40 

00 

00 

00 

00 

00 

el 

9f40 

00 

60 

66 

00 

40 

00 

60 

00 

90 

9fb0 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

9ed8 

00 

00 

00 

00 

00 

00 

00 

00 

d9 

9f48 

eO 

00 

00 

eO 

60 

cO 

eO 

00 

d4 

9fb8 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

9ee0 

ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9f50 

66 

00 

66 

00 

60 

00 

00 

3c 

ce 

9fe0 

00 

80 

00 

00 

00 

00 

00 

00 

01 

9ee8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

9f58 

eO 

00 

00 

20 

20 

20 

20 

20 

00 

9fc8 

00 

00 

00 

00 

00 

cO 

00 

00 

cf 

9ef0 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

9f60 

ff 

20 

20 

20 

20 

20 

20 

20 

3f 

9fd0 

00 

00 

00 

00 

00 

00 

00 

00 

dl 

9ef8 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

9f68 

20 

20 

20 

20 

20 

20 

20 

20 

68 

9fd8 

00 

00 

00 

00 

00 

00 

00 

00 

d9 

9f00 

00 

00 

00 

00 

00 

00 

00 

00 

01 

9f70 

20 

20 

20 

20 

20 

20 

20 

20 

70 

9fe0 

00 

00 

00 

00 

00 

00 

00 

00 

el 

9f08 

00 

00 

00 

00 

00 

00 

00 

00 

09 

9f78 

00 

00 

00 

00 

00 

00 

00 

00 

79 

9fe8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

9fl0 

00 

00 

00 

00 

00 

00 

00 

06 

ld 

9f80 

00 

00 

00 

00 

00 

00 

00 

00 

81 

9ff0 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

9fl8 

00 

00 

00 

00 

20 

bO 

00 

20 

eO 

9f88 

00 

00 

00 

00 

00 

00 

00 

00 

89 

9ff8 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

9f20 

00 

00 

00 

00 

00 

40 

00 

00 

23 

9f90 

00 

00 

00 

00 

00 

00 

00 

00 

91 











9f28 

00 

00 

00 

00 

00 

00 

00 

40 

a9 

9f98 

00 

00 

00 

00 

00 

80 

00 

00 

9d 
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8700 aOOO 

88 b0 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

8a70 : 

20 20 20 20 20 

20 20 20 

70 











88 b8 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 

8a78 : 

00 00 20 00 00 

00 00 00 

81 

8700 

35 

34 

13 

12 

34 

32 

Oc 

33 

c2 

88 c0 

: 00 

00 

00 

00 

00 

00 

00 

00 

cl 

8a80 : 

00 80 00 80 00 

80 00 80 

d6 

8708 

13 

2 e 

Ob 

14 

Oe 

18 

13 

32 

ca 

88 c8 

: 00 

00 

00 

00 

00 

00 

00 

00 

c9 

8 a88 : 

40 40 08 40 40 

40 40 00 

fa 

8710 

12 

33 

31 

11 

Oe 

37 

13 

18 

4l 

88 d0 

: 00 

00 

00 

00 

00 

00 

00 

UO 

dl 

8a90 : 

08 00 40 00 00 

00 00 00 

a9 

8718 

13 

13 

15 

17 

20 

18 

13 

20 

2 c 

88 d8 

: 00 

00 

00 

00 

00 

00 

00 

00 

d9 

8a98 

40 40 10 00 00 

40 40 00 

00 

8720 

Oc 

08 

4f 

18 

18 

16 

18 

4a 

2 e 

88 e0 

: ff 

00 

00 

00 

00 

00 

00 

00 

eO 

8 aa0 

00 00 00 00 00 

00 00 00 

al 

8728 

Ob 

Ob 

18 

12 

28 

11 

28 

71 

90 

88 e8 

: 00 

00 

00 

00 

00 

00 

00 

00 

e9 

8 aa8 

00 40 00 00 10 

00 00 40 

4a 

8730 

12 

Of 

12 

11 

13 

14 

12 

51 

2 d 

88 f0 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

8 ab0 

00 00 cO 80 00 

80 80 00 

f7 

8738 

12 

12 

14 

14 

28 

10 

28 

10 

9f 

88 f8 

: 00 

00 

00 

00 

00 

00 

00 

00 

f9 

8 ab8 

80 80 00 80 10 

00 00 00 

8 a 

8740 

12 

18 

17 

15 

16 

15 

55 

15 

50 

8900 

: 00 

00 

80 

00 

00 

00 

00 

00 

21 

8 ac0 

10 40 40 00 40 

40 40 00 

08 

8748 

17 

10 

31 

16 

13 

18 

17 

17 

f3 

8908 

: 80 

00 

00 

00 

00 

10 

10 

00 

49 

8 ac8 

40 00 00 40 40 

40 40 00 

18 

8750 

57 

18 

16 

15 

57 

17 

57 

58 

18 

8910 

: 00 

00 

00 

00 

00 

00 

00 

10 

31 

8 ad0 

40 00 40 80 00 

00 00 00 

31 

8758 

15 

17 

54 

20 

20 

20 

20 

20 

d6 

8918 

: 00 

00 

00 

00 

20 

00 

00 

20 

5b 

8 ad8 

40 40 00 00 00 

00 00 00 

39 

8760 

00 

20 

20 

20 

20 

20 

20 

20 

40 

8920 

: 00 

00 

00 

00 

00 

00 

02 

00 

29 

8 ae0 

ff 00 00 00 00 

00 00 00 

eO 

8768 

20 

20 

20 

20 

20 

20 

20 

20 

68 

8928 

: 00 

00 

04 

00 

00 

00 

00 

00 

2 a 

8 ae8 

00 00 00 00 00 

00 00 00 

e9 

8770 

20 

20 

20 

20 

20 

20 

20 

20 

70 

8930 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

8 af0 

00 00 00 00 00 

00 00 05 

fb 

8778 

00 

00 

17 

00 

00 

00 

00 

00 

3e 

8938 

: 00 

00 

00 

00 

00 

00 

00 

00 

39 

8 af8 

4b 00 00 01 00 

Oc 00 00 

c4 

8780 

c 3 

49 

54 

54 

4l 

20 

20 

20 

5d 

8940 

: 0£ 

00 

^0 





00 

61 

8 b00 

10 03 ff lf Of 

Of 10 Of 

3d 

8788 

20 

20 

20 

10 

00 

00 

00 

00 

c3 

8948 

: OÖ 

00 

00 

00 


80 

Uu 

00 

4d 

8b08 

ff 10 10 80 80 

lf lf Of 

bf 

8790 

00 

00 

00 

00 

00 

00 

00 

00 

91 

8950 

: 80 

00 

80 

00 

00 

00 

00 

80 

f2 

8 bl0 

10 Of 10 Oe 10 

10 18 lc 

88 

8798 

00 

00 

00 

00 

00 

00 

00 

00 

99 

8958 

: 00 

00 

00 

20 

20 

20 

20 

20 

20 

8 b 18 

10 18 10 lf 01 

00 7f 03 

30 

87a0 

00 

00 

00 

00 

00 

00 

00 

00 

al 

8960 

: ff 

20 

20 

20 

20 

20 

20 

20 

3f 

8 b20 

00 fe eO 03 03 

fO 04 00 

00 

87a8 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

8968 

: 20 

20 

20 

20 

20 

20 

20 

20 

68 

8b28 

3f 80 44 04 00 

04 00 00 

59 

87b0 

00 

00 

00 

00 

00 

00 

00 

00 

bl 

8970 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

8b30 

7f 18 e3 el 03 

fl ff eO 

72 

87b8 

00 

00 

00 

00 

00 

00 

00 

00 

b9 

8978 

: 00 

00 

00 

OO 

00 

00 

00 

00 

79 

8b38 

ff fd Of 03 00 
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fa 

9798 

: 40 

cO 

00 

40 

00 

00 

00 

00 

41 

99e8 

00 

00 

00 

00 

00 

00 

00 

00 

e9 


150 
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DRUCKER-LISTINGS 


99f0 

00 

00 

00 

00 

00 

00 

00 00 

fl 

99f8 

00 

00 

80 

00 

00 

00 

00 

00 

19 

9a00 

: 00 

00 

00 

00 

00 

00 

00 

00 

01 

9a08 

: 00 

00 

00 

00 

00 

10 

00 

00 

89 

9al0 

: 00 

00 

00 

00 

00 

00 

00 13 

37 

9al8 

: 00 

00 

10 

lf 

20 

C3 

00 20 

61 

9a20 

: 00 

00 

00 

04 

04 

01 

18 

00 

4a 

9a28 

: 00 

00 

64 

00 

00 

00 

00 

00 

42 

9a30 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

9a38 

: 00 

00 

00 

00 

00 

00 

00 

00 

39 

9a40 

: 00 

03 

54 

00 

3f 

00 

00 

00 

cb 

9a48 

: ff 

00 

00 

80 

00 

60 

ff 

7f 

59 

9a50 

: 48 

7f 

00 

00 

eO 

ff 

eO 

87 

f9 

9a58 

: 00 

cl 

00 

20 

20 

20 

20 

20 

01 

9a60 

: ff 

20 

20 

20 

20 

20 

20 

20 

3f 

9a68 

: 20 

20 

20 

20 

20 

20 

20 20 

68 

9a70 

: 20 

20 

20 

20 

20 

20 

20 20 

70 

9a78 

: 00 

00 

3f 

00 

00 

00 

00 00 

48 

9a80 

: 40 

00 

00 

00 

00 

00 

00 00 

cl 

9a88 

: 00 

00 

00 

00 

00 

40 

00 

00 

8b 

9a90 

: 00 

00 

00 

00 

00 

40 

00 

00 

93 

9a98 

: 00 

00 

00 

80 

00 

40 

00 

00 

ab 

9aa0 

: 00 

00 

00 

40 

40 

80 

00 

00 

bl 

9aa8 

: 00 

00 

cO 

00 

00 

00 

00 

00 

,d9 

9ab0 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

9ab8 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 

9ac0 

: 00 

40 

80 

00 

00 

00 

00 

00 

01 

9ac8 

: cO 

00 

00 

40 

00 

40 

cO 

80 

97 

9ad0 

: 00 

80 

40 

00 

00 

00 

00 

80 

22 

9ad8 

: 00 

cO 

00 

00 

00 

00 

00 

00 

39 

9ae0 

: ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9ae8 

: 00 

00 

00 

00 

00 

00 

00 

00 

e9 

9af0 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

9af8 

: 00 

00 

00 

00 

00 

00 

00 

00 

f9 

9b00 

: 00 

00 

00 

00 

00 

00 

00 

00 

01 

9b08 

: 00 

00 

00 

00 

00 

lf 

00 

00 

01 

9b 10 

: 00 

00 

00 

00 

00 

00 

00 

16 

3d 

9bl8 

: 00 

00 

00 

Of 

20 

cl 

00 20 

4b 

9b20 

: 00 

00 

00 

07 

07 

00 

08 

00 

92 

9b28 

: 00 

00 

44 

00 

00 

00 

00 

00 

3a 

9b30 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

9b38 

: 00 

00 

00 

00 

00 

00 

00 

00 

39 

9b40 

: 00 

01 

77 

00 

00 

00 

00 

00 

9f 

9b48 

: 80 

00 

00 

00 

00 

ff 

80 3f 

49 

9b50 

: 78 

3f 

00 

00 

eO 

80 

cO 9e 

ba 

9b58 

: 00 

81 

00 

20 

20 

20 

20 

20 

el 

9b60 

: ff 

20 

20 

20 

20 

20 

20 20 

3f 

9b68 

: 20 

20 

20 

20 

20 

20 

20 

20 

68 

9b70 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

9b78 

: 00 

00 

20 

00 

00 

00 

00 

00 

81 

9b80 

: 00 

00 

00 

00 

00 

00 

00 

00 

81 

9b88 

: 00 

00 

00 

00 

00 

cO 

00 

00 

8f 

9b90 

: 00 

00 

00 

00 

00 

40 

00 

00 

93 

9b98 

: 00 

00 

00 

00 

00 

cO 

00 

00 

9f 

9ba0 

: 00 

00 

00 

cO 

cO 

00 

00 

00 

c5 

9ba8 

: 00 

00 

40 

00 

00 

00 

00 00 

b9 

9bb0 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

9bb8 

: 00 

00 

00 

00 

00 

00 

00 00 

b9 

9bc0 

: 00 

eO 

80 

00 

00 

00 

00 00 

4l 

9bc8 

: 40 

00 

00 

00 

00 

cO 

00 

00 

Of 

9bd0 

: 00 

40 

40 

00 

00 

00 

00 

00 

01 

9bd8 

: 00 

cO 

00 

00 

00 

00 

00 

00 

39 

9be0 

: ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9be8 

: 00 

00 

00 

00 

00 

00 

00 00 

e9 

9b fO 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

9bf8 

: 00 

00 

00 

00 

00 

00 

00 

00 

f9 

9c00 

: 00 

00 

00 

00 

00 

00 

00 

00 

01 

9c08 

: 00 

00 

00 

00 

00 

Of 

00 

00 

81 

9cl0 

: 00 

00 

00 

00 

00 

00 

00 

lc 

49 

9cl8 

: 00 

00 

00 

00 

20 

00 

00 

20 

5b 

9c20 

: 00 

00 

00 

03 

03 

00 

04 00 

cl 

9c28 

: 00 

00 

44 

00 

00 

00 

00 

00 

3a 

9e30 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

9c38 

: 00 

00 

00 

00 

00 

00 

00 

00 

39 


9c40 : 

00 

00 

23 

00 

00 

00 

00 00 

09 

9c48 : 

80 

00 

00 

00 

00 

ff 

80 00 

ca 

9c50 : 

30 

00 

00 

00 

00 

00 

80 f8 

74 

9c58 : 

00 

00 

00 

20 

20 

20 

20 20 

20 

9c60 : 

ff 

20 

20 

20 

20 

20 

20 20 

3f 

9c68 : 

20 

20 

20 

20 

20 

20 

20 20 

68 

9c70 : 

20 

20 

20 

20 

20 

20 

20 20 

70 

9c78 : 

00 

00 

00 

00 

00 00 

00 00 

79 

9c80 : 

00 

00 

00 

00 

00 

00 

00 00 

81 

9c88 : 

00 

00 

00 

00 

00 

cO 

00 00 

8f 

9c90 : 

00 

00 

00 

00 

00 40 

00 00 

93 

9c98 : 

00 

00 

00 

00 

00 

cO 

00 00 

9f 

9ca0 : 

00 

00 

00 

80 

80 

00 

00 00 

b9 

9c a8 : 

00 

00 

40 

00 

00 

00 

00 00 

b9 

9cb0 : 

00 

00 

00 

00 

00 

00 

00 00 

bl 

9cb8 : 

00 

00 

00 

00 

00 

00 

00 00 

b9 

9cc0 : 

00 

cO 

00 

00 

00 

00 

00 00 

21 

9cc8 : 

40 

00 

00 

00 

00 

cO 

00 00 

Of 

9cd0 : 

00 

40 

00 

00 

00 

00 

00 00 

fl 

9cd8 : 

00 

00 

00 

00 

00 

00 

00 00 

d9 

9ce0 : 

ff 

00 

00 

00 

00 

00 

00 00 

eO 

9ce8 : 

00 

00 

00 

00 

00 

00 

00 00 

e9 

9c fO : 

00 

00 

00 

00 

00 

00 

00 00 

fl 

9c f8 : 

00 

00 

00 

00 

00 

00 

00 00 

f9 

9d00 : 

00 

00 

00 

00 

00 

00 

00 00 

01 

9d08 : 

00 

00 

00 

00 

00 00 

00 00 

09 

9dl0 : 

00 

00 

00 

00 

00 

00 

00 18 

4l 

9dl8 : 

00 

00 

00 

00 

20 

00 

00 20 

5b 

9d20 : 

00 

00 

00 

00 

00 

00 

04 00 

31 

9d28 : 

00 

00 

04 

00 

00 

00 

00 00 

2a 

9d30 : 

00 

00 

00 

00 

00 

00 

00 00 

31 

9d38 : 

00 

00 

00 

00 

00 

00 

00 00 

39 

9d40 : 

00 

00 

00 

00 

00 

00 

00 00 

4l 

9d48 : 

: 00 

00 

00 

00 

00 

80 

00 00 

4d 

9d50 : 

: 00 

00 

00 

00 

00 

00 

00 eO 

12 

9d58 : 

: 00 

00 

00 

20 

20 

20 

20 20 

20 

9d60 : 

: ff 20120-20 SO 


►>0 20 

3f 

9d68 : 

: 20 

20 

20 

20 

20 

20 

20 20 

68 

9d70 : 

: 20 

20 

20 

20 

20 

20 

20 20 

70 

9d78 : 

: 00 

00 

00 

00 

00 

00 

00 00 

79 

9d80 : 

: 00 

00 

00 

00 

00 

00 

00 00 

81 

9d88 : 

: 00 

00 

00 

00 

00 

40 

00 00 

8b 

9d90 : 

: 00 

00 

00 

00 

00 

00 

00 00 

91 

9d98 : 

: 00 

00 

00 

00 

00 

40 

00 00 

9b 

9da0 : 

: 00 

00 

00 

00 

00 

00 

00 00 

al 

9da8 

: 00 

00 

00 

00 

00 

00 

00 00 

a9 

9db0 

: 00 

00 

00 

00 

00 

00 

00 00 

bl 

9db8 

: 00 

00 

00 

00 

00 

00 

00 00 

b9 

9dc0 

; 00 

40 

00 

00 

00 

00 

00 00 

el 

9dc8 

: 00 

00 

00 

00 

00 

40 

00 00 

cb 

9dd0 

: 00 

40 

00 

00 

00 

00 

00 00 

fl 

9dd8 

: 00 

00 

00 

00 

00 

00 

00 00 

d9 

9de0 

: ff 

00 

00 

00 

00 

00 

00 00 

eO 

9de8 

: 00 

00 

00 

00 

00 

00 

00 00 

e9 

9df0 

: 00 

00 

00 

00 

00 

00 

00 00 

fl 

9df8 

: 00 

00 

00 

00 

00 

00 

00 00 

f9 

9e00 

: 00 

00 

00 

00 

00 

00 

00 00 

01 

9e08 

: 00 

00 

00 

00 

00 

00 

00 00 

09 

9el0 

: 00 

00 

00 

00 

00 

00 

00 10 

31 

9el8 

: 00 

00 

00 

00 

20 

00 

00 20 

5b 

9e20 

: 00 

00 

00 

00 

00 

00 

02 00 

29 

9e28 

: 00 

00 

04 

00 

00 

00 

00 00 

2a 

9e30 

: 00 

00 

00 

00 

00 

00 

00 00 

31 

9e38 

: 00 

00 

00 

00 

00 

00 

00 00 

39 

9e40 

: 00 

00 

00 

00 

00 

00 

00 00 

41 

9e48 

: 00 

00 

00 

00 

00 

80 

00 00 

4d 

9e50 

: 00 

00 

00 

00 

00 

00 

00 80 

52 

9e58 

: 00 

00 

00 

20 

20 

20 

20 20 

20 

9e60 

: ff 

20 

20 

20 

20 

20 

20 20 

3f 

9e68 

: 20 

20 

20 

20 

20 

20 

20 20 

68 

9e70 

: 20 

20 

20 

20 

20 

20 

20 20 

70 

9e78 

: 00 

00 

00 

00 

00 

00 

00 00 

79 

9e80 

: 00 

00 

00 

00 

00 

00 

00 00 

81 

9e88 

: 00 

00 

00 

00 

00 

00 

00 00 

89 


9e90 

: 00 

00 

00 

00 

00 

00 

00 

00 

91 

9e98 

: 00 

00 

00 

00 

00 

00 

00 

00 

99 

9ea0 

: 00 

00 

00 

00 

00 

00 

00 

00 

al 

9ea8 

: 00 

00 

00 

00 

00 

00 

00 

00 

a9 

9eb0 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

9eb8 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 

9ec0 

: 00 

00 

00 

00 

00 

00 

00 

00 

cl 

9ec8 

: 00 

00 

00 

00 

00 

40 

00 

00 

cb 

9ed0 

: 00 

00 

00 

00 

00 

00 

00 

00 

dl 

9ed8 

: 00 

00 

00 

00 

00 

00 

00 

00 

d9 

9ee0 

: ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9ee8 

: 00 

00 

00 

00 

00 

00 

00 

00 

e9 

9ef0 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

9ef8 

: 00 

00 

00 

00 

00 

00 

00 

00 

f9 

9f00 

: 00 

00 

00 

00 

00 

00 

00 

00 

01 

9f08 

: 00 

00 

00 

00 

00 

00 

00 

00 

09 

9fl0 

: 00 

00 

00 

00 

00 

00 

00 

00 

11 

9fl8 

: 00 

00 

00 

00 

20 

00 

00 

20 

5b 

9f20 

: 00 

00 

00 

00 

00 

00 

02 

00 

29 

9f28 

: 00 

00 

00 

00 

00 

00 

00 

00 

29 

9f30 

: 00 

00 

00 

00 

00 

00 

00 

00 

31 

9f38 

: 00 

00 

00 

00 

00 

00 

00 

00 

39 

9f40 

: 00 

00 

00 

00 

00 

00 

00 

00 

4l 

9f48 

: 00 

00 

00 

00 

00 

00 

00 

00 

49 

9f50 

: 00 

00 

00 

00 

00 

00 

00 

00 

51 

9f58 

: 00 

00 

00 

20 

20 

20 

20 

20 

20 

9f60 

: ff 

20 

20 

20 

20 

20 

20 

20 

3f 

9f68 

: 20 

20 

20 

20 

20 

20 

20 

20 

68 

9f70 

: 20 

20 

20 

20 

20 

20 

20 

20 

70 

9f78 

: 00 

00 

00 

00 

00 

00 

00 

00 

79 

9f80 

: 00 

00 

00 

00 

00 

00 

00 

00 

81 

9f88 

: 00 

00 

00 

00 

00 

00 

00 

00 

89 

9f90 

: 00 

00 

00 

00 

00 

00 

00 

00 

91 

9f98 

: 00 

00 

00 

00 

00 

00 

00 

00 

99 

9fa0 

: 00 

00 

00 

00 

00 

00 

00 

00 

al 

9fa8 

: 00 

00 

00 

00 

00 

00 

00 

00 

a9 

9fb0 

: 00 

00 

00 

00 

00 

00 

00 

00 

bl 

9fb8 

: 00 

00 

00 

00 

00 

00 

00 

00 

b9 

9fc0 

: 00 

00 

00 

00 

00 

00 

00 

00 

cl 

9fc8 

: 00 

00 

00 

00 

00 

00 

00 

00 

c9 

9fd0 

: 00 

00 

00 

00 

00 

00 

00 

00 

dl 

9fd8 

: 00 

00 

00 

00 

00 

00 

00 

00 

d9 

9fe0 

: ff 

00 

00 

00 

00 

00 

00 

00 

eO 

9fe8 

: 00 

00 

00 

00 

00 

00 

00 

00 

e9 

9ff0 

: 00 

00 

00 

00 

00 

00 

00 

00 

fl 

9ff8 

: 00 

00 

00 

00 

00 

00 

00 

00 

f9 


Name : b-deutsch 3800 4000 


3800 : 

: 66 

00 

66 

66 

66 

66 

3f 

00 

63 

3808 : 

: 00 

00 

3c 

06 

3e 

66 

3e 

00 

e8 

3810 : 

: 00 

60 

60 

7c 

66 

66 

7c 

00 

74 

3818 : 

: 00 

00 

3c 

60 

60 

60 

3c 

00 

2d 

3820 : 

: 00 

06 

06 

3e 

66 

66 

3e 

00 

ff 

3828 : 

: 00 

00 

3c 

66 

7e 

60 

3c 

00 

eO 

3830 : 

: 00 

Oe 

18 

3e 

18 

18 

18 

00 

a8 

3838 : 

: 00 

00 

3e 

66 

66 

3e 

06 

7c 

fe 

3840 : 

: 00 

60 

60 

7c 

66 

66 

66 

00 

4b 

3848 : 

: 00 

18 

00 

38 

18 

18 

3c 

00 

8f 

3850 : 

: 00 

06 

00 

06 

06 

06 

06 

3c 

35 

3858 

: 00 

60 

60 

6c 

78 

6c 

66 

00 

b2 

3860 

: 00 

38 

18 

18 

18 

18 

3c 

00 

b9 

3868 

: 00 

00 

66 

7f 

7f 

6b 

63 

00 

d3 

3870 

: 00 

00 

7c 

66 

66 

66 

66 

00 

8f 


Listing 7. Der Bildschirm- 

Zeichensatz mit deutschen 

Umlauten. Bitte mit dem 
MSE (Seite 159) eingeben. 
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DRUCKER-LISTINGS 


C64 


3878 

00 

00 

3c 

66 

66 

66 

3c 

00 

df 

3ac8 

7e 

06 

Oc 

18 

30 

60 

7e 

00 

4f 

3dl8 

66 

66 

ff 

66 

ff 

66 

66 

ff 

4b 

3880 

00 

00 

7c 

66 

66 

7c 

60 

60 

f9 

3adO 

66 

66 

66 

3c 

18 

18 

18 00 

2d 

3d20 

18 

3e 

60 

3c 

06 

7c 

18 

ff 

9c 

3888 

00 

00 

3e 

66 

66 

3e 

06 

06 

61 

3ad8 

00 

18 

18 

ff 

ff 

18 

18 

18 

3c 

3d28 

62 

66 

Oc 

18 

30 

66 

46 

ff 

13 

3890 

00 

00 

7c 

66 

60 

60 

60 

00 

07 

3aeO 

00 

66 

3c 

ff 

3c 

66 

00 

00 

19 

3d30 

3c 

66 

3c 

38 

67 

66 

3f 

ff 

5c 

3898 

00 

00 

3e 

60 

3c 

06 

7c 

00 

la 

3ae8 

18 

18 

18 

18 

18 

18 

18 

18 

e8 

3d38 

06 

Oc 

18 

00 

00 

00 

00 

ff 

4a 

38a0 

00 

18 

7e 

18 

18 

18 

Oe 

00 

c9 

3afO 

33 

33 

cc 

CC 

33 

33 

cc 

cc 

23 

3d40 

Oc 

18 

30 

30 

30 

18 

Oc 

ff 

5e 

38a8 

00 

00 

66 

66 

66 

66 

3e 

00 

al 

3af8 

33 

99 

cc 

66 

33 

99 

cc 

66 

f8 

3d48 

30 

18 

Oc 

Oc 

Oc 

18 

30 

ff 

4b 

38b0 

00 

00 

66 

66 

66 

3c 

18 

00 

bf 

3bOO 

00 

00 

00 

00 

00 

00 

00 

00 

01 

3d50 

00 

66 

3c 

ff 

3c 

66 

00 

ff 

89 

38b8 

00 

00 

63 

6b 

7f 

3e 

36 

00 

cl 

3b08 

fO 

fO 

fO 

fO 

fO 

fO 

fO 

fO 

07 

3d58 

00 

18 

18 

7e 

18 
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DRUCKER-LISTINGS 


3f68 

7e 

06 

Oc 

18 

30 

60 

7e 

00 

ef 

3fa0 

3f 

3f 

3f 

3f 

3f 

3f 

3f 

3f 

aO 

3fd8 

ff 

ff 

ff ff 

Of 

Of 

Of 

Of 

9a 

3f70 

3c 

66 

60 

3c 

06 

66 

3c 

00 

04 

3fa8 

lf 

lf 

lf 

lf 

lf 

lf 

lf 

lf 

a8 

3feO 

fO 

fO 

fO fO 

ff 

ff 

ff 

ff 

a2 

3f78 

ff 

ff 

ff 

ff 

ff 

ff 

00 

00 

77 

3fbO 

f8 

f8 

f8 

f8 

f8 

fB 

f8 

f8 

af 

3fe8 

3c 

66 

60 60 

60 

66 

3c 

00 

a6 

3f80 

00 

00 

7c 

66 

66 

66 

66 

00 

9f 

3fb8 

00 

00 

ff 

ff 

ff 

ff 

ff 

ff 

b8 

3ffO 

Of 

Of 

Of Of 

ff 

ff 

ff 

ff 

2d 

3f88 

00 

00 

7c 

66 

66 

7c 

60 

60 

01 

3fe0 

00 

00 

00 

ff 

ff 

ff 

ff 

ff 

CO 

3ff8 

00 

00 

3c 66 

66 

66 

3c 

00 

5f 

3f90 

7c 

66 

66 

7c 

78 

6c 

66 

00 

ed 

3fc8 

ff 

ff 

ff 

ff 

ff 

00 

00 

00 

c7 
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Listing 7. 

(Schluß) 







1 REM ******************************** 

<051 > 

411 FOR K=1 TO 8:XX=ASC(MID*(A* <I),K,1)) 

< 118> 

2 REM * BILDSCHIRMZEICHENEDITOR * 

<068> 

412 IF(X7.AND 127) =32 THEN 420 

< 160 > 

3 REM * FUER SCHREIBMASCHINE * 

<082> 

415 ZI (I)=Z1(I)+2t(8-K) 

< 131 > 

4 REM * HAFNER, SROSSAITINGEN * 

<049> 

420 NEXT K,I:RETURN 

<202> 

5 REM ********************************* 

<055> 

499 : 

<221 > 

6 POKE 52,56:POKE 56,56:CLR:NA=56*256:NB=6 


500 REM +++<- ZEICHEN SPEICHERN 

< 168> 

0*256 

<185> 

505 GOSUB 600 

<235> 

7 FOR 1=0 TO 73:READ A:POKE 49152+1,A:NEXT 


510 GOSUB 651 

<096> 

:SYS 49158:REM VERSCH/SAVE 

<009> 

511 IF AS>255 THEN PRINT"(UPJ";:GOTO 510 

< 069 > 

B DATA 0,160,0,192,0,192,173,0,192,172,1,1 


530 GOSUB 400 

<246> 

92,133,95,132,96,173,2,192,172,3 

<229> 

540 FOR 1=0 TO 7: POKE NA+B*AS+I , Z 1 (I+ 1) : NE 


9 DATA 192,133,90,132,91,173,4,192,172,5,1 


XT 

<221 > 

92,133,88,132,89,76,191,163,32,32 

<01B> 

550 FOR 1=0 TO 6:POKE NB+8*AS+I,Z1(I+1):NE 


10 DATA 32,32,32,32,32,32,32,32,32,162,8,3 


XT 

<111) 

2,186,255,169,14,162,64,160,3,32 

< 1BB> 

560 RETURN 

<110> 

11 DATA 1B9,255,169,251,162,0,160,64,32,21 


599 : 

<067> 

6,255,96 

<116> 

600 REM *-++-+ ZEILEN LOESCHEN 

<148> 

12 A*=" <UP,DOWN,UP,DOWN,2L)P>": FOR 1 = 1 TO 6 
:POKE 41847+1,ASC(MID*(AS,I,1)>:NEXT:PO 


601 FOR 1=0 TO 5:POKE 781,18+1:SYS 59903:N 
EXT 

<080> 

KE 1,54:REM READY 

< 148> 

605 POKE 211,0:PQKE 214,18:SYS 58640 

< 151 > 

15 SYS 57B12"B—DEUTSCH*",8,1:POKE 7B0,0:SY 


610 RETURN 

<160> 

S 65493 

< 112> 

649 : 

< 117> 

17 POKE 53272,(PEEK(53272)AND 2401+12 

<111> 

650 REM <-+*-+ EINGABE BILDSCHIRMCODE 

<105> 

18 N*=" {12SPACE >" 

<099> 

651 GOSUB 605:PRINT" TASTE? "; 

<235> 

19 PRINT CHR*(14);:PRINT"{CLR,2RIGHT,2D0WN 


652 BET A*:IF A*=""THEN 652 

<243> 

>.31LDSCHIRMYEICHEN F. .5_GJLRJLI_BltftS_CJtl_HE‘ 1 

<241> 

653 A17.=ASC(A*> : IF A17.<32 DR A17.J218 OR Al 


20 PRINT"{2SPACE y#**####*****#****#***#*** 


7.=95 OR A17.=92 THEN 652 

< 113> 

***********" 

<039> 

654 IF A17.M25 AND A17.<192 AND A17.01B6 TH 


21 PRINT"{2SPACE,DOWN,RVSONJL{RVOFFJADE m 


EN 652 

<079> 

ICHENSATY" <136> 

655 1 IINT A*:AS=PEEK(1024+8+18*40):RETURN 

<233> 

22 PRINT"{2SPACE,DOWN,RVSONJA{RVOFFJENDERE 


699 : 

<167> 

REICHEN" 

< 18B> 

700 REM +++<- ALTES ZEICHEN LESEN 

<213> 

23 PRINT"{2SPACE,DOWN,RVSON JS{RVOFF >PEICHE 


701 PRINT"<CLR>";:GOSUB 651 

<246> 

RE 5ATY" 

<011> 

710 FOR 1=1 TO 8:ZI(I)=PEEK(56*256+AS*B+I— 


24 POKE 198,0:WAIT 19B,1:GET A* 

<204 > 

1):A*(I)="":NEXT 

< 005 > 

26 IF A*="L"THEN GOSUB 800:GOTO 19 

<254> 

720 FOR 1=1 TO 8:FOR K=1 TO 8:IF ZI(I)AND 


27 IF A*="S"THEN GOSUB 1000:GOTO 19 

<077> 

2T(B-K)THEN A*(I)=A*(I)+"0":GOTO 725 

<202> 

28 IF A*< >"A"THEN 24 

< 128> 

722 A*(I)=A*(I)+" " 

<061 > 

29 GOSUB 701 

<053> 

725 NEXT K,I 

<040> 

30 PRINT" {CLR, 8SPACE J’nVyY'y^y'W’y'h" 

<091 > 

730 RETURN 

<024> 

31 FOR 1=1 TO 8:PRINT"A*( " ; I; " ) = " ;CHR*(34) 


799 : 

<013> 

;A*(I)jCHR*(34):NEXT 

<244> 

800 REM ++<-+ LADE SATZ 

<225> 

32 PRINT"{BSPACE> N PPPPPPPPH":PRINT"GOTO40" 

<025> 

805 PRINT"{CLR,2SPACE,2D0WNJ";:GOSUB 951 

< 121 > 

33 PRINT: PRINT" ! "j CHR* (34) ; "#*7.?<' O0C5SPAC 


810 SYS 57812N*,8,1:POKE 7B0,0:SYS 65493 

< 104> 

e>-S.he_rt_y_U-1_o_pg*" 

< 113> 

820 RETURN 

< 116> 

34 PRINT"1234567890+ -{3SPACEJQWERTYUIOP@*t 


949 : 

<163> 

" 

< 136> 

950 REM +<-++ SCHRIFTNAME 

< 17B> 

35 PRINT: PRINT"RSJlf.GÄJ.K.L.C 3= {3SPACEJ7X.C_V.au H 


951 INPUT"ÜAME DER SCHRIFT";N* 

< 206 > 

<>?" 

<216> 

952 N*=LEFT* ( " B- " +N*+ " {12SPACE J " , 14) : RETUR 


36 PRINT"ASDFGHJKL:; = {3SPACE> Z XCVBNM,./":P 


N 

<110> 

RI NT 

<187> 

999 : 

<213> 

37 PRINT"{DOWN,9SPACEJBELIEBIGE XASTE VERW 


1000 REM <-«-+*- SATZ SPEICHERN 

<159> 

ENDEN!" 

< 013 > 

1005 PRINT"{CLR,DOWN,SPACEJJAVE: (JCHRIFTN 


38 PRINT" {9SPACEJIEILEN MIT ' aE.T_U.R_K ' BEEND 


AME) " 

< 15B> 

EN! " 

<025> 

1006 N*=RIGHT*(N*,12) 

<070> 

39 PRINT"{9SPACEJEBENS0 DEN JEFEHL{RIGHTJ' 
GOTO 40' 1 {4UP>":END 

< 180 > 

1007 PRINT"{4SPACEJ";N*;"{14LEFTJ";:INPUT 
N*:GOSUB 952 

<010> 

40 GOSUB 600 

<024> 

1009 NR7.=PEEK (NA+91 *8) 

< 1B7> 

52 PR INI"{DOWN,SPACE,RVSONJS{RVOFFJPEICHER 
N IM ÄATY" 

<079> 

1010 PRINT"{DOWN,SPACEJüUMMER DES ZEICHENS 
ATYES YUR ERKENNUNG" 

<001 > 

53 PRINT"{DOWN,SPACE,RVSON JN{RVOFF JOCHMAL 
AENDERN" 

<1U> 

1011 PRINT" (4SPACE J" ; NR7.; " {5LEFT J" j : INPUT 
NR7. 

< 168 > 

54 PRINT"{DOWN,SPACE,RVSONJY{RVOFFJURUECK 


1012 POKE NA+91*B,NR7. 

<032> 

YUM flENUE"; 

<069> 

1016 OPEN 2,8,15,"S:"+N*:CLOSE 2 

< 139 > 

55 POKE 198,0:WAIT 198.1 

<027 > 

1020 FOR 1=1 TO 14:POKE 13*64+1-1,ASC(MID* 


56 GET A* 

<010> 

(N*,1,1)):NEXT:REM N* UEBER6EBEN 

<132> 

57 IF A*="S"THEN GOSUB 500:GOTO 40 

<121 > 

1021 POKE 251,0:POKE 252,56:SYS 49202:REM 


58 IF A*="N"THEN 30 

< 119> 

SAVE 

<154> 

59 IF A*="Z"THEN 19 

<190 > 

1025 RETURN 

<067> 

60 GOTO 56 

399 : 

<110> 

< 121 > 

Listing 8. 


400 REM ++<-+ DATEN AUSRECHNEN 

<073> 

Der Bildschirmzeicheneditor der »Schreibmaschine«. 

410 FOR 1=1 TO B:Z1<I>=0 

<242> 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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Plottomat - »PED«-Grafiken 
in höchster Güte 



Bestimmt haben sich die Besitzer des VC 
1520-Plotter von Commodore schon immer ge¬ 
wünscht, mit dem »PED« aus Sonderheft 20 ent¬ 
worfene Konstruktionszeichnungen auch auf 
diesem Gerät auszugeben. Dies wird nun zum 
Kinderspiel. 


E in CAD-Programm muß doch »plotten« können, beson¬ 
ders, wenn der dazu benötigte Plotter bereits zum Ge¬ 
rätepark des heimischen Computersystems gehört. 
Dieser hat gegenüber einem Matrixdrucker doch einige 
Vorteile, wie zum Beispiel die höhere Auflösung, die vier 
Farben und feineren Linien. Dies alles gibt dem »Druck¬ 
ergebnis« ein professionelleres Aussehen, getrübt nur 
durch das etwas kleine Papierformat. Während beim Ma¬ 
trixdrucker schräge Linien immer sehr gerastert aussehen, 


S4SR 


Bild 1. 

Detailaufnahme 
einiger schräger 
Linien des 
Matrixdruckers 


glänzt hier der Plotter mit einer durchgezogenen Linie, die 
sich beim näheren Hinsehen zwar auch als leicht »eckig« 
erweist, aber trotzdem durchgezogen bleibt. Dies wird 
beim Vergleich der Detailfotos (Bild 1 entstand mit einem 
Matrixdrucker, Bild 2 mit dem Plotter) deutlich. Nützlich ist 
auch, daß der Konstruktionszeichnung noch ein sogenann¬ 
ter Objektblock angefügt wird, der die Namen der zum Aus¬ 
druck gekommenen Zeichnungen sowie Informationen zu 
deren Format gibt. Ein solcher Objektblock ist in Bild 3 ge- 


KT ■ 

Bild 4. Ein Demobild des PED, es wurde vor dem Plotten 
gedreht, um das Papier optimal zu nutzen 


Bild 2. 
Der gleiche Aus¬ 
schnitt, mit dem 
Plotter zu Papier 
gebracht 


AUGENPUNKT ; X MBB 
: V 1350 
: z ;2BO 

Blickpunkt : x :a 
: Y :a 
: z :n 

ZQOMFAKTOR I 

BLICKWINKEL MIM 
BILDGROESSE :Z3B.3S?BB7 
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zeigt. Ausgegeben werden die Objekte so, wie sie vom PED 
als Plotfiles (Menüpunkt Daten drucken/plotten) gespei¬ 
chert wurden, also mit eben diesem Blick- und Augen¬ 
punkt. Laut dem Autor des Programms dürfen wir in näch¬ 
ster Zeit einen Konverter erwarten, mit welchem der Plotto- 
mat dann auch Grafiken von Giga-Cad plotten kann. 

Die Größe des Objekts wird vom Druckprogramm selb¬ 
ständig auf das Papierformat umgerechnet, falls erforder¬ 
lich, wird das Objekt auch gedreht. 

Dies ist in Bild 4 mit dem Gabelkopf geschehen, einem 
Demoobjekt aus Sonderheft 20. Dabei wird dann auch der 
Objektblock gedreht, um die eigentliche Lage des Objekts 
zu verdeutlichen. Die Intelligenz des Plottomat zeigt sich 
auch in der Steuerung des Plotters. Linien, die direkt anein¬ 
anderliegen, werden durchgehend gezeichnet, wodurch 
viel Zeit gespart wird. 


Das Format ist immer optimal 


Ist das Objekt noch in der Konstruktionsphase, kann der 
Ausdruck mit Punktnummern erfolgen, neben jedem Punkt 
ist dann seine Nummer zu finden (Bild 5). Bei solchen 
Testausdrucken können Sie dann auch auf den Objekt- 


M 


s*en 


Bild 3. Der Objektblock gibt die Druckdaten des Bildes an 


Bild 5. Zur besseren Orientierung können die Punkt¬ 
nummern mitgeplottet werden 

block und die Umrandung verzichten, um die kleinen Stifte 
des Plotters nicht unnötig zu verbrauchen. 

Einfach ist die Bedienung des Plottomat. Nach dem La¬ 
den des Basic-Programms und dem Starten mit RUN ist ei¬ 
ne Reihe von Fragen zu beantworten, zuerst die Anzahl der 
zu plottenden Files. Es ist nämlich auch möglich, sehr gro¬ 
ße Objekte, die nicht mehr in den PED gepaßt haben, und 
somit in Teilen konstruiert wurden, in einem Bild auszuge¬ 
ben. In diesem Fall müssen die Daten des Augen- und 
Blicku^nktes sowie die Größe und der Zoomfaktor genau 
übereinstimmen, sonst entsteht ein Bild, das räumlich nicht 
logisch erscheint. Nach der Zahl der Files geben Sie die 
einzelnen Namen ein. Ist dies erledigt, werden die Farben 
ausgewählt, und Sie müssen entscheiden, ob das Bild um¬ 
rahmt sein soll, ob ein Objektblock gezeichnet werden soll, 
und ob die Punktnummern mit ins Bild gehören. Diese Fra¬ 
gen beantworten Sie mit <J> oder <N>, ohne danach 
< RETURN > zu drücken. Jetzt werden die Files geladen, 



Variable 

Verwendungszweck 

A$(X,Y) 

Speichert die verschiedenen Angaben (Typ X) 
zum Objekt Y 

ADD 

Hilfsvariable (Offset) zum Zentrieren des 

Objekts 

AG 

Flag »Noch mal plotten« 

B$(X) 

Array für den um 90 Grad gedrehten Text 

E 

Nummer des Floppyfehlers 

E$ 

Floppyfehler im Klartext 

El 

Sektor des Fehlers 

E2 

Track des Fehlers 

F 

Vergrößerungsfaktor 

FO(X) 

Farbe des Objekts X 

FR 

Farbe des Rahmens 

FS 

Farbe der Schrift 

Fl 

Faktor der X-Koordinate 

F2 

Faktor der Y-Koordlnate 

G$ 

Hilfsstring für J/N-Abfragen 

H 

Hilfsvariable beim Sortieren 

I.J.K.T 

Schleifenzähler 

11 

Linienindexzähler 

IP 

Punkteindexzähler 

L 

Gesamtzahl der Linien 

L(X) 

Linien des Objekts X 

LH 

Linienzahl beim Einlesen 


Variable 

Verwendungszweck 

LK 

Linienzahl beim Farbwechsel 

LI % 

Anfangspunkt der Linie 

L2°/o 

Endpunkt der Linie 

N$(X) 

Name des Plotfiles X 

N°/o(X) 

PED-interne Punktenummern 

NH$,NR$ 

Hilfsstring beim Zeichnen der Punktenummern 

NU 

Flag »Nummern zeichnen« 

OB 

Anzahl der Objekte 

P 

Gesamtzahl der Punkte 

P(X) 

Zahl der Punkte des Objekts X 

PA 

Hilfsvariable beim Anpassen der Punkte 

PH 

Hilfsvariable beim Einlesen der Punkte 

PI 

Anfangspunkt einer Linie beim Einlesen 

P2 

Hilfsvariable beim Linienlesen 

R 

Flag »Linie durchziehen« 

RA 

Flag »Rahmen zeichnen« 

TU 

Flag »Grafik um 90 Grad drehen« 

X(P) 

X-Koordlnate des Punkt P 

XI 

Kleinstes X 

XP 

X-Koordinate der Beschriftung 

Y(P) 

Y-Koordlnate des Punkts P 

Yl 

Kleinstes Y 

YP 

Y-Koordinate der Beschriftung 


Tabelle 1. Variablen des Plottomat und ihre Verwendungszwecke 


ÜLfcii* 
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und auf optimale Größe gebracht. Dies kann bei umfangrei¬ 
chen Bildern schon eine Minute dauern, bis dann das Plot- 
ten beginnt. Nach Beendigung desselben können Sie wei¬ 
tere Bilder drucken oder das Programm verlassen. 

Eingabehinweise 

Das Basic-Listing »Plottomat« auf den folgenden Seiten 
geben Sie mit dem Checksummer ein, der Sie auf Falsch¬ 


eingaben sofort aufmerksam macht. Nach der Eingabe ist 
das Programm sofort betriebsfertig. Wer andere Plotter an- 
steuern will, kann das Programm leicht ändern, da es mit 
REM-Zeilen dokumentiert ist. Die Belegung der Variablen, 
die gegebenenfalls für solche Zwecke geändert werden 
müssen, ist in der Tabelle auf Seite 155 aufgeführt. 

(Stefan Sablatnög/Stefan Willmeroth/sk) 


900 REM ##■*#**#»*#*«•********•******•»**** 

<020> 

1410 

REM EINGABEN ABGESCHLOSSEN 

<10B> 

910 REM * * 

< 197> 

1420 

REM 

<212> 

920 REM * PLOTTOMAT * 

< 115> 

1430 

REM DATEN FILES LESEN 

<226> 

930 REM * * 

<217> 

1440 

REM 

<232> 

940 REM * 1987 BY STEFAN SABLATNOEG * 

<045> 

1450 

8 

<156> 

950 REM * * 

960 REM *#»***#■**»**«***»*****#*•**»**#* 

<237> 

<0B0> 

1460 

PRINT"{CLR,12D0WN}->{2SPACE)BITTE L 

EGEN SIE DIE{2SPACEIDISKETTEI2SPACEIM 


970 : 

< 184> 


IT" 

< 130 > 

980 s 

< 194 > 

1470 

PRINT"{6SPACEIDEN/M PLOTFILE(S) EIN{2 


990 s 

<204> 


SPACE}UND{2SPACE}MACHEN" 

<067> 

1000 : 

<214> 

1480 

PRINT"{6SPACEISIE DEN PLOTTER FERTIG. 


1010 REM 

<054> 



<222> 

1020 REM TITELAUSGABE 

<150> ' 

1500 

POKE 198,0: WAIT 19B,1:P0K.E 198,0 

<077> 

1030 REM 

< 076 > 

1510 

OPEN 15,8,15 

<142> 

1040 : 

<000> 

1520 

PRINT"{CLR}READING "; 

<183> 

1050 CLR 

<148> 

1530 

FOR K=1 TO OB 

< 199> 

1060 POKE 53280,15:POKE 53281,15:PRINT"<BL 


1540 

OPEN 1,B,2,N*(K)+",S,R" 

<103> 

AGIO" 

< 193> 

1550 

GOSUB 4450 

<230> 

1070 PRINT"{CLR,6D0WN,15SPACEJPLOTTOMAT" 

< 107> 

1560 

IF E< >0 THEN 1050 

<17B> 

1080 PR I NT ”{15SPACE >-" 

<201 > 

1570 

INPUT#1,P(K>:INPUT#1,L(K) 

< 159> 

1090 PRINT"<9SPACE>PL0TPRQGRAMM FUER PED" 

<099> 

1580 

GOSUB 4450 

<004> 

1100 PRINT"{14SPACEI5.9.-12.9.87" 

<051 > 

1590 

IF E< >0 THEN 1050 

<20Q> 

1110 PRINT”{10SPACE}BY STEFAN SABLATNOEG" 

<221 > 

1600 

P(K)=P(K)+1:L(K)=L(K)+1 

<055> 

1120 FOR 1=1 TO 2000:NEXT 

< 148 > 

1610 

P=P+P(K):L=L+L(K> 

<123> 

1130 : 

< 090 > 

1620 

CLOSE 1 

< 107 > 

1140 REM 

<186> 

1630 

NEXT 

<1 16> 

1150 REM EINGABE UND DEKLARATION 

<154> 

1640 

REM 

< 178> 

1160 REM EINIGER VARIABLEN 

<100> 

1650 

REM GROESSE BESTIMMT NUN FELDER 

<215> 

1170 REM 

<216> 

1660 

REM DIMENSIONIEREN 

<241 > 

1180 : 

< 140> 

1670 

REM UND DATEN EINLESEN 

<000> 

1190 INPUT"<CLR,8D0WN>WIE VIELE 0BJEKTE";0 

G*6R C 

1680 n.71 

<218> 

B 

1200 DIM N$(OB),P(OB),L(OB>,A$(10,OB),B*(2 

<014> 

1690 

DlM X(P+1> ,Y(P+1) ,N7.(P+1> ,L17.(L+1> ,L2 
7.(L+1) 

<011> 

0),FO(OB+l) 

<226> 

1700 

YI=999999:X1=999999 

<220> 

1210 FOR 1=1 TO OB 

< 117> 

1710 

IL=1:IP=0:PA=0:FOR K=1 TO OB 

< 149> 

1220 PRINT"{CLR,7D0WN1NAME DES "I". PLOTFI 


1720 

OPEN 1,8,2,N*(K)+",S,R" 

<027> 

LES";:INPUT N*(I) 

< 144> 

1730 

GOSUB 4450 

<154> 

1230 NEXT 

<224> 

1740 

IF E< >0 THEN 1050 

<102> 

1240 FOR T=1 TO OB 

<235> 

1750 

INPUT#1,PH:INPUT#1,LH 

<244> 

1250 PRINT"{CLR,8DOWM50 - SCHWARZ{2SPACE,B 


1760 

GOSUB 4450 

< 184> 

LUEH - BLAU{2SPACE,GREEN52 - GRUEN(S 


1770 

IF E< >0 THEN 1050 

< 132 > 

PACE,RED>3 - ROT{BLACK}" 

<219> 

1780 

FOR J=0 TO PH 

<034> 

1260 PRINT"{2D0WNJFARBE DES "T". OBJEKTES 


1790 

INPUT#1,NX(IP),X,Y 

<219> 

(0-3)"5:INPUT FO(T) 

< 153> 

1800 

GOSUB 4450 

<226> 

1270 NEXT 

<008> 

1810 

IF E< >0 THEN 1050 

< 174> 

1280 PRINT"{CLR,BDOWNJ0 - SCHWARZ{2SPACE,B 


1820 

PRINT". 

< 149> 

LUE}1 - BLAU{2SPACE,GREEN}2 - GRUEN{B 


1830 

IF N7.(IP)=-1 THEN X=—1: Y=—1: GDTO 1B60 

<059> 

PACE,RED>3 - ROT{BLACK}" 

<251 > 

1840 

IF X<XI THEN XI=X 

<015> 

1290 INPUT"{2D0WN1FARBE DER SCHRIFT (0-3)" 


1850 

IF Y<YI THEN YI=Y 

<074> 

;FS 

< 162> 

1860 

X(IP> =X:Y(IP> =Y 

<065> 

1300 PRINT"{CLR,BDOWNI0 - SCHWARZ{2SPACE,B 


1B70 

IP=IP+1 

<241 > 

LUE}1 - BLAU{2SPACE,GREEN}2 - GRUEN{S 


18B0 

NEXT J 

< 194> 

PACE,RED}3 - ROT{BLACK}" 

<015> 

1890 

FOR J=0 TO LH 

<144> 

1310 INPUT"{2D0WN1FARBE DES RAHMENS UM DIE 


1900 

INPUT#1,P1,P2 

<247> 

BESCHRIFTUNG";FR 

<248> 

1910 

GOSUB 4450 

<0B0> 

1320 REM ABFRAGEN ZUM DESIGN 

1330 PRINT"{CLR,7DOWN1RAHMEN UM GRAFIK ZEI 

< 155> 

1920 

1930 

IF E<>0 THEN 1050 

IF PI —1 OR P2— 1 THEN L17. < IL>-PI: L27. 

<028> 

CHNEN 7" 

<068> 


(IL)=P2:GOTO 1960 

<217> 

1340 POKE 198,0:WAIT 19B,1:GET G*: IF G*="J 


1940 

PRINT". 

<013> 

"THEN RA=1:GOTO 1360 

<248> 

1950 

L17.(IL)=P1+PA:L2'/.(IL)=P2+PA 

<231 > 

1350 IF G*<>"N"THEN 1330 

<075> 

1960 

IL=IL+1 

<042> 

1360 PRINT"{CLR,7D0WN}PUNKTNUMMERN{2SPACE} 


1970 

NEXT J 

< 028 > 

EINZEICHNEN ?" 

<067> 

1980 

FOR J=0 TO 10 

<06B> 

1370 POKE 198,0:WAIT 198,1:GET G*:IF G*-"J 


1990 

INPUT#1,A*(J,K> 

< 142 > 

"THEN NU=1:GOTO 1392 

< 199> 

2000 

GOSUB 4450 

< 170> 

1380 IF G*<>"N"THEN 1360 

<201 > 

2010 

IF E< >0 THEN 1050 

<118> 

1392 PRINT"{CLR,7D0WNI0BJEKTBL0CK{6SPACEJZ 


2020 

NEXT J 

<07B> 

EICHNEN ?" 

<070> 

2030 

CLOSE 1 

<007> 

1394 POKE 198,0:WAIT 198,1:GET G*:IF G*=”J 


2040 

PA=IP 

<1B5> 

"THEN BL=1:GOTO 1460 

< 150> 

2050 

NEXT K 

< 118> 

1396 IF G*<>"N"THEN 1392 

< 186> 

2060 

CLOSE 15 

< 122> 

1398 : 

< 104> 

2070 

; 

<014> 

1400 REM 

<192> 

2080 

1 

<124> 
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2090 

REM 


< 120> 

2620 

R=0 

<049> 

2100 

REM ENDE DES EINLESENS 


<106> 

2630 

PRINTÜ1,"M";X(L1X(I)>,-Y<LlX<I>> 

<067> 

2110 

REM 


<140> 

2640 

PRINTH1, “D" ; X (L2X (I > ) ,-Y (L27. < I) > 

< 156> 

2120 

REM GRÜESSE DES OBJEKTS OPTIMIEREN 

<227> 

2650 

PRINT"."; 

<217> 

2130 

REM 


< 160> 

2660 

LK=0:FOR T=1 TO OB 

<096> 

2140 

8 


< 0B4 > 

2670 

LK=LK+L <T) 

<030> 

2150 

: 


<094> 

2680 

IF I=LK THEN PRINT#2,F0(T+l) 

<033> 

2160 

PRINT: PRINT"-CCLRJTHINKING " 


<070> 

2690 

NEXT 

< 160> 

2170 

FOR 1=0 TO P 


<092> 

2700 

NEXT 

<170> 

2180 

IF X <I)—1 THEN 2200 


<067> 

2710 

s 

< 1 46> 

2190 

X(I>-X <I)-XI:Y(I)=Y(I)-YI 


< 105 > 

2720 

s 

< 156> 

2200 

NEXT 


< 170> 

2730 

REM 

<252> 

2210 

FOR 1=0 TO P 


<132> 

2740 

REM OBJEKT GEPLOTTET 

<053> 

2220 

IF X(I)>XM THEN XM=X(I) 


<1B6> 

2750 

REM 

<016> 

2230 

IF Y(I> >YM THEN YM=Y(I) 


<021 > 

2760 

REM PUNKTNUMMERN EINZEICHNEN 

<174> 

2240 

NEXT 


<21B> 

2770 

REM 

<036> 

2250 

TU=0 


<006> 

2780 

2 

<216> 

2260 

IF XM>YM THEN 2320 


<069> 

2790 

: 

<226> 

2270 

H=XM:XM=YM:YM=H 


<207> 

2800 

IF NU=0 THEN 3080 

<034> 

22B0 

FOR 1=0 TO P 


<202> 

2810 

IF TU=0 THEN 2920 

<0B5> 

2290 

H=X(I):X(I)=Y(I>:Y( I)=H 


<049> 

2820 

PRINTH4,0:PRINT#3,0:PRINTU2,FS:FOR 1= 


2300 

NEXT 


<022> 


0 TO P-lr XP=X(I):YP=-Y(I) 

<073> 

2310 

TU= 1 


<100> 

2830 

IF NX <I> =—1 THEN 2890 

< 155> 

2320 

F1=99B/XM:F2=479/YM 


<080 > 

2840 

IF YP<—XM*F+2 THEN YP=-XM*F+2 

< 137> 

2330 

F=F1:IF F2<F1 THEN F=F2 


<252> 

2850 

IF YP>—10 THEN YP=—10 

<087> 

2340 

FOR 1=0 TO P 


<00B> 

2860 

NR*=STR*(NX(I)):NR*=RIGHT* <NR*,LEN(NR 


2350 

IF X <I> =-1 THEN 2380 


<000> 


*>-l> 

<139> 

2360 

X(I)=INT(X(I)*F):Y(I)=INT(Y(I)*F):IF 


2B70 

IF XP>455 THEN XP=479-6*LEN(NR*> 

< 160> 


TU=1 THEN X CI)=XM*F—X <I) 


<226> 

2880 

PRINTttl,"M";XP;YP:PRINT#7,NR*; 

<044> 

2370 

H=X(I)= X <I» —Y CI):Y <I)=H 


< 131 > 

2890 

NEXT:GOTO 3080 

< 145> 

2380 

NEXT 


<104> 

2900 

REM 

< 168 > 

2390 

IF F=F2 THEN 2460 


<013> 

2910 

REM 

< 178> 

2400 

ADD=<479-YM*F> 72 


<023> 

2920 

PRINT#4,1: PRINT#3,0:PRINT#2,FS:FOR I= 


2410 

FOR 1=0 TO P 


<078 > 


0 TO P—1:XP=X(I>:YP=—Y(I) 

<205> 

2420 

IF X(IX>-1 THEN X (I) =X < I ) +ADD 


<166> 

2930 

IF NX (I) =— 1 THEN 3000 

<204> 

2430 

NEXT 


< 154> 

2940 

IF YP<—XM*F+2 THEN YP=-XM*F+2 

<237> 

2440 

s 


<130> 

2950 

IF YP>—10 THEN YP=—10 

<1B7> 

2450 

a 


< 140> 

2960 

NH*=STR* C NX(I)):NH*=RIGHT*(NH*,LEN < NH 


2460 

REM 


<236> 


*>-l> 

< 114> 

2470 

REM ENDE DER ANPASSUNG 


<023> 

2970 

NR*="":FOR J=1 TO LEN < NH*):NR*=MID*(N 


2480 

REM 


<000> 


H*,J,1>+" "+NR*:NEXT 

<000> 

2490 

REM PLOTTEN DES OBJEKTES 


<242> 

298G :- XP>431 THEN XP=479—6*LEN(NR*) 

<009> 

2500 

REM 


<020> 

2990 

PRINTttl,"M";XP;YP:PRINT#7,NR*; 

< 154> 

2510 

: 


<200> 

3000 

NEXT 

<216> 

2520 

: 


<210> 

3010 

; 

<192> 

2530 

PRINT:PRINT"tCLRJPLOTTING"; 


< 107> 

3020 

- 

<202> 

2540 

OPEN 1,6,1:OPEN 2,6,2:0PEN 3,6 

3:OPEN 


3030 

REM 

<042> 


4,6,4:OPEN 7,6 


<1B3> 

3040 

REM RAHMEN WENN 6EWUENSCHT 

<039> 

2550 

PRINT#3,1:PRINT#7:PRINT#4,0 


<059> 

3050 

REM 

< 062 > 

2560 

PRINT#2,FO <1) 


<251 > 

3060 

2 

<242> 

2570 

REM 


<092> 

3070 

: 

<252> 

2580 

FOR 1=1 TO L 


<024> 

3080 

IF RAOl THEN 3130 

<219> 

2590 

IF L1X(I>—1 OR L2X<I> —1 THEN 

2660 

<213> 

3090 

PRINT#2,FR 

<059> 

2600 

2610 

IF 1=1 THEN 2620 

IF(L2X(I>=L2X(I-1) ) OR ( (R= 1) AND (L27. < I) 

<097> 

Llsting. »Plottomat«, bitte mit dem Checksummer (Seite 


“L1X(I—1>))THEN 3800 


< 107> 

159) eingeben 




























































































































DRUCKER-LISTINGS 
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3100 

PRINTttl,"M";0;0:PRINTttl,“D";0;-XM*F 

<243> 

37B0 

! 

<200> 

3110 

PR I NT# 1 , D " i 479, -XM*F :PRINT#1,"D“;479 


•5/90 

REM LINIE DURCHZIEHEN 

<250> 


;0 

<217> 

3800 

R=1 

<229> 

3120 

PRINTttl,"D";0;0 

<099> 

3810 

PRINTttl, "D";X(L17.(I) ) ,-Y(L17.(I) > 

<165> 

3130 

PRINTttl,"M";0;—XM*F 

<007> 

3820 

GOTO 2660 

<244> 

3140 

: 

<06B> 

3830 

= 

< 250> 

3130 

a 

<07B> 

3840 

a 

<006> 

3160 

REM 

<174> 

3050 

REM 

<102> 

3170 

REM OBJEKTBLOCK AUSWAEHLEN UND PLOTTE 


3860 

REM OBJEKTBLOCK FUER NICHT GEDREHTES 



N 

< 181 > 


OBJEKT 

< 1B1 > 

3180 

REM 

< 194 > 

3870 

REM 

< 122> 

3190 

s 

< 118> 

3880 

s 

<046> 

3200 

: 

<128> 

3890 

8 

<056> 

3210 

IF BL=0 THEN PRINT#7:PRINT#7sPRINT#7: 


3900 

FOR K=1 TO OB 

<029> 


PRINT#7:GOTO 3640 

<245> 

3910 

PRINT#2,FS 

< 181 > 

3215 

IF TU=0 THEN 3900:REM OBJEKT WURDE NI 


3920 

PRINT#4,1 

<089> 


CHT BEDREHT 

<012> 

3930 

PRINT#3,0 

<059> 

3220 

REM AB HIER OBJEKTBLOCK FUER GEDREHTE 


3940 

REM 

<192> 


S OBJEKT 

<210> 

3950 

PRINT#7:PRINT#7:PRINT#7 

<077> 

3230 

FOR K=1 TO OB 

< 121 > 

3960 

Bf<1>="AUGENPUNKT : X :"+Af(l,K> 

<239> 

3240 

PRINT#2,FS 

<017> 

3970 

Bf(7)»"BLICKPUNKT : X :"+Af(2,K> 

<047> 

3250 

PRINTK3,1 

< 173> 

3980 

Bf(3)="<11SPACE): Y :"+Af(3,K> 

<046> 

3260 

PRINT#7 

<239> 

3990 

Bf<9>="C11SPACE>: Y :"+Af(4,K> 

<251 > 

3270 

PRINT#3,0 

< 161 > 

4000 

Bf <5>="aiSPACE>: Z :"+At(5,K> 

< 138> 

3280 

PRINT#7," AUGENPUNKT : X :";Af<l,K> 

< 131 > 

4010 

Bf(ll)="<11SPACE >: Z :"+Af(6,K> 

<225> 

3290 

PRINT#7,"<12SPACE>: Y :";A»(3,K> 

<135> 

4020 

Bf (17) = " PILDGROESSE M SP ACE >: " + Af (7 , K > 

<035> 

3300 

PRINT#7 , "<12SPACE1: Z :";Af(5,K) 

<147> 

4030 

Bf <13 > ="ZOOMFAKTORI5SPACE>:"+Af <8,K) 

<054> 

3310 

PRINTW7," BLICKPUNKT : X :";A*(2,K> 

<0B0> 

4040 

Bf(15 > ="BLICKWINKEL l 4SPACE>: "+Af < 9,K > 

<254> 

3320 

PRINT#7,"tl2SPACE>: Y :";Af(4,K> 

<230> 

4050 

FOR 1=1 TO 18 

<13B> 

3330 

PRINT#7,"C12SPACE>: Z :”;Af(6,K> 

<243> 

4060 

IF LEN <Bf(I))<30 THEN Bf(I)=Bf(I)+" " 


3340 

PRINT#7," ZOOMFAKTORI5SPACE>:“;Af(8,K 



:GOTO 4060 

<085> 


> 

<070> 

4070 

NEXT 

<014> 

3350 

PRINT#7," BLICKWINKELI45PACE>:";Af<9, 


4080 

FOR J=1 TO 30 

< 169> 


K) 

<083> 

4090 

FOR 1=18 TO 1 STEP—1 

<212> 

3360 

PRINT#7," BILDGROEBSEMSP ACE > : " ; Af < 7 , 


4100 

PRINT#7,MIDf(Bf(I),J,1>; 

<1B0> 


K); 

<077> 

4110 

NEXT 

<056> 

3370 

PRINT#3,3 

<103> 

4120 

PRINT#7 

<0B3> 

3380 

PRINT#7:PRINT#7," OBJEKT:" 

<046> 

4130 

NEXT 

<076> 

3390 

PRINT#2,F0(K> 

<089> 

4140 

PRINTtt2,FR 

<093> 

3400 

PRINT#7," "LEFTf(Nf(K>,9):PRINT#7," " 


4150 

PRINTttl,"M”;0;320 

<244> 


MIDf(Nf<K),10,6); 

<156> 

4160 

PRINTttl,"D";479;320:PRINTttl,"D";479;0 


3410 

PRINT#2,FR 

,^125> c 


."RINTttl,"D";0;0:PRINTttl,"D"; 0; 320 

<212> 

3420 

PRINT#1, “M"; 0; 0: PRINTttl, "D”;0;330:PRI 

4170 PRINTttl,"M";16;320:PRINTttl,"D"; 16;0 

< 196> 


NT#1,"D";479;330 

< 193> 

4180 

PRINTttl,"M";28;320:PRINTttl,"D";2B; 0 

<091 > 

3430 

PRINTttl, "D";479;0:PRINTttl,"D";0s 0 

<003> 

4190 

PRINTttl,"M";40;320:PRINTttl,"D"; 40;0 

<066> 

3440 

PRINTttl,"M";0;300:PRINTttl,”D";479;300 

<069> 

4200 

PRINTttl,"M";76;320:PRINTttl,"D";76;0 

<241 > 

3450 

PRINTttl,"M";479;269:PRINTttl,"D";0;269 

<100> 

4210 

PRINTttl,"M";112;320:PRINTttl,"D";112;0 

<044 > 

3460 

PR I NT# 1 , ” M “ ; 0 ; 259 : PR I NT# 1 , " D " ; 479; 259 

< 118> 

4220 

PRINTttl,"M“;112;250:PRINTttl,“D";479;2 


3470 

PRINTttl,"M";479;249:PRINTttl,"D";0;249 

<232> 


50 

<212> 

3480 

PRINTttl,”M";0;239:PRINTttl,"D";479:239 

<090> 

4230 

PRINTttl,"M";0;250 

< 108> 

3490 

PRINTttl,"M";479;160:PRINTttl,"D";0;160 

<0B4> 

4240 

PRINT#2,FS 

<001 > 

3500 

PRINT#3,0 

< 137> 

4250 

PRINT#4,0 

<133> 

3510 

FOR 1=1 TO 16:PRINT#7:NEXT 

<234> 

4260 

PRINT#3,3 

<231 > 

3520 

REM 

<024 > 

4270 

PRINTtt7, 11 I3SPACE JOBJEKT: " 

<109> 

3530 

NEXT K 

<072> 

4280 

PRINT#2,FO(K) 

<217> 

3540 

PR I NT#3,1: PR I NT#7: PR I NT#7: PR INT#7: PR I 


4290 

PRINT#7,"t3SPACE >";LEFTf(N#(K),7):PRI 



NT#7:PRINT#7 

<054 > 


NT tt7,"I3SPACE}“;MIDf(Nf(K),8,7) 

<209> 

3550 

: 

<224> 

4300 

REM 

<042> 

3560 

3 

<234> 

4310 

PRINT#3,0 

<1B5> 

3570 

REM 

<074> 

4320 

PRINTW7 

<027> 

35B0 

REM ENDE DES GEDREHTEN OBJEKTBLOCKS 

< 122> 

4330 

PRINT#3,1 

<237> 

3590 

REM 

<096> 

4340 

NEXT 

< 030 > 

3600 

REM GLEICHES OBJEKT NOCHMAL ???? 

< 155> 

4350 

PRINTtt7:PRINT#7:PRINTtt7:PRINT#7 

<254> 

3610 

REM 

< 116> 

4360 

REM 

< 104 > 

3620 

: 

<040> 

4370 

REM OBJEKTBLOCK FUER NICHT GEDREHTES 


3630 

3 

<050> 


OBJEKT IST. FERTIG ->RUECKSPRUNG 

< 119> 

3640 

PRINT"<CLR,10DOWN>DAS SELBE OBJEKT" 

< 1B6> 

4380 

REM 

< 124> 

3650 

PRINT"NOCHMAL PLOTTEN ? <J/N)":POKE 1 


4390 

GOTO 3640 

<252> 


98,0:WAIT 198,1:GET Gf:IF G*="J"THEN 


<1400 

s 

<058> 


AG=1 

< 1B2> 

4410 

8 

<068> 

3660 

IF Gf< >“N"AND GfO"J"THEN 3640 

< 126> 

4420 

REM 

< 164 > 

3670 

CLOSE IsCLOSE 2:CL0SE 3:CL0SE 4:CL0SE 


4430 

REM FEHLERKANAL DER FLOPPY 

< 143> 


7 

<029 > 

4440 

REM 

<184> 

3680 

IF AG=1 THEN AG=0:GOTO 2530 

<068 > 

4450 

INPUT#15,E,Ef,El,E2 

<199> 

3690 

PRINT"tCLR,10DOWN>EIN ANDERES OBJEKT" 

<233> 

4460 

IF E=0 THEN RETURN 

<071 > 

3700 

PRINT"PLOTTEN ? <J/N)":POKE 19B,0:WAI 


4470 

PRINT"CCLR,12D0WN)DISK FEHLER:" 

< 143> 


T 198,1:GET Gf:IF Gf="J"THEN 1050 

<21B> 

4480 

PRINT"CRVSON}";E;Ef;El;E2"CRVOFFJ" 

<215> 

3710 

IF Gf <>”N"THEN 3690 

< 150> 

4490 

PRINT"BITTE PROBLEM BEHEBEN UND NOCHM 


3720 

END 

< 166> 


AL L7SPACE}ANFANGEN{3SPACEJ — >TASTE" 

<15B> 

3730 

REM ******************** 

<16B> 

4500 

POKE 19B,0:WAIT 198,1:P0KE 198,0 

<029> 

3740 

REM *ENDE DES PROGRAMMS* 

<008> 

4510 

RETURN 

<250> 

3750 

REM ******************** 

<1BB> 




3760 

REM 

<010> 




3770 


< 190> 

Listing. »Plottomat« (Schluß) 
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EINGABEHILFEN 


Checksummer 
V3 und MSI 


Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehler vor allem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 




I obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
I Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1 REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64'er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


10 PRINT''CHECKSUMMER FUER C 64" 

11 PRINT:PRINT"EINEN MOMENT, BITTE 

12 FOR 1=828 TO 864:READ A:POKE I,A:PS=PS+ 

A:NEXT I 

13 IF PS05765 THEN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:P0KE I,A:PS=PS+A:NEXT I 

15 IF PS<>16147 THEN PRINT"TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30'': END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT''CHECKSUMMER AKTIVIERT.' 1 

18 PRINT:PRINT" AUSSCHALTEN : POKE1.55 ODE 
R'' SPC < 2 7 )" <RUN/STOP *RESTORE> " 

19 PRINT:PRINT" ANSCHALTEN : P0KE1.53" 

20 DATA 169,0,133,254,162,1,189.93,3,133,2 
55,160,0,177.254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95.3,208,238,202 

22 DATA 16,230,96.160,224,192,0,160.2,169, 
0.170,133.254,177 

23 DATA 95,240,40.201,32.208,3,200,208,245 
,133.255,138,41,7 

24 DATA 170,240,14,72.165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165.255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 
@ 64'er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 


5 PRINT CHRSC14) 
10 PRINT"<CLR>" 
20 PRINT"I 




<242> 

<254> 

<130> 


30 r- NT " C4DOWN, 2SPACE } XEST {SPACE , BLUE , 6SP 

ACt>" <022> 

© 64'er 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben <Q>, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben <W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann <SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


CTRL steht iür Control-Taste, so bedeutet |CTRL+Aj, daB Sie die Control-Taste und die Taste »A« drücken müssen. Im folgenden steht: 

IDOWN] 

Taste neben rechtem Shift, 

{SPACE) 

Leertaste 

{RVSONI 

Control-Taste 8 9 


Cursor unten 

{SHIFT-Spacel 

Shift-Taste 8 Leertaste 

IRVOFF) 

Control-Taste 8 0 

(UP! 

Shift-Taste & Taste neben 

(Fl’ bis ]F8I 

Funktionstasten 

{ORANGE) 

Commodore-Taste 8 1 


rechtem Shift; Cursor hoch 

(RETURN) 

Return-Taste 

iBROWNi 

Commodore-Taste 8 2 

1CLR! 

Shift-Taste & 2. Taste 

{BLACK) 

Control-Taste & 1 

{LIG.REDI 

Commodore-Taste 8 3 


ganz rechts oben 

IWHITE 

Control-Taste & 2 

IGREY 1) 

Commodore-Taste 8 4 

|INST| 

Shift-Taste & Taste 

(RED) 

Control-Taste 8 3 

|GREY 2) 

Commodore-Taste 8 5 


ganz rechts oben 

jCYANI 

Control-Taste 8 4 

ILIG.GREENI 

Commodore-Taste 8 6 

{HOME) 

2. Taste von ganz rechts oben 

IPURPLE) 

Control-Taste 8 5 

|LIG.BLUE| 

Commodore-Taste 8 7 

(DEL] 

Taste ganz rechts oben 

IGREENj 

Control-Taste & 6 

IGREY 3( 

Commodore-Taste & 8 

IRIGHT) 

Taste ganz rechts unten 

IBLUE) 

Control-Taste 8 7 

Tabelle 1. 


|LEFT] 

Shift-Taste & Taste unten rechts 

iYELLOW) 

Control-Taste 8 8 

Die Steuerbefehle in den Listings 
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C64 


Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer (j. Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT " |CLRj" 


bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). In Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes »T« nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Tastedrücken müssen, also <SHIFTT>. Wenn ein Zeichen 
»überstrichen« ist, müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


10«t REM DIESES PROGRAMM ERZEUGT DEN <210> 

110 REM MSE VI.1 AUF DISKETTE. <039> 

120 REM BESITZER EINER DATASETTE <170> 

130 REM MUESSEN DIE ’B’ AM ENDE VON <145> 

140 REM ZEILE 343 IN EINE ’1' AENDERN! <176> 
150 REM <212> 

230 IF PEEK(44)<>32 THEN PRINT'CCLRDSIE HA 
BEN VERGESSEN, DIE POKES EINZUGE- BEN! 

"•■END <050> 

240 PRINT"CCLR3";:DIM H<75):FOR 1=0 TO 9 <042> 

250 H(48+1)=I:H(65+I)=I+10:NEXT:Z=1000 <136> 

260 FOR 1 = 2048 TO 3755 STEP 20 :PRINT 11 CHOME 

3ICH LESE ZEILE:"Z <253> 

261 FOR N=0 TO 19:READ A$:IF LEN (AS >02 TH 

EN '900 <062> 

262 IF PEEK< 63 > +PEEK< 64>*256<>Z THEN 000 <011> 

270 H=ASC(LEFT$(A$,1)):L=ASC(RIGHT®(A$,l)> <199> 

280 D=H<H)*16+H(L>:S=S+D:POKE I+N.D <165> 

290 NEXT: READ V:IF SOV THEN 900 <139> 

300 S=0:Z=Z+1 : NEXT : R=PEEK(2111):H=PEEK(210 

6 ) <12 6 > 

301 POKE 53280,R:POKE 53281.H^POKE 646,R:P 
RINT”CCLR3DIE DATA-ZEILEN SIND FEHLERF 

REI!" <0Q0> 

302 PRINT"SIE KOENNEN NUN DIE FARBEN DES M 

SE" <209> 

303 PRINT"EINSTELLEN.":PRINT"C2DOWN,SPACE, 

RVSONDDRUECKEN SIE <1>, <2> ODER <9> <205> 

304 PRINT"CDOWN,2SPACE}<1> - RAHMEN-/SCHRl 7 

FTFARBE <013> 

305 PRINT'‘C2SPACE><2> - HINTERGRUNDFARBE <233> 

306 PRINT"CDOWN,2SPACE)< 9 > - FARBEN UEBERN 

EHMEN <158> 

307 PRINT"C2DOWN3FARBE <1>:"R:PRINT"FARBE 

<2>:"H <066> 

308 GET A:IF A=0 THEN 308 <210> 

309 IF A=1 THEN R=(R+1)AND 15 <098> 

310 IF A=2 THEN H=(H+1)AND 15 <066> 

311 IF A = 9 THEN 340 <217> 

312 GOTO 301 <034> 

340 POKE 2106,H=POKE 2111,R <153> 

342 POKE 631.19:POKE 632,13:POKE 198,2 <135> 

343 PRINT"CCLR3SAVE"OHRS(34)"MSE V1.1"CHR$ 

< 34 >",8 <091> 

344 POKE 43,1:POKE 44,8:P0KE 45,172:POKE 4 

6,14:END <140> 

800 PRINT"CCLR,RVS0N3SIE HABEN ZEILE"Z"CLE 

FT,SPACE>VERGESSEN:":A=PEEK(646)AND 15 <124> 
810 POKE 646,PEEK< 53281)AND 15:PRINT"LIST" 

Z-2"-"Z+2:POKE 646,A <224> 

820 GOTO 920 <082> 

900 PRINT"CCLR,RVSON5SIE HABEN EINEN TIPPF 

EHLER GEMACHT:":A=PEEK<646)AND 15 <154> 

910 POKE 646,PEEK<53281)AND 15:PRINT"LIST" 

Z:POKE 646,A <173> 

920 POKE 631,19 : POKE 632,17:POKE 633,13:PO 

KE 198,3:END <126> 

1000 DATA 00,0B,08,0A,00,9E,32,30,36,31,00 

,00,00,A2,08,A9,36,B5,A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 

,A0,00.Bl.A4.91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

,4C,00,B0,20,D1,B1,A9,00,8D, 2781 <096> 

1003 DATA 21,D0,A9,0F, 8 D,20,D0, 8 D, 86 ,02,A0 

,B3,A9,74,20,FF,B1,A0,B3,A9, 2679 <089> 

1004 DATA B9,20,FF,Bl,A0.00,20,CF,FF,99,01 

,02,C 8 ,C9,0D.D0,F5. 88 ,F0,D2, 2912 <217> 

1005 DATA C0.11,90,02,A0,10,8C,00,02,20,EA 

,B1,A0,B3,A9,CF,20,FF,B1,20, 2327 <045> 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 

,85,61,20.A7,B4,D0,20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 


,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 

1008 DATA A5.61,C5,5F,A5,62,E5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA EA,EA,E 6 ,FB,D0,02,E 6 ,FC,20,3F.B2 

, 90 , EF , 4C!, FB , B4 , A2,02 ,86 1 58 , 3190 <041> 

1010 DATA A9,A 6 ,A0,9D,20,F2,Bl,20,E4,FF,F0 

,FB,C9,30,90,0C.C9,47 , B0,08, 2970 <231> 

1011 DATA C9.3A,90,0B,C9.41,B0,07,C9.14,D0 

.0F,4C,0B,B1,20,D2,FF,A6.58, 2322 <121> 

1012 DATA 95. F7 ,C6,58, D0,1)2.60, AE, 8 D, 02, F0 

.26,C9,0C,D0.03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13.D0.03,4C,QB,B5.C9,0D,D0.03,4C 

,BA,B4,C9,10.D0,03,4C,68.B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,B5,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6. 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,Bl,CA,D0.FA 

,84,57,68,68,4C,8B,Bl,A6,D3, 2891 <197> 

1018 DATA E0,08 , B0,03,4C , 92 , B0,20,1)2 , FF , A 6 

,5B,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A.90,02,69,06,69.30,4C,D2,FF,A2 

,FC,9A,20,Dl,Bl,20,40,B2,20, 2261 <073> 

1021 DATA EA.Bl,20,9F,B2,A5,FC,20,4E,Bl,A5 

•B,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,C8,84,59,00,08,90.EC,20,10 

,B2,A9,12,20,D2,FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14.20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2.20,E0,B2 

,20,3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20, D2, FF, A2,00, A9,03.90,00,1)8 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA EB,D0,EF,60,A9,0D,2C,A9,20.4C,D2 

, FF, 20, D2, FF, 98,4C , 1)2, FF, 20. 2965 <160> 

1028 DATA E4,FF.F0,FB,60,84.5D,85,5C.A0,00 

, Bl , 5C, F0,06,20 , D2 , FF ,08,1)0 , 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,85.FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F.A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

>D2,FFiCC 1 00,02,C8,90,F4.A9, 2692 <098> 

1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2457 <060> 

1034 DATA Bl,20,ED,Bl,A5,60,20,4E,Bl,A5.5F 

,20,4E,Bl,EA,EA.EA.EA,EA,EA, 3122 <190> 

1035 DATA EA,EA,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28.20,ED,Bl,CA,D0,FA. 2703 <087> 

1036 DATA A9.92,4C,D2,FF,A5,D6,C9,16,B0,01 

,60,A9,A0,85,A4.A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,Bl 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18,A5,A4,69,28.85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0. 2503 <251? 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D,04,D4,A9 

.32.8D.01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,80,20,09,B3,A9,10,8D.04,D4.60 

,A2,FF,CA,D0,FD. 881 D0,F 8 .60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D, 01,1)4 , A9,05,8D , 00, D4, A0 
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.FF,20,09,B3,A9,20.8D,04,D4, 2250 <078> 

1044 DATA A9,00,8D.01.P4.8D,00,D4,60.38.20 

,F0,FF.8A,48,98,48,18,A0,06, 2179 <175> 

1045 DATA A2,18.20.F0,FF,A0,B4,A9,0A,20,FF 

,Bl.20,12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,ID.A9.14,20iD2.FF,CA,D0iFA,68 

.A8.68.AA,18,4C,F0,FF,0D,0D, 2704 <088> 

1047 DATA 0D.20,20,20,20,20,20,20,40,41,53 

,43,48,49,4E,45,4E,53,50,52, 1144 <216> 

1048 DATA 41,43,48,45,20,20,20,45,44,49.54 

,4F.52,20,00,00.20,20,20,20, 1023 <038, 

1049 DATA 20,20,20,20,56,4F.4E,20,4E,2E,40 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,00,00,20 

,20,20.50,52,4F,47,52,41,40, 1 102 .117 > 

1051 DATA 40,4E,41,40,45,20,3A,20,00,00,00 

,20,20.20,53,54,41,52,54,41, 1073 <095,> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,00,00,20,20,20,45,4E,44,41 , 1014 <129:, 

1053 DATA 44,52,45,53.53,45.20,20.20.3A,20 

,24.00,92,01,01,50,52,4F,47, 1136 <228> 

1054 DATA 52,41,40,40,20,3A,20,00.12,20.20 

,2A,2A,2A,20.46,41,4C,53.43. 1024 <027> 

1055 DATA 46,45,20.45,49,4E,47,41,42,45,20 

,2A , 2A,2A,20,20.92,00,0D,00, 1058 <098) 

1056 DATA 2A , 2A, 2A, 20.45,4E, 44,45,20,' 2A, 2A 

,2A,00,13,01,20,20,12,44,92. 916 <153> 

1057 DATA 49.53,4B,20,4F.44.45,52,20.12.54 

,92,41.50,45,00,00,13,20,20, 1151 <035) 

1058 DATA 49,2F.4F,20,20,20,46,45,48.40,45 

,52,00,20,01,Bl,20,48,B2.A0, 1606 '012> 

1059 DATA B3,A9,CF,20,FF,B1,20,8E,B4,85,FC 

.20.8E,B4,85.FB,C5.61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7.B4,00,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0.0C,85,F9,20,A7,B4,F0 

,05,65,F8,4C,EF.B0,68,68.20, 2749 <088) 

1062 DATA 43,B3,4C,5F.B4,20,CF,FF.C9.4C,00 

,09,20,P1,B1,20,40,B2,4C,0B, 2372 <046) 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,Bl,20,00,B5,24,5E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,El,FF,F0,26 

,20,9F ,B2,24,5E, 10,09,20,4E. 2435 <19ö) 

1065 DATA B5.20,0D,B5,20.60,B5.20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207) 

1066 DATA FF,Bl,20,E4,FF,C9,0D,D0.F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240) 

1067 DATA FC,20,E0,B2,4C,64,B1,A5,FC,20,4E 

,B1,A5,FB,85.FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1 

,Bl,FB,20,4E,Bl,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF.20.4E.B1,A9,92,20,D2,FF.4C.EA 

,B1,A9,FF,85,B8,85,B9.A9,04, 3073 <029> 

1071 DATA 85,BA,20.C0,FF,A2,FF,4C,C9.FF,20 

,CC,FF,A9,FF,4C,C3.FF,20.5F, 3315 <189> 

1072 DATA B4,A9.80,85,5E,20,4E,B5,20,48,B2 

.A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20.EA,Bl.20.EA.B1,20,60,B5.4C 

,C1,B4,20,B8,B5.A6,5F,A4,60, 2812 <015> 

1074 DATA A9.61,20,D8,FF,B0,0A,20.B7,FF,29 

,BF,D0,03,4C.FB.B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6.A0,B4.A9,4F,20,FF 

, Bl , 20 , F9 , Bl . 4C . FB . B4.20,68 , 2921 <237>. 

1076 DATA B6,A9.37,A0.B4,20,FF,B1.20.F9.B1 

,A2,08,C9,44,F0.06iA2i01,C9, 2717 <213) 

1077 DATA 54,00,Fl,A9,01,A8,20,BA,FF,A0.00 

.E0.01,F0,1A,A9,40,8D,20,02. 2403 <101) 

1078 DATA A9,3A,8D,21,02,B9,01,02.99.22,02 

,C8,CC.00,02,90.F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C.B9,01,02,99,20,02,C8.CC,00,02 

,D0,F4,98,A2.20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5.BA,C9,08,90,33,A6 

,B9,86,57,A9,01.20.C3.FF.A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0.FF,B0,28.A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90,4A.4A.B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,05,FF,90,03,40,A3,B5 

.66,5F,84,60,A5,BA,C9,01,D0, 2639 <131) 

1084 DATA 0A,AD,30,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2.FF,A2, 2300 <120:> 

1085 DATA IC,20,ED,Bl,CA,00,FA,60,00,00,00 

,00,00,00,00,00,00,00,00,00, 1230 <143> 

© 64’er Listing 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sie den Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI.0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden, vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
jaden wollen, um an einer bestimmten Stelle weiterzutip¬ 
pen oS*V noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie < D > oder <T> drücken, je nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/O-ERROR«. In diesem Fall drücken Sie 

< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch <SPACE> können Sie weiterlisten lassen 
und durch <RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRL P> ausdrucken. Mit <CTRL L> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/tr) 


iUnj* 


SONDERHEFT 27 


161 









Impressum 




Herausgeber: Carl-Franz von Quadt, Otmar Weber 
Geschäftsführender Chefredakteur: Michael Scharfenberger 
Chefredakteur: Albert Absmeier 
Stellv. Chefredakteur: Georg Klinge 
Leitender Redakteur: Gottfried Knechtei (kn) 

Chef vom Dienst: Bärbel Gebhardt 
Redaktion: Klaus Schrödl (sk), Ralf Sablowskl (rs), 

Hotline: Monika Welzel (640)_ 

Mitarbeiter der Redaktion: Michael Thomas, Axel Pretzsch, Thomas Lipp, 

Stefan Wllmeroth, Florian Müller, Dr. Rudolf Egg, 

Redaktionsassistenz: Andrea Kaltenhauser, Brigitte Bobenstetter (202) 

Art-Director; Friedemann Porscha_ 

Layout: Andrea Miller, Katja Milles 
Fotografie: Jens Jancke 
Titelgestaltung: Erich Schulze 
Produktionsleiter: Klaus Buck 
Gesamtanzeigenverkaufsleiter: Ralph-Peter Rauchfuss 
Anzeigenverkaufsleitung: Alexander Narings 
Anzeigenverkauf: Britta Fiebig (282) 

Auslandsrepräsentatlon: 

Schweiz: Markt&Technik Vertriebs AG, 

Kollerstr. 3, CH-6300 Zug, 

Tel. 042-41 5656, Telex: 862329 

USA: M&T Publishing Inc.; 501 Galveston Drive Redwood City, 

CA 94063, f,;-. -o - 

_ Telefon: (415) 366-3600 _ • 

Manuskripteinsendungen: Manuskripte und Programmllstings werden 
gerne von der Redaktion angenommen. Sie müssen frei sein von Rechten ; 

Dritter. Sollten sie auch an anderer Stelle zur Veröffentlichung oder gewerbli¬ 
chen Nutzung angeboten werden, so muß dies angegeben werden. Mit der 
Einsendung von Manuskripten und Listings gibt der Verfasser die Zustim¬ 
mung zum Abdruck in von der Markt&Technik Verlag AG herausgegebenen ■. 

Publikationen und zur Vervielfältigung der Programmlistings auf Datenträger. 
MitderEinsendungvonBauanleitungengibtderEinsenderdieZustimmung '' 

zum Abdruck in von Markt&Technik Verlag AG verlegten Publikationen und 
dazu, daß Markt&Technik Verlag AG Geräte und Bauteile nach der Bauanlei- . 

tung herstellen läßt und vertreibt oder durch Dritte vertreiben läßt. Honorare 
nach Vereinbarung, Für unverlangt eingesandte Manuskripte und Listings l 

wird keine Haftung übernommen. 

Marketingleiter: Hans Hörl (114) ■'’>?£: - k ' 

Vertriebsleiter: Helmut Grünfeldt (189) '••..v* 

Anzeigenverwaltung und Disposition: Lisa Landthaler (233) 

Druck: SOV Graphische Betriebe, Laubanger 23, 8600 Bamberg - 

Bezugsmöglichkeiten: Leser-Service: Telefon (089) 4613-249. Bestellun¬ 
gen nimmt der Verlag oder jede Buchhandlung entgegen. 

Preis: Das Einzelheft kostet DM 14,- 1 .(• ” 

Vertrieb Handelsauflage: Inland (Groß-, Einzel- und Bahnhofsbuchhandel) 
sowie Österreich und Schweiz: Pegasus Buch- und Zeltschriften-Vertriebs 
GmbH, Hauptstätter Straße 96, 7000 Stuttgart 1, Telefon (0711) 64 83-0 

Urheberrecht: Alle in diesem Heft erschienenen Beiträge sind urheberrecht¬ 
lich geschützt. Alle Rechte, auch Übersetzungen, Vorbehalten. Reproduktio- I. .. , 

nen gleich welcher Art, ob Fotokopie, Mikrofilm oder Erfassung in Datenverar- 
beltungsanlagen, nur mit schriftlicher Genehmigung des Verlages. Anfragen 
sind an Michael Scharfenberger zu richten. Für Schaltungen, Bauanleitun- . - 

gen und Programme, die als Beispiele veröffentlicht werden, können wir 
weder Gewähr noch irgendwelche Haftung übernehmen. Aus der Veröffentli¬ 
chung kann nicht geschlossen werden, daß die beschriebenen Lösungen 
oder verwendeten Bezeichnungen frei von gewerblichen Schutzrechten sind. 

Anfragen für Sonderdrucke sind an Alain Spadaclni (185) zu richten. 

© 1988 Markt&Technik Verlag Aktiengesellschaft 
Redaktion »64‘er« 

Verantwortlich: t 

Für redaktionellen Teil: Gottfried Knechtei , ' 

Für Anzeigen: Britta Fiebig _ >-,;s;i-f 

Redaktionsdirektor: Michael M. Pauly ,.I 

Vorstand: Carl-Franz von Quadt, Otmar Weber _ 

Anschrift für Verlag, Redaktion, Vertrieb, Anzelgenverwaltung und alle 
Verantwortlichen: 

Markt&Technik Verlag Aktiengesellschaft, 

Hans-Pinsol-Straße 2, 8013 Haar bei München, 

Telefon (089) 4613-0, Telex 5-22052 _•_ . 

ISSN 0931-8933 ÄmSCC-- 



■ \ '- <% 


M 






162 


SONDERHEFT 27 






































wmmm 

mwmi'in'i 















\V\sS 


%*•/ 




















